Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41662 / 76732

←次へ　｜　前へ→


	【40149】Re:検索ダイアログについて

ハト - 06/7/7(金) 15:39 -


	引用なし

	パスワード

おはようございます

▼ボタンさん：
>▼ぱっせんじゃーさん：
>>Findメソッド、FindNextメソッドなどを
>>使用、ではだめでしょうか？
>特定の語句ではなく、その都度入力して探せるようにしたいです。
>上記のメソッドでもできるようですが、VBAは始めたばかりなので、
>それらはこれから覚えていく段階です。
>
>Ctrl+F でいいじゃないかと思われるかもしれませんが、
>ショートカットに詳しくない人でも、
>１つボタンを押すだけで検索が立ち上がる仕様がいいので・・・。
>
>なぜ検索結果が質問のようになってしまうのか、いまだに理解できずにいます。
>引き続きご回答いただけるかたをお待ちしています。
>（ぱっせんじゃーさん、ありがとうございました。）

Sub 検索()　
　　Application.Dialogs(xlDialogFormulaFind).Show
End Sub

これを実行した場合、検索範囲はその時選択されているセルのみのようです
（範囲選択していなければ、現在カーソルのあるセルのみ）

解決策１

見栄えは悪いかもしれませんが、

Sub 検索()　
　　ThisWorkbook.ActiveSheet.Cells.Select
　　Application.Dialogs(xlDialogFormulaFind).Show
End Sub

としてみる

解決策２
検索範囲を事前に選択しておいてから
Sub 検索()　
　　Application.Dialogs(xlDialogFormulaFind).Show
End Sub

を実行する

1 hits

▼

【40095】検索ダイアログについて ボタン 06/7/6(木) 21:39