Excel VBA質問箱 IV

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

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


2478 / 13645 ツリー ←次へ | 前へ→

【67801】エクセル検索マクロ 庄子 誠 11/1/10(月) 15:50 質問[未読]
【67805】Re:エクセル検索マクロ kanabun 11/1/10(月) 20:08 発言[未読]

【67801】エクセル検索マクロ
質問  庄子 誠 E-MAIL  - 11/1/10(月) 15:50 -

引用なし
パスワード
   SHEET-1のA1に入力をした文字をSHEET-2, SHET-3, SHEET-4から検索マクロを御教授お願い致します。

【67805】Re:エクセル検索マクロ
発言  kanabun  - 11/1/10(月) 20:08 -

引用なし
パスワード
   ▼庄子 誠 さん:
>SHEET-1のA1に入力をした文字をSHEET-2, SHET-3, SHEET-4から検索

ヒントです
以下の2つのモジュールを組合わせてみてください。

Sub Try1() 'Sheetの巡回
 Dim ws As Worksheet
 For Each ws In Worksheets(Array("SHEET-2", "SHET-3", "SHEET-4"))
   MsgBox "検索範囲は " & ws.UsedRange.Address, , ws.Name
 Next
End Sub

Sub Try2() '指定シートの検索 (Findのヘルプの使用例より)
 Dim ws As Worksheet
 Dim What As String
 Dim c As Range
 Dim firstAddress As String
 
 What = Worksheets(1).Range("A1").Value

 Set ws = Worksheets("SHEET-2")
 With ws.UsedRange
   Set c = .Find(What, LookIn:=xlValues, LookAt:=xlWhole)
   If Not c Is Nothing Then
     firstAddress = c.Address
     Do
       MsgBox c.Address, , c.Value
       Set c = .FindNext(c)
     Loop Until c.Address = firstAddress
   End If
 End With

End Sub

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