|
▼りん さん:
こんにちは。
>>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が無いからでしょう。
MsgBox TextBox1.Parent.Name
を追加して実行してみました。
「userform1」というメッセージボックスがでましたが、
やはりuserform2のtextbox1,2は空白で出てきます。
デバックでは「オブジェクトがありません」となります。
userform1にtextbox2は作成していません。
どうしたらuserform2のtextbox1,2にvlookupで検索した値が
反映されるのでしょうか。
|
|