|
こんにちは。
この前の続きですが、
下記のコードはuserform1のtextbox1にデータを入力し
同じuserform1に作成したコマンドボタン1をクリックし、
この値を引数としてvlookupで検索した2つの値を、
userform2を開き、userform2上に作成した
textbox1とtextbox2にそれぞれ代入しようとしたものです。
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.Show
TextBox1.Text = result1
TextBox2.Text = result2
End Sub
vlookuoで検索した値が入った状態のuserform2を開きたいのですが、
textbox1.2ともに空白で開いてしまいます。
デバックでは最後のtextbox2.textの部分が黄色になっています。
どなたか解読できたら、教えてください。
よろしくお願い致します。
|
|