エクセル ユーザーフォームでVLOOK
ユーザーフォームのテキストボックスで、ご教示お願いいたします。
現在、以下のようなコードこちらで教えていただきセルに入力をしております。
テキストボックス5に値を入れ、
listのシートから該当する文字をテキストボックス6に表示させたいと思っております。
■現在のコード
'//
Private Sub CommandButton1_Click()
Dim LastRow As Long 'ここはキャメル形式やパスカル形式にします/大文字は定数です。
Dim i As Long
'/テキストボックスに値があるか調べる
For i = 1 To 7
Next i
'/セルに書き込み
With Worksheets("Sheet1")
LastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 7
.Cells(LastRow, i).Value = Me.Controls("TextBox" & i).Value
Next
End With
'/TextBox1-7をクリア
If MsgBox("テキストボックスを空にしてよろしいですか？", vbQuestion + vbYesNo) = vbYes Then
For i = 1 To 7
Me.Controls("TextBox" & i).Value = ""
Next i
End If
'TextBox1にフォーカスを移動
Me.TextBox1.SetFocus
End Sub
■付け足したいコード
Private Sub textbox5_change()
Dim temp, x
temp = Me.textBox5.Value
If IsNumeric(temp) Then temp = Val(temp)
x = Application.VLookUp(temp, Sheets("list").Range("a1:b20"), 2, False)
If Not IsError(x) Then
Me.TextBox6.Value = x
Else
MsgBox Me.TextBox5.Value & " はリストにありません"
End If
End Sub
【質問内容】
付け足したいコードは上記の通りですが、どのように付け足せばいいのかが分からず、
困っております。
度々で申し訳ありませんが、テキストボックス5の値を見て、
テキストボックス6に表示させるやり方をご教示お願いいたします。
お礼
ryuu001さん ありがとうございますm(_ _)m