| |
お世話になります｡
ＶＢＡと関数を利用して次のような検索機能を設定しました｡
検索目的のワークシート上にボタンを配置して､そのボタンをクリックすると
検索フォームが表示され､そのフォーム上で検索条件を入力し検索ボタンをク
リックすると検索を開始し､同じフォーム上に検索結果を表示させるような機
能を設定しました｡
ワークシート(名)「検索結果表示」を用意し､ＶＢＡには､
↓
Private Sub CommandButton1_Click()
Worksheets("検索結果表示").Range("E3").Value = TextBox1.Text
Label51.Caption = Worksheets("検索結果表示").Range("M3").Value
Label52.Caption = Worksheets("検索結果表示").Range("H15").Value el1.Caption = Worksheets("検索結果表示").Range("E6").Value
Label2.Caption = Worksheets("検索結果表示").Range("H6").Value
Label3.Caption = Worksheets("検索結果表示").Range("J6").Value Label4.Caption = Worksheets("検索結果表示").Range("L6").Value
Label5.Caption = Worksheets("検索結果表示").Range("N6").Text
Label6.Caption = Worksheets("検索結果表示").Range("P6").Text
Label7.Caption = Worksheets("検索結果表示").Range("R6").Text
Label50.Caption = Worksheets("検索結果表示").Range("U6").Text
End Sub
と言うような記述をしました｡この記述により､検索条件がワークシート
「検索結果表示」上に転送され､ワークシート側でVLOOKUP関数による検
索を行い､その結果をフォーム上へ表示する､と言う仕組みです｡
結果はうまくいきました｡
ですが､１つ問題がありまして...
〔検索データベース〕
部品1 3個 ○○円
部品2 5個 ○○円
商品Ａ 部品3
部品4
部品5
検索したいデータベースは上記のようになっていまして､検索条件は商品
Ａ･Ｂ･Ｃ･Ｄ...です｡つまり､商品１つに対して検索結果として表示したい
結果は部品であり複数となります｡VLOOKUP(若しくはHLOOKUP)では検索条件
に対して１つの行若しくは１つの列単位での結果表示になってしまうと思
うのですが､何か良い他の方法はあるでしょうか？
宜しくお願い致します｡
|
|
仕事人II
- 07/9/5(水) 14:52 -
