エクセルのフォームに検索結果を表示する方法について

質問

エクセルのフォーム上に商品名を入力して、別シートに入っているデータを検索し、該当するデータを上記フォーム上に表示させたいと考えています。

【エクセルのフォームの概要】
(1)フォームはuserform1に作成してあります。商品名を入力→txtbox1
(2)「商品一覧表」というシートに商品一覧表が作成されていて、A1～J1000までデータが入っています。
(3)検索に引っかかるデータはその一覧表の左から2番目(商品名)の列です。
(4)該当するセルがある行の左から3番目のデータをフォームのtextbox2に表示させたいと考えています。

下記のように考えていますが、どうもうまくいきません。ご指導の程宜しくお願い致します。（つい最近マクロを始めたばかりなので、とんでもない構文なのかもしれませんが、自分ではどこがどうダメなのかわかりません。）

Private Sub CommandButton1_Click()
Dim RangeA As Range
Set RangeA = Worksheets("商品一覧表").Range("A1:J1000")
UserForm1.TextBox2.Text = Application.WorksheetFunction.VLookup(TextBox1.Value, RangeA, 3, False)
End Sub

回答No.1

hana-hana3 · ベストアンサー

＞A1～J1000までデータが入っています。
(3)検索に引っかかるデータはその一覧表の左から2番目(商品名)の列です。
(4)該当するセルがある行の左から3番目のデータ

と、

＞Range("A1:J1000")

では、設定が違います。
「一覧表の左から2番目」がＢ列の事なら、
Range("B1:J1000")と指定（検索列が１列目になるように範囲指定）する必要があります。

「左から3番目」がＣ列（Ｂ列の隣）になるなら、
VLookup(TextBox1.Value, RangeA, 2, False)
と指定する必要があります。
"2"は、指定範囲から２列目の意味です。

お礼

hana-hana3様

前回バーコードの時もお世話になりました。
今回もありがとうございます。

早速、ご指導の通り修正してトライしてみました。
「表示されました!」
ありがとうございました。