EXCEL 検索時の設定

EXCEL2003を使用しています。
検索する時、オプションの『セル内容が完全に同一であるものを検索する』がオンになってたりオフになってたりで、わずらわしさを感じています。デフォルトでオフの設定にする方法がありましたら教えて下さい。

No.2 回答者： xls88 回答日時： 2009/06/03 08:29

Sub test2()

　　Dim TempObject As MSForms.DataObject
　　
　　Set TempObject = New MSForms.DataObject
　　With TempObject
　　　　.GetFromClipboard
　　　　ActiveCell.Find What:=.GetText, LookIn:=xlValues, _
　　　　　　MatchCase:=False, LookAt:=xlPart, MatchByte:=False
　　End With
　　Excel.Application.CommandBars.FindControl _
　　　　　　　　(msoControlButton, 1849).accDoDefaultAction
　　　　
　　Set TempObject = Nothing
End Sub

この回答への補足

有難うございます。とても早く回答して下さったのに、お礼が遅くなって申し訳ありません。
会社であまり時間が取れないため、帰宅してから検証させて頂いたのですが、『コンパイルエラー：ユーザ定義型は設定されていません』と出てしまいます。会社のPCはEXCEL2003ですが、自宅のPCは2002なので、そのせいでしょうか？明日、会社でもう一度やってみます。
エクセルの検索は頻繁に行わなければならない仕事なので、もし検索文字列をコピー後、ショートカットキーを押しただけで検索対象に行きつけたとしたら、ものすごい感動です(笑)

補足日時：2009/06/03 21:21

No.1 回答者： xls88 回答日時： 2009/06/03 03:20

＞デフォルトでオフの設定にする方法がありましたら教えて下さい。

無いと思います。

VBAで、「検索」ダイアログを起動すればどうでしょうか。
Findメソッドのパラメータで、LookAt:=xlPart が
『セル内容が完全に同一であるものを検索する』がオフの設定です。

Sub test1()
　　ActiveCell.Find What:="検索", LookIn:=xlValues, _
　　　　　　MatchCase:=False, LookAt:=xlPart, MatchByte:=False
　　Excel.Application.CommandBars.FindControl _
　　　　　　　　(msoControlButton, 1849).accDoDefaultAction
End Sub

上記に、ショートカットキーを割り当てればよいと思います。

この回答への補足

済みません、置換の時はこのコマンドは必要ないんでした;
お礼欄の置換についての質問は無視して下さい。

補足日時：2009/06/03 07:43

この回答へのお礼

有難うございます。とても助かりますv
追加質問で申し訳ないのですが、
"検索"のところに『クリップボードの内容』を入れる事が出来ないでしょうか？
また、置換の時はどの辺を変えればよいでしょうか。

お礼日時：2009/06/03 07:29