Excel VBA質問箱 IV

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

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


43481 / 76735 ←次へ | 前へ→

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

引用なし
パスワード
   テキストボックス『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
y1 = yuu11.Value
y2 = yuu12.Value
yyy = yy1 & yy2
Worksheets("一覧").Select
With Worksheets("一覧").Range("a1:c65000")
Set yad = .Find(yy)
If yad Is Nothing Then
MsgBox ""
Else
juu1 = yad.Value
End If
End With
End Sub
よろしくお願いいたします。
0 hits

【38301】テキストボックスへの反映がうまくいきません 初心者です。 06/5/31(水) 8:30 質問
【38302】質問のコード内容の訂正 初心者です。 06/5/31(水) 8:36 質問
【38311】Re:質問のコード内容の訂正 Jaka 06/5/31(水) 10:48 発言
【38366】ありがとうございます(^O^) 初心者です。 06/5/31(水) 22:31 お礼

43481 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free