業務に役立つExcelで検索エンジンVBA応用!複数シート同時検索!

シェアする

  • このエントリーをはてなブックマークに追加
  • Evernoteに保存Evernoteに保存
  • 0

業務に役立つExcelのデータベースファイリングに、VBAで作成した検索エンジンを5分で簡単に搭載するのを以前記事にしました。今回は参照するデータベースが複数シートに対応した応用編です。もちろん今回もサンプルDL付です。

   はじめに

Excelでデータベース内の集計データを参照するようなファイル構成で、データ行数が、三桁四桁行くような膨大なデータを瞬時に検索し、抽出してくれる、VBA作成版の「検索エンジン」をご紹介させて頂きました。

検索エンジン

前回の記事がこちらです。

業務に役立つExcelで検索エンジンVBAを5分で搭載。DL付。

業務に役立つExcelで検索エンジンVBAを5分で搭載。DL付。
業務に役立つExcelのデータベースファイリングに、VBAで作成した検索エンジンを5分で簡単に搭載出来ます。サンプルDL付です。   はじめにExcelでデータベース内の集計...

基本的な説明と搭載方法については、前回の記事をご覧になって下さい。

よって、ここからは前回の記事を事前にご欄になって頂いた前提で続けさせて頂きます。

複数シートに対応の応用版

複数シートに対する対応方法を二種類ご紹介します。

  1. データベース1シートに対する検索ボタンも1つ。よって2シートのデータベースなら、検索ボタンも2つ3シートなら、検索ボタンも3つとなります。抽出するリストボックスはデータベースが何シートであろうと、1つのボックスへ抽出させます。
  2. データベースが何シートあろうと、検索ボタンは1つで全シートを一度に検索します。ただし、こちらの場合は抽出ボックスは、データベース1シートに対して1ボックスです。データベース2シートなら2ボックスとなります。

1、データベース1シートに対する検索ボタンも1つ

 検索エンジンのシート

サンプルデータベース

データベース①のシート

データベース②のシート

①で検索ボタン CommandButton1 記述コード

②で検索ボタン CommandButton3 記述コード

記述コードの説明

CommandButton1を、検索データベース①から検索させて

Listbox1 へ抽出させています。

検索エンジンでは

検索データベース①から検索した結果が、リストボックスへ抽出されています。

CommandButton3の場合は、検索データベース②から検索させて

CommandButton1と同様に、Listbox1 へ抽出させています。

検索エンジンでは

検索データベース②から検索した結果が、リストボックスへ抽出されています。

2、検索ボタン1つで全シート抽出ボックスはデータベース1シートに1ボックス

検索エンジンのシート

サンプルデータベース

データベース①のシート

データベース②のシート

検索ボタン CommandButton1 記述コード

記述コードの説明

CommandButton1がクリック、実行されると、macro1 と macro2 の呼び出しコードでそれぞれ macro1 ➡ macro2 の順番で実行されます。

macro1で呼び出され、検索データベース①から検索します。

検索データベース①から検索した結果が、Listbo1(上段のリストボックス)へ抽出されています。

macro2で呼び出され、検索データベース②から検索します。

検索データベース②から検索した結果が、Listbo2(下段のリストボックス)へ抽出されています。

検索エンジンでは

Textbox1 で入力して 検索CommandButton1がクリック、実行されると、macro1 からの順番で、まず検索データベース①から検索実行されます。

検索データベース①からの検索結果が、Listbo1抽出出力されると同時に、macro2 が呼び出され検索データベース②から検索実行されます。

検索データベース②からの検索結果が、Listbo2抽出出力されて検索完了です。

検索ボタン1つで全シート抽出ボックスはデータベース1シートに1ボックスの場合、抽出先のListboxを、1つにしてしまうと、macro1 ➡ macro2 の順番で実行される仕様上、抽出結果が上書きされていまいます。

よって、後から実行されるmacro2の抽出結果だけが表示されてしまうので、抽出先のListboxを、データベース1に対して、1ボックス用意する必要があるのです。

 ダウンロードファイル

ダウンロードExcelファイル

“Excelファイル検索エンジン複数シート対応版” をダウンロード Searchengine-2.xlsm – 55 回のダウンロード – 87 KB

  • ご自身で、検索エンジンのシートを作成される方は、設置する各コントロールへ、VBAのコードをコピペして使用して下さい。
  • 一番手っ取り早いのは、ダウンロードして頂いたファイルのデータベースシートを差し替えてもらうのが、一瞬の作業で済みますし、それ以外のデータベースで使う場合もファイルごとコピペして、そのデータベースごとに差し替えて使って頂くのが楽かと思います。
  • Excelに、[開発]タブを入れてない方は、忘れずに[開発]タブを入れておいて下さい。

次の記事 業務に役立つExcel&VBA!エンターでマクロの実行!

業務に役立つExcel&VBA!エンターでマクロの実行!
業務に役立つExcelのデータベースファイリングに、VBAで作成した検索エンジンを5分で簡単に搭載するのを以前記事にしました。今回は登録したマクロをコマンドボタンで...

   最後に

今回の応用編は、前回の業務に役立つExcelで検索エンジンVBAを5分で搭載。DL付。コメント欄で、ご質問頂いた、回答事例を基に記事にしました。

使用される状況によって、用途に合わせた追加希望の項目が出てくるのはそれだけ、ご覧になって頂ける皆さまが実務に取り入れようとして下さる現れだと実感出来ました。

日頃の業務にお役立て頂ければ幸いです。

もちろん、VBA・関数を知っていても、活用出来るか、否かは皆さま次第です。

以上、業務に役立つExcelで検索エンジンVBA応用!複数シート同時検索!でした。

ご視聴ありがとうございました。

合わせて読みたい

業務に役立つExcel&VBA ファイルを連番で印刷。DL付。
業務に役立つExcel&VBA 今回は、印刷コントロールです。任意で設定した連番を付けて、連番枚数だけ印刷される大変便利なマクロをご紹介します。もちろん今回もダウンロ...
業務に役立つExcel&VBA 画像自動リサイズマクロ&データも一括圧縮
業務に役立つExcel&VBA 今回は、画像処理関係です。画像を貼り付けたいセル上でクリックすると、ファイルが開き、選択した画像がセルの大きさに自動でリサイズされる大...
業務に役立つExcel&VBA 数式を判定する関数IsFormulaとその活用。
業務に役立つExcel&VBA 今回は豆知識的な関数。数式を判定する、「IsFormula関数」をご紹介します。この関数は、Excel2013以降、実装された関数で、それ以前のExcelは...
業務に役立つExcel ポインタしたセル行を網掛けたりのVBA
業務に役立つExcelで、今回も大変便利な、ポインタしたセル行を網掛けたり文字の色を変えたり書式が変わる、VBAをご紹介します。置いたセルの行だけがポインタしている...
業務に役立つExcel 文字列の特定文字を消す関数2種類
業務に役立つExcelで、大変便利な、文字列の中で特定の文字だけを削除する関数 2種類ご紹介します。今回もDLファイル付です。はじめにExcelのファイルで、セルへどん...
業務に役立つExcel 選択したリスト項目だけを別リストへ抽出関数。
業務に役立つExcelで、リストで選択した項目のもののみを別リストへ抽出してリスト選択出来るようにする関数です。大変便利です。今回もDLファイル付です。はじめにExce...
業務に役立つExcel COUNTIFSにSUBTOTAL関数を追加
業務に役立つExcelで、COUNTIF関数へSUBTOTAL関数を追加し、さらにCOUNTIFS関数にSUBTOTAL関数を追加するまで昇華させます。今回はちょっとマニアックですが、知ってい...
業務に役立つExcel重複データ最新のみを抽出する関数。DL付。
業務に役立つExcelで、重複するデータの中から最新のみを抽出してくれる(重複しない場合はそのデータを抽出)大変便利な関数複数混合式を紹介します。今回もDLファイル...
業務に役立つExcelデータを列と行で抽出。INDEXとMATCH関数。DL付。
業務に役立つExcelで、作成したデータベースから行と列でピンポイントにデータを抽出してくれる大変便利な関数( INDEX関数とMATCH関数)を紹介します。今回もDLファイル...
業務に役立つExcel選択範囲に一瞬で罫線。DL付。
業務に役立つExcelで任意に選択した範囲へ罫線をマクロボタン一つで自動で挿入してしまう計算式をご紹介します。DLファイル付です。はじめに日頃の業務の中で繰り返し作...
業務に役立つExcel任意行ごとに空白行自動挿入。DL付。
業務に役立つExcelで任意に指定した行数ごとにマクロボタン一つで自動で空白行を挿入していく計算式をご紹介します。DLファイル付です。はじめに日頃の業務で、何百行に...
業務に役立つExcelデータベースを自動で仕訳し抽出。DL付。
業務に役立つExcelで作成したデータベースを、自動で仕訳し別シートへ抽出させる計算式をご紹介します。DLファイル付です。  はじめに この計算式で抽出させる条件とし...
業務に役立つExcelファイル会計年度計算の関数式。DL付。
業務に役立つExcelのファイリングで会計年度計算の関数式です。DLファイル付きです。   Excel会計年度データの抽出に役立つ、会計年度の計算式を日付列をもとに求めま...

スポンサーリンク

シェアする

  • このエントリーをはてなブックマークに追加
  • Evernoteに保存Evernoteに保存

フォローする


スポンサーリンク

トップへ戻る