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

シェアする

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

業務に役立つExcelのデータベースファイリングに、VBAで作成した検索エンジンを5分で簡単に搭載するのを以前記事にしました。今回は登録したマクロをコマンドボタンではなく、エンターキーで実行させる応用編です。もちろん今回もサンプルDL付です。

 はじめに

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

検索エンジン

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

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

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

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

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

そして、下記の応用編は知っていなくとも今回のマクロには差し支えないですが、今回ご用意したサンプルDLが、下記の複数シート同時対応ファイルを使用しています。

是非先にご欄になっておいて下さい。

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

業務に役立つExcelで検索エンジンVBA応用!複数シート同時検索!
業務に役立つExcelのデータベースファイリングに、VBAで作成した検索エンジンを5分で簡単に搭載するのを以前記事にしました。今回は参照するデータベースが複数シート...

検索エンジンをエンターキーで検索を実行

今回使用するサンプルファイルです。

サンプルファイル

検索エンジンシート

データベース①のシート

データベース②のシート

VBAコード

以前ご紹介させて頂いている検索エンジンは、CommandButton1 ボタンで検索させていた為、CommandButton1 へVBAコードを記述していました。

今回は検索ボタンが不必要となる為、検索ボックスとなる、Textbox1 へ直接コードを入れています。

やけに長いコードですが、ほぼ検索エンジンの為の、コードで、エンターキーで実行させる為のコードは、たった3行です。

つまり、

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then

End If

この3行がエンターキーでマクロを実行させる為に必要なコードとなります。

下記、KeyCode一覧表になります。Enter 以外へ実行キーを変更したいのであれば、必要に応じて、13から必要コードへご変更して下さい。

1 マウスの左ボタン 引数 Shift
2 マウスの右ボタン 引数 Shift
3 Cancel Key
4 マウスの中央ボタン 引数 Shift
8 BackSpace Key
9 Tab Key
12 Clear Key
13 Enter Key
16 Shift Key
17 Ctrl Key
18 Menu Key
19 Pause Key
20 CapsLock Key
27 Esc Key
32 Space Key
33 PageUp Key
34 PageDown Key
35 End Key
36 Home Key
37 Key
38 Key
39 Key
40 Key
41 Select Key
42 PrintScreen Key
43 Execute Key
44 Snapshot Key
45 Ins Key
46 Del Key
47 Help Key
144 NumLock Key

実行の流れ

検索エンジンでは

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

検索データベース①からの検索結果が、Listbo1抽出出力されると同時に、macro2 が呼び出され検索データベース②から検索実行されます。OKの決定も全てエンターキーです。

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

 ダウンロードファイル

ダウンロードExcelファイル

“Excelファイル Enterでマクロの実行” をダウンロード Searchengine-3.xlsm – 23 回のダウンロード – 84 KB

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

   最後に

今回の応用編は、前回の業務に役立つ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会計年度データの抽出に役立つ、会計年度の計算式を日付列をもとに求めま...


スポンサーリンク

トップへ戻る