■13297 / 1階層) |
Excel(エクセル) VBA入門:検索結果をリストボックスに表示する
|
□投稿者/ よねさん -(2018/09/19(Wed) 14:22:37)
| Like演算子を使った検索
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_find.html#like
氏名と住所をキーに検索しています。
氏名(Textbox1)は myData(i, 2) Like "*" & TextBox1.Value & "*" で文字列の比較をしています。
住所(Textbox2) はmyData(i, 7) Like "*" & TextBox2.Value & "*" としています。
血液型(Textbox3) を追加すると myData(i, 13) Like TextBox3.Value を追加すればよいことになります。
血液型は A.B,O,ABの完全一致で検索するので前後の*は不要と考えます。
If myData(i, 2) Like "*" & TextBox1.Value & "*" _
And myData(i, 7) Like "*" & TextBox2.Value & "*" _
And myData(i, 13) Like TextBox3.Value Then
> 当初のリストにコメントを入れておきたい
現在は myData2(i, 1) = myData(i, 1)
myData2(i, 2) = myData(i, 2)
myData2(i, 3) = myData(i, 7)
と、連番、氏名、住所が表示されていると思います。
この辺をいじればよさそうな気がしますが、どのようなことをなさりたいのかが
分かりませんので、具体例でも示してください。
|
|