ＥＸＣＥＬマクロで全シート対象の検索マクロを教えて

ＥＸＣＥＬマクロで全シート対象の検索マクロを教えてください。
アプリケーションダウンロードタイプでも自作マクロの
どちらでもよいです。

No.1 ベストアンサー 回答者： imogasi 回答日時： 2006/03/08 23:35

無力のため、いつもFind、FindNextには苦労するのですが、思い切ってあげてみます。

VBAの経験がおありなら、欠点は修正してもらえるかもと思って。
標準モジュールに
Sub test01()
s = InputBox("検索文字列＝")
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
Set x = sh.Cells.Find(what:=s)
If x Is Nothing Then GoTo p1
MsgBox sh.Name & x.Address
b = sh.Name & x.Address
sh.Activate
x.Activate
'---
Do
Set y = sh.Cells.FindNext(after:=ActiveCell)
If y Is Nothing Then GoTo p1
If sh.Name & y.Address = b Then GoTo p1
MsgBox sh.Name & y.Address
y.Activate
Loop
p1:
Next
End Sub
シート名タブの左側のシートから探していきます。
上記はMggBoxで表示にしてますが、特別セルにセルアドレス値を出すなど適当に修正してください。
少数例でテストしてますが、十分テストしてください。

この回答へのお礼

ありがとうございます。
カスタマイズは、させていただけるなら
させていただきます。
お忙しいところ、どうもありがとうございました。

お礼日時：2006/03/09 07:44

No.2 回答者： shikisaito 回答日時： 2006/03/09 00:37

あくまでも、マクロですか。

で、あれば、以下は無視してください。

標準機能だけでできます。(Excel2003で確認)
・[編集]-[検索]-[検索]-[検索場所]で「ブック」を選択
・全シートを選択した後、[編集]-[検索]

この回答へのお礼

すみません。
２０００です。
今回はマクロで実行してみます。
ありがとうございました。

お礼日時：2006/03/09 07:46