Windows8 & Office2013 Excel2013

Print Friendly

セルをダブルクリックして検索

投稿日:

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

ワークシート名が[名簿]と[組織表]というブックがあります。[名簿]シートの名前を[組織表]シートのどこにあるかを検索します。検索したい文字列のセルをダブルクリックします。
名簿シート

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

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

スポンサーリンク

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


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

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

VBA

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

そして、[名簿]シートの[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)
文字列の先頭の空白を取り除きます。

お勧め記事と広告

関連記事

便箋のような罫線を引いた用紙を作成したい

Wordで下のように便箋のような罫線を引いた用紙を作る方法です。 新規文書でEnterキーを連打して、段落記号を罫線を引きたい範囲に表示しま ...

重複しないデータの個数を求める

Accessのフォームに重複しないデータの個数を表示する方法を紹介します。 下のようにフォームヘッダーのテキストに部署数の重複しない個数を表 ...

ファイルのパスをコピーする

Office2013では、ファイルのパスを簡単にコピーしたり、その保存場所を開くことができます。Office2010も、バックステージビュー ...

起動時にデスクトップを表示する

Windows8.1では、起動にデスクトップを表示する設定があります。 デスクトップを表示して、タスクバーの何もないところで右クリックします ...

送受信の間隔を設定する

Outlook2013で送受信の間隔を設定する方法です。 [送受信]タブの[送受信]グループにある[送受信グループ]から[送受信グループの定 ...

-Windows8 & Office2013 Excel2013

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

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