|
コードを書き間違えたので再度訂正して質問させていただきます。申し訳ございません。
テキストボックス『juu1』にテキストボックス『yuu11』、『yuu12』に入力した文字列(どちらも値は数字)をつなげた『yyy』をワークブックの『一覧』から検索した結果を『yuu12』を入力したタイミングで表示させたいのですがうまくいきません。ご指導よろしくお願いいたします。
Private Sub yuu12_AfterUpdate()
Dim yyy As String
Dim yad As Variant
Dim yy1 As String
Dim yy2 As String
yy1 = yuu11.Value
yy2 = yuu12.Value
yyy = yy1 & yy2
Worksheets("一覧").Select
With Worksheets("一覧").Range("a1:c65000")
Set yad = .Find(yyy)
If yad Is Nothing Then
MsgBox ""
Else
juu1 = yad.Value
End If
End With
End Sub
よろしくお願いいたします
|
|