検索文字列のセルをダブルクリックして［検索と置換］を表示

Excelで検索したい文字列のセルをダブルクリックして、［検索と置換］ダイアログボックスを表示して、そのセル内の文字列で検索するマクロです。

マクロの内容

ワークシート名が［名簿］と［組織表］というブックがあります。

［名簿］シートの名前を［組織表］シートのどこにあるかを検索します。

検索したい文字列のセルをダブルクリックします。

［組織表］シートに切り替わります。

それと同時に［検索と置換］ダイアログボックスが表示されます。

［検索と置換］ダイアログボックスの［検索する文字列］には、［名簿］シートで選択したセルの文字列が入力されています。

そのまま［検索と置換］ダイアログボックスの［次を検索］ボタンをクリックします。

［組織表］シート内のセルが選択されます。

参考にさせていただいたサイトです。

(^人^)感謝♪

『マクロで検索をだすには』（初心者） エクセル Excel ［エクセルの学校］

［検索と置換］ダイアログボックスを呼び出すマクロを作成

［開発］タブの［コード］グループにある［Visual Basic］をクリックします。

または、ショートカットキー［Alt］+［F11］を使用します。

参考［開発］タブを表示していない場合は、以下の記事を参照してください。

標準モジュールに入力

［挿入］メニューから［標準モジュール］をクリックして、に以下のように書き込みます。

［組織表］シートではなく、すべてのシートを対象にする場合は、［Worksheets.select］とします。

ダブルクリックで作成済みのマクロを呼び出し

そして、［名簿］シートの［BeforeDoubleClick］に以下の赤枠内のコードを入力します。

［Worksheet］と［BeforeDoubleClick］は、▼ボタンをクリックして選択してください。

これで、［名簿］シートでダブルクリックすると、［名簿から検索］マクロを呼び出すことができます。

検索文字列の先頭の空白スペースを削除

検索元のセルの先頭に空白スペースがあると、

「検索と置換」ダイアログボックスの検索文字列のテキストボックスにも空白スペースが入り、「次を検索」ボタンを押す前に空白スペースを削除しなければなりません。

こういう場合は、［MOJI = ActiveCell.Value］を以下のように書き換えてください。

文字列の先頭の空白を取り除きます。

2年ほど前に作っていたのですが、何かとお役立ちなので紹介させていただきました。

少しでもお役に立てれば幸いです。

参考マクロはほかのブックで実行できるようにアドインにしたり、個人用マクロブックに保存することもできます。