ExcelデータをUserFormへ

質問

教えて下さい！

今、UserFormに【TextBox1】・【TextBox2】・【TextBox3】・【CommandBottum1】があります。
【TextBox3】にExcelの「No.」を入力して【CommandBottum1】（検索）をクリックしたら【TextBox1】に「商品名」・【TextBox2】に「金額」を表示させたいのですが、どのように行えばよいでしょうか？
ちなみに、データは1～7行目までブランク、8行目はタイトル、9行目から始まります。

　　　　Ａ　　　　Ｂ　　　　Ｃ
1
・
・
8　　　No. 　 商品名 　　金額
9　　　1　　　○○○○　　　80
10 　　2　　　△△△△　　 100
11 　　3　　　××××　　 150
12 　　4　　　■■■■　　 200　
13 　　・　　　　・　　　　 　　　・
14 　　・　　　　・　　　 　　　　・　
・　 　　・　　　　・　　　　　　　・
・ 　　　・　　　　・　　　　　　　・

回答No.1

hana-hana3 · ベストアンサー

検索しなくても、開始行が決まっていれば足し算すれば任意の行を指定出来ます。
検索したいなら、MATCH関数を使って一致する行を取得する方法もあります。

Private Sub CommandButton1_Click()

Dim xLine As Long
Dim maxLine As Long

maxLine = Range("A65536").End(xlUp).Row

If IsNumeric(TextBox1.Value) Then
xLine = TextBox1.Value + 8
If TextBox1.Value > 0 And xLine <= maxLine Then
TextBox2.Text = Cells(xLine, 2)
TextBox3.Text = Cells(xLine, 2)
Else
MsgBox "指定された行がありません。"
End If
Else
MsgBox "数値を入れて下さい。"
End If

End Sub

お礼

早速の回答有難うございました！
無事出来ました！