Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

43480 / 76735

←次へ　｜　前へ→


	【38302】質問のコード内容の訂正

初心者です。 - 06/5/31(水) 8:36 -


	引用なし

	パスワード

コードを書き間違えたので再度訂正して質問させていただきます。申し訳ございません。

テキストボックス『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
よろしくお願いいたします

0 hits

▼

【38301】テキストボックスへの反映がうまくいきません 初心者です。 06/5/31(水) 8:30