|
Private Sub CommandButton1_Click()
Dim result1 As String
Dim result2 As String
result1 = "#N/A!"
On Error Resume Next
result2 = "#N/A!"
On Error Resume Next
result1 = Application.WorksheetFunction.VLookup(Val(Me.TextBox1.Value), ThisWorkbook("sheet2").Range("A:D"), 2, False)
result2 = Application.WorksheetFunction.VLookup(Val(Me.TextBox1.Value), ThisWorkbook("sheet2").Range("A:D"), 3, False)
On Error GoTo 0
UserForm2.TextBox1.Text = result1
UserForm2.TextBox2.Text = result2
UserForm2.Show
End Sub
このように最後の3行を変更してみました。
そうしたら、UserForm2.TextBox1&2に「#N/A!」が両方入って
開きました。
でも、範囲内に確実にデータがあるので、
必ず2列目、3列目の値が返ってくるはずなのです。
WorksheetFunction.VLookup自体
に誤りがあるのでしょうか。
worksheets
|
|