エクセル マクロ コード

質問

マクロに入力するコードで
「検索ダイアログ」のコードをご存知の方は
いらっしゃいませんか？

過去質問にも見当たりません・・・

エクセル2002

回答No.1

mshr1962 · ベストアンサー

検索ダイアログの表示だけならショートカットキーが存在します。
Ctrl+F

VBA内で自動検索するのであればFindメソッドですね。
下記はヘルプの使用例
Set fc = Worksheets("Sheet1").Columns("B").Find(what:="Phoenix")
MsgBox "最初に見つかったセル: " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindNext(after:=fc)
MsgBox "次のセル: " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindPrevious(after:=fc)
MsgBox "前のセル: " & fc.Address

お礼

ご返答ありがとうございます！
さっそく試してみます。ありがとうございました。