エクセルVBA コンボボックスの値から検索したい

質問

エクセル・VBAで商品検索をしようとしているのですが行き詰ってしまい、皆様のお知恵を拝借できればと思い質問させていただきます。

・現状
１．商品マスタ シートにJANコード・商品名・規格その他を入力しています。
２．ユーザーフォームを使い、商品名（一部分）を入力・検索したら、その商品の商品名・規格がコンボボックス上に表示される（2列分の情報を出力しています）

３．当てはまる商品を選択し、コマンドボタンを押したら、その商品のJANコードや商品名・規格・価格などが出力されるようにしたい

現在２．まではなんとか作成したのですが、３．の操作をどうすれば良いかわからず悩んでおります。
コンボボックスに格納されたデータは配列形式で、findメソッドを使って引っ張ってきているのですが、選択したデータからもともとの商品マスタのセルを割り出す操作があるのかどうかも分かりません。

独学でやっているので、基礎の基礎もわかっていないとは思いますが、どうかご教授ください。

（例）
商品名検索をした際には、コンボボックスに

　　　　チロルチョコ　　　　バナナ味20円
　　　　チロルチョコ　　　　いちご味21円
　　　　チロルチョコ　　　　マンゴー味21円

のように表示されます。その中でチロルチョコ　イチゴ味を選択した後に、そのチロルチョコ　いちご味のデータを出力したいのです。

回答No.1

keithin · ベストアンサー

＞コンボボックスに格納されたデータは配列形式で、findメソッドを使って引っ張ってきているのですが、選択したデータからもともとの商品マスタのセルを割り出す操作があるのかどうかも分かりません。

有り体に言えば，そういう「リンク」はありません。
ので，配列データの中に「行番号」を３列目データとして併せて格納し，必要に応じて表示はしないようにしておくなどの手続きが簡単かなと思います。

行番号などのインデックスが格納されていれば，選択データの該当行データを出力するのは極めて容易ですね。

お礼

ありがとうございます。
的確なコメントをいただき、今後の指針まで教えていただけたので納得して作成できました。
行番号を配列に入れて非表示にし、後程そのデータを使い必要なデータを引っ張り出してこれました。
本当にありがとうございました！

回答No.2

TAKA_R

1番さんと回答がかぶりますが・・・。
確認ですが、１から２までの動作は
findをループで使って配列に放り込み、それをコンボボックスに表示で間違いないですか？
基本findはアドレスを取ってくるので、その行数もついでに配列に放り込んでみてはどうでしょう。
要素数1個追加で半分解決。
ComboBox1.ListIndexでリストの何番目が指定されたかわかるから（先頭は０）、
配列とつき合わせてアドレス取得、それから必要とするデータをとってくればよいかと思います。

お礼

ありがとうございます。行数を配列に組み込むという方法は目からうろこでした。
何とかクリアできました！