エクセルのマクロでの検索

質問

「編集→「検索」でやるようなことをマクロでやりたいのです。
例えば列Aのデータを検索してそのデータがある行を表示させたいのですが
・同じブック内のシートの同じ列を検索する。
・検索する文字列を含んでいる候補をマクロボタンを押すごとに表示させていく
ということはできるでしょうか。

回答No.2

taisuke555 · ベストアンサー

検索のみしたいのでしょうか？

#1さんのプログラムを少々お借りしての回答です。
#1さんのプログラムは、１回１回検索値を入力しないといけないと思うので、
次を検索を追加してみました。

Sub 検索()
検索値 = InputBox("何を探す？")
Columns("A:A").Select
Selection.Find(What:=検索値).Activate
End Sub

Sub 次を検索()
Selection.FindNext(ActiveCell).Activate
End Sub

エラー処理をしていないので改良が必要です。
（検索を実行後に実行してください）

＞「編集」→「検索」でやるようなこと
そのものずばりは、

Sub 検索2()
Columns("A").Select
Application.Dialogs(xlDialogFormulaFind).Show "検索値"
End Sub

でしょうか？
（検索値にあらかじめ検索したい文字を入れておけば初期表示されます。）

お礼

回答ありがとうございました。何とかすることができました。

回答No.1

AQUALINE

検索だけなら以下のマクロでできますが・・・・。

Sub 検索()
検索値 = InputBox("何を探す？")
Columns("A:A").Select
Selection.Find(What:=検索値, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
End Sub

お礼

回答ありがとうございました。何とかすることができました。