いくつかの問題の前に、[検索と置換]ボックスを表示し、[範囲内]ドロップダウンリストを[シート]に設定する方法に関するヒントが表示されました。当時、VBAには、Ctrl + Fを押したときに表示されるのと同じ[検索と置換]ダイアログボックスを表示する方法がなかったため、実際にこれを実現する方法がなかったと報告しました。

先週、寛大な_ExcelTips_サブスクライバーの貢献のおかげで、これを行う方法を見つけました。次のマクロは、タスクを実行する方法を示しています。

Sub DoBox()

ActiveSheet.Cells.Find What:="", LookAt:=xlWhole     Application.CommandBars("Worksheet Menu Bar").FindControl( _       ID:=1849, recursive:=True).Execute End Sub

Findメソッドを使用すると、[検索と置換]ダイアログボックスでさまざまなパラメータを設定できます。次に、CommandBarsオブジェクトにアクセスして、ダイアログボックスを実際に表示します。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（2486）は、Microsoft Excel 97、2000、2002、および2003に適用されます。