2019年10月24日Excelでセルをダブルクリックして、[検索と置換]ダイアログボックスを表示して、そのセル内の文字列で検索するマクロです。マクロの内容ワークシート名が[名簿]と[組織表]というブックがあります。[名簿]シートの名前を[組織表]シートのどこにあるかを検索します。検索したい文字列のセルをダブルクリックします。[組織表]シートに切り替わります。それと同時に[検索と置換]ダイアログボックスが表示されます。[検索と置換]ダイアログボックスの[検索する文字列]には、[名簿]シートで選択したセルの文字列が入力されています。そのまま[検索と置換]ダイアログボックスの[次を検索]ボタンをクリックします。[組織表]シート内のセルが選択されます。参考にさせていただいたサイトです。Basic]をクリックします。参考[開発]タブを表示されていない場合は、開発タブの表示を参照して設定してください。標準モジュールに入力[挿入]メニューから[標準モジュール]をクリックして、に以下のように書き込みます。Sub[組織表]シートではなく、すべてのシートを対象にする場合は、[Worksheets.select]とします。[Worksheet]の[BeforeDoubleClick]へ入力そして、[名簿]シートの[BeforeDoubleClick]に以下の赤枠内のコードを入力します。[Worksheet]と[BeforeDoubleClick]は、▼ボタンをクリックして選択してください。これで、[名簿]シートでダブルクリックすると、[名簿から検索]マクロを呼び出すことができます。「検索と置換」ダイアログボックスの検索文字列のテキストボックスにも空白スペースが入り、「次を検索」ボタンを押す前に空白スペースを削除しなければなりません。ActiveCell.Value]を以下のように書き換えてください。LTrim(ActiveCell.Value)文字列の先頭の空白を取り除きます。2年ほど前に作っていたのですが、何かとお役立ちなので紹介させていただきました。お役に立てれば幸いです。AFFINGER4.。