|
はじめ さん、こんにちわ。
>この前の続きですが、
>下記のコードは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
'省略するとどうなっているか確認してみてください
MsgBox TextBox1.Parent.Name
'親オブジェクト(フォーム)を明示
UserForm2.TextBox1.Text = result1
UserForm2.TextBox2.Text = result2
>
>End Sub
>
>vlookuoで検索した値が入った状態のuserform2を開きたいのですが、
>textbox1.2ともに空白で開いてしまいます。
>デバックでは最後のtextbox2.textの部分が黄色になっています。
他の部分は見ていませんが、ここが黄色という事は、userform1にtextbox2が無いからでしょう。
|
|