|
おはようございます
▼ボタン さん:
>▼ぱっせんじゃー さん:
>>Findメソッド、FindNextメソッドなどを
>>使用、ではだめでしょうか?
>特定の語句ではなく、その都度入力して探せるようにしたいです。
>上記のメソッドでもできるようですが、VBAは始めたばかりなので、
>それらはこれから覚えていく段階です。
>
>Ctrl+F でいいじゃないかと思われるかもしれませんが、
>ショートカットに詳しくない人でも、
>1つボタンを押すだけで検索が立ち上がる仕様がいいので・・・。
>
>なぜ検索結果が質問のようになってしまうのか、いまだに理解できずにいます。
>引き続きご回答いただけるかたをお待ちしています。
>(ぱっせんじゃー さん、ありがとうございました。)
Sub 検索()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub
これを実行した場合、検索範囲はその時選択されているセルのみのようです
(範囲選択していなければ、現在カーソルのあるセルのみ)
解決策1
見栄えは悪いかもしれませんが、
Sub 検索()
ThisWorkbook.ActiveSheet.Cells.Select
Application.Dialogs(xlDialogFormulaFind).Show
End Sub
としてみる
解決策2
検索範囲を事前に選択しておいてから
Sub 検索()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub
を実行する
|
|