リンクユニット

Windows8 & Office2013 Excel2013

セルをダブルクリックして【検索と置換】ダイアログボックスを表示して検索

投稿日:2017年1月7日 更新日:

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

ワークシート名が[名簿]と[組織表]というブックがあります。[名簿]シートの名前を[組織表]シートのどこにあるかを検索します。検索したい文字列のセルをダブルクリックします。
名簿シート [組織表]シートに切り替わります。それと同時に[検索と置換]ダイアログボックスが表示されます。[検索と置換]ダイアログボックスの[検索する文字列]には、[名簿]シートで選択したセルの文字列が入力されています。
検索と置換ダイアログボックス

そのまま[検索と置換]ダイアログボックスの[次を検索]ボタンをクリックします。[組織表]シート内のセルが選択されます。
検索

参考にさせていただいたサイトです。(^人^)感謝♪
『マクロで検索をだすには』(初心者) エクセル Excel [エクセルの学校]

[開発]タブの[Visual Basic]

[開発]タブの[Visual Basic]をクリックします。
参考[開発]タブが表示されていない場合は、開発タブの表示を参照して設定してください。
開発タブ

標準モジュールに入力

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

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

[Worksheet]の[BeforeDoubleClick]へ入力

そして、[名簿]シートの[BeforeDoubleClick]に以下の赤枠内のコードを入力します。[Worksheet]と[BeforeDoubleClick]は、▼ボタンをクリックして選択してください。

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
Call 名簿から検索
Cancel = True

End Sub

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

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

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

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

MOJI = LTrim(ActiveCell.Value)

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

参考Officeのバージョンによって操作が異なる場合があります。以下の記事で、お使いのOfficeのバージョンを確認する方法を解説しています。

Office(Word、Excel、PowerPointなど)のバージョンを確認する方法

Microsoft Officeも時を得て、大きく様変わりしてきました。トラブルを解決しようとするとき、あるいは、何かの操作を探すときなど、 ...

続きを見る

Excelを学習するなら、お勧めのテキストです。見やすい!分かりやすい!時短のための一冊です。

おすすめ記事と広告

こんな記事もあります

Do Not Trackの有効/無効

IE10のインターネットオプションには、[常にDo Not Trackヘッダーを送信する]というチェック項目があります。 インターネットオプ ...

配置ガイドの表示/非表示

Word2013の新機能です。 Word2013では、図形や画像、テキストボックス、ワードーアートを移動させる時に余白の境界線やページの中央 ...

別フォームのサブフォームを更新する

Accessで現在開いているフォームを閉じる時に、別フォームのサブフォームを更新したい場合の方法です。 サブフォームの作成については、サブフ ...

閲覧モードで開かないようにする

Word2013の新機能です。 旧バージョンで作成済みのファイルなどををWord2013で開くと、[閲覧モード]で表示されることがあります。 ...

コマンドボタンをポイントした時のカーソルを指の形にするには

Access2007からの機能なのですが、あまり知られていないようなので紹介します。コマンドボタンをポイントした時のマウスポインタの形を指の ...

-Windows8 & Office2013 Excel2013

Copyright © 2001-2018 初心者のためのOffice講座 All Rights Reserved.

Copyright© 初心者のためのOffice講座 , 2018 AllRights Reserved Powered by AFFINGER4.