Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7561 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【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
よろしくお願いいたします。
【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
よろしくお願いいたします
【38311】Re:質問のコード内容の訂正
発言  Jaka  - 06/5/31(水) 10:48 -
引用なし
パスワード
   >『yuu12』を入力したタイミング
このタイミングってニュアンスが良く解りません。
Private Sub yuu12_AfterUpdate()
になっているけど、これで良いんですか？
これだと、別のコントロールにフォーカスが移って初めて、AfterUpdateだと思いますが...。

それと、
'Worksheets("一覧").Select　←いらない。
With Worksheets("一覧").Range("a1:c65000")
'Set yad = .Find(yyy)
'↑　省略しすぎると前回使用時の設定を引き継ぐからあまり省略しない。
'　　使用条件がわからないので、こちらで設定したマクロ記録した時のまんまです。
Set yad = .Find(What:=yyy, After:=.Cells(.Count), LookIn:=xlValues, _
　　　　　　　 LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
　　　　　　　 MatchCase:=False, MatchByte:=False)
【38366】ありがとうございます(^O^)
お礼  初心者です。  - 06/5/31(水) 22:31 -
引用なし
パスワード
   Jakaさん、いつも返信を頂きありがとうございます！
アドバイスのおかげうまくいきました。助かりました(^^;)
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7561 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free