Excel VBA質問箱 IV

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

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


25350 / 76732 ←次へ | 前へ→

【56723】Re:ワークシートをまたがる検索と結果自動入力
発言  Abebobo  - 08/7/2(水) 9:06 -

引用なし
パスワード
   まっつん さん おはようございます。
Findで こんな感じで作ってみました。

Sub kensaku()
Dim Mycell As Range
Dim FoundA As Range
Dim FoundB As Range

For Each Mycell In Worksheets("Sheet1").Range("B2:B110")
 ' ↓ 検索して見つかったセルを、変数FoundA に入れる
 Set FoundA = Worksheets("Sheet2").Range("A2:A110").Find(CStr(Mycell.Value))
 If Not FoundA Is Nothing Then '入ったかどうかの確認
  Mycell.Offset(0, -1).Value = FoundA.Row & "A"
 End If
 Set FoundB = Worksheets("Sheet3").Range("A2:A110").Find(CStr(Mycell.Value))
 If Not FoundB Is Nothing Then
  If Mycell.Offset(0, -1).Value = "" Then
   Mycell.Offset(0, -1).Value = FoundB.Row & "B"
  Else
   Mycell.Offset(0, -1).Value = Mycell.Offset(0, -1).Value & "/" & FoundB.Row & "B"
  End If
 End If
Next Mycell
End Sub
0 hits

【56722】ワークシートをまたがる検索と結果自動入力 まっつん 08/7/2(水) 0:52 質問
【56723】Re:ワークシートをまたがる検索と結果自動... Abebobo 08/7/2(水) 9:06 発言
【56726】Re:ワークシートをまたがる検索と結果自動... まっつん 08/7/2(水) 10:53 お礼
【56725】Re:ワークシートをまたがる検索と結果自動... Yuki 08/7/2(水) 10:20 発言
【56727】Re:ワークシートをまたがる検索と結果自動... まっつん 08/7/2(水) 11:01 お礼

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