エクセル_検索機能で、検索場所と検索対象を固定したい

エクセルの検索機能を使用しようと開くと、常に「検索場所：シート」「検索対象：数式」となっています。
あるデータファイルのみ、検索機能を開くと、常に「検索場所：ブック」「検索対象：値」にしたいのです。
ネットで色々調べた結果、以下の書き方で、検索ダイアログボックスが開くことがわかったのですが、
「検索場所」と「検索対象」の指示の仕方がわからないのです。

どうすれば、良いでしょうか。どうぞよろしくお願い致します。

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

質問者からの補足コメント

• 

  回答ありがとうございます。
  このまま使用したらできました。
  でも、「半角と全角を区別する」にチェックが自動的に入るのです。
  チェックなしで作りたいのですが、どうすれば良いでしょうか。
  すみません。よろしくお願い致します。

  No.1の回答に寄せられた補足コメントです。 補足日時：2016/01/22 18:06

No.2 ベストアンサー 回答者： d-q-t-p 回答日時： 2016/01/22 19:32

#1です。

あれ。そんなところにチェックが入りますか。

Sub 検索()
Cells.Find "", , xlValues, , , , , False
CommandBars.FindControl(ID:=1849).Execute
Application.SendKeys "%T{TAB 2}{DOWN 2}%D{TAB}"
Application.SendKeys "%T{TAB 2}{DOWN 2}%D{TAB}"
End Sub

これでどうですか？

この回答へのお礼

回答ありがとうございます。できました。
すごいですね。
お早い対応、とても助かりました。
本当にありがとうございました。

お礼日時：2016/01/23 00:56

No.1 回答者： d-q-t-p 回答日時： 2016/01/22 16:29

自分でそれ用の検索フォームを作った方が早いのでは？

Sub 検索()
Cells.Find "", , xlValues
CommandBars.FindControl(ID:=1849).Execute
Application.SendKeys "%T"
Application.SendKeys "{TAB 2}{DOWN 2}%D{TAB}"
Application.SendKeys "%T"
Application.SendKeys "{TAB 2}{DOWN 2}%D{TAB}"
End Sub

これでいいならこれで。