【実践1-2】同一Excelブック内のシートからSQLでデータを取得する

画面上部の「挿入」タブ ＞「図」＞「図形」を順番に選択して、角丸の四角形を挿入します。

挿入した図形を選択し、「図形の書式」タブ ＞「図形の効果」＞「標準スタイル」の順に選びます。

色も選びましょう。

「図形の書式」タブ ＞「図形の塗りつぶし」＞「塗りつぶしの色」＞「色の設定」画面から目当ての色を選びましょう。

枠線も同様です。「図形の書式」タブ ＞「図形の枠線」＞「塗りつぶしの色」＞「色の設定」画面から目当ての色を選びます。

ボタンっぽく見えれば、形状や色はなんでも良いです。今回は少し立体的な形と淡い緑にしてみました。このカスタマイズは自由自在です。Excelの強みかもしれませんね。

色やデザインでテンションがあがる人は、自分のお気に入りのデザインを作ってみてください。プログラミングへのモチベーションが下がらないことが大切です。

あとは、枠線が不要なので、枠線を外しておきましょう。「ページレイアウト」タブ ＞「枠線」の「表示」のチェックを外します。

「仕入データ検索」ボタンを右クリック ＞「マクロの登録」をクリックします。

「マクロ名」に〇〇_Clickと自動表示されます。この名前がプログラムとボタンを紐づける役割を果たします。後で変更できますが、この「マクロの登録」に記載したマクロ名とプログラム名が一致しないと紐づかなくなるので注意が必要です。

突然、別の画面が表示されたと思います。この画面はVBEというVBAを作成、編集するためのツールになります。この画面に先ほど登録したマクロ名で、

　　Sub 〇〇_Click()
　　　　～
　　End Sub

と何やら自動で作成されていることが分かります。

この～の部分がボタンをクリックした時に呼び出される処理になります。そして、〇〇_Clickがボタンと紐づくキーになります。ちなみに記載のように〇〇_Clickの_Clickは動作を意味します。ここでは、クリックした時の動作ということです。

本当に処理されるのか、簡単なプログラムを作成してみましょう。

以下のプログラムをSub 〇〇_Click() ～ End Subの～の部分に記入してみてください。このプログラムは、「表示されるかな？」と書かれたメッセージボックスを表示するものです。

MsgBox "表示されるかな？"

「仕入データ検索」ボタンをクリックしてみてください。ポップアップが表示されたら、クリックという動作と紐づいた　MsgBox “表示されるかな？”　が呼び出されたということです。

VBEを開きましょう。Excel画面上部の「開発」タブを開き、「Visual Basic」を選択します。

VBEが開いたら、画面に「プロジェクト -VBAProject」と表示されています箇所があります。ここは「プロジェクトエクスプローラー」という箇所です。この範囲であればどこでも良いので、右クリックして「挿入」＞「ユーザーフォーム」を選択しましょう。

「プロジェクトエクスプローラー」に“UserForm1”が挿入されます。

後ほど、このUserForm1が「仕入データ検索」ボタンのクリックで呼び出されるようにします。

ユーザーフォームを好みの表示にカスタマイズしていきましょう。

その前に操作がしやすいように画面配置を変えます。

先ほど使用した「プロジェクトエクスプローラー」や下画面の「プロパティ」は簡単に移動できます。タイトル部分をクリックしたまま、マウスを動かしてみましょう。

「プロパティ」が幽体離脱のように白透明で表示されます。

「プロジェクト」のタイトルあたりでドラッグをやめると「プロジェクト」と「プロパティ」の配置が入れ替わります。

「プロパティ」画面が「プロジェクト」画面のサイズに縮小されるので、引き伸ばして見えやすくしましょう。

ユーザーフォームを作成していく際、右側のユーザーフォーム本体を直接さわります。ただ、細かい位置の調整や色、制限に関しては、「プロパティ」で変更していきます。

では、ユーザーフォームを作成していきましょう。

各項目は、英語で表示されているので分かりにくいかもしれません。一例として、以下のような設定があります。

なお、これらの設定は、プログラムで変更したり、中身を取得したりできます。その際、重要になってくるのが「オブジェクト名」です。「オブジェクト名」は後ほどユーザーフォームを呼び出す際にも使用します。

今回は、ユーザーフォームの設定を次のように変更しています。

「プロパティ」の設定変更は、ダイレクトに右のオブジェクト画面に反映されます。

早速、「ラベル」から追加していきます。「ラベル」は項目のタイトルなどに使用します。応用として、プログラムで表示内容を変えることも可能です。

ちなみに、プロパティの(オブジェクト名)と記載された名称は、このラベルを特定するためのIDで他のコントロールと被ってはいけません。本当は、複数人でプログラミングする場合などを考えて、オブジェクト名を統一して管理した方が良いのですが、ここでは使用するコントロールのみ(テキストボックスなど)に名前を付けています。それ以外は、デフォルトのまま使用します。

フォントは、プロパティの…をクリックすると、Excel標準のフォント設定が表示されます。好みのフォント名やサイズに設定しましょう。

次にテキストボックスを設定します。ラベルと同じようにテキストボックスを追加しましょう。

テキストボックスの値は、検索条件として使用します。そのため、識別名はプログラム内で使用することを考え、分かりやすい表示にしましょう。

ここでは、「txt_Start_Date」としています。txtでテキストボックスを表し、自分で分かるように英単語を使用しています。文字間の空白は_(アンダーバー)で埋めています。

なお、VBAは日本語名も使用できます。その方が分かりやすいですが、VBA以外のプログラミングも挑戦する方は、英語表記などで統一しておいた方が楽かもしれません。

余談ですが、図の「⑤入力文字数を制限」や「⑥初期値を設定」を使用すれば、テキストボックスの入力を制御できます。一般的にバリデーションと呼ばれるものです。用途にあわせて、“〇文字しか入力させない”とか“数字のみ入力許可”といった制限がかけられます。

バリデーションはプロパティを使わず、プログラムで制御することもできます。プログラムの方ができる幅が広いので、慣れてきたらプログラムで制御することをおすすめします。

1つ基準となるコントロールの設定ができたら、それをコピーします。

ユーザーフォームの貼り付けたい箇所を右クリック＞「貼り付け」でテキストボックスがコピーできます。

コントロールをコピーして作成すると、コピー元のサイズや色、制限などを引き継ぎます。

ただし、(オブジェクト名)はユーザーフォーム内で被ってはいけないので、“TextBox1”など初期値が設定されます。そのため、何でも良いので、識別できる名前を付けましょう。

先ほど説明したコピー＆ペーストで、「ラベル」を追加していきます。作成済みの「ラベル」をコピーして、貼り付けます。必要に応じて、プロパティを変更しましょう。

次は、「テキストボックス」を追加していきます。ラベルと同じようにコピペで複製していきます。

オブジェクト名はプログラム内で使用するので、分かりやすい名前にしましょう。“IMEMode”で入力時の初期設定ができます。あくまで初期設定なので、ユーザ側で切り替えることも可能です。

※数字のみ入力可能(切り替えさせない)にする場合、プログラムと組み合わせる必要があります。

「チェックボックス」を作成していきます。初めて使用するコントロールなので、ツールボックスから挿入します。今回は、“仕入先”、“商品名”のテキストボックスに入力された文字であいまい検索したい時に使用します。

プログラム内で使用するので、分かりやすいオブジェクト名をつけておきましょう。

こちらも初めて使用するコントロールなので、ツールボックスから挿入します。プログラム内で使用するので、こちらにも分かりやすいオブジェクト名をつけておきましょう。

プログレスバーは、処理の進捗状況を視覚的に表現したものです。初期設定ではツールボックスに入っていないので、追加しましょう。

ツールボックスを右クリックし、「その他のコントロール」をクリックします。「コントロールの追加」画面が表示されるので、「Microsoft ProgressBar~」にチェックを入れて、「OK」をクリックしましょう。

ちなみに、プログレスバー以外にも多くのコントロールが用意されています。必要に応じて追加可能です。

追加したプログレスバーをツールボックスから貼り付けます。後ほどプログラム内で使用するので、オブジェクト名を設定しておきましょう。

ユーザーフォームを呼び出すために、“標準モジュール”というプログラムの集まりを作成します。作成方法を２つ紹介します。

• 「マクロの登録」から「新規作成」で挿入する。
• VBEの「プロジェクトエクスプローラー」で挿入する。

こちらの方法は、１度紹介していますが、復習しましょう。Excelに挿入した図形は、右クリックすると、「マクロの登録」項目が表示されます。これをクリックします。

「マクロの登録」画面が表示されます。

「マクロ名」に〇〇_Clickと自動表示されます。この名前がプログラムとボタンを紐づける役割を果たします。後で変更できますが、この「マクロの登録」に記載したマクロ名とプログラム名が一致しないと紐づかなくなるので注意が必要です。

ここでは、とりあえず「新規作成」をクリックします。

するとVBE画面が表示され、標準モジュールに“Module1”が挿入され、その中身に、

　　Sub 四角形を丸くする3_Click()
　　　　～
　　End Sub

と何やら自動で作成されていることが分かります。

この～の部分がボタンをクリックした時に呼び出される処理になります。そして、四角形を丸くする3_Clickがボタンとひもづけるキーになります。ちなみに記載のように〇〇_Clickの_Clickは動作を意味します。ここでは、クリックした時の動作ということです。

今回は標準モジュール名を「M01_Search_Purchase」と変更してください。そして、“四角形を丸くする3_Click()”を「M01_Search_Purchase_Click()」と変更します。

忘れてはいけないのは、「マクロの登録」側も変更してあげないと標準モジュールとひも付かないということです。

マクロ名を指定するには、以下２つの記載方法があります。

• ファイル名.xlsm!標準モジュール名.モジュール名でひも付ける
  例)【実践１】同一Excelブック内のシートからSQLでデータを取得する.xlsm!M01_Search_Purchase.M01_Search_Purchase_Click
  
• ファイル名.xlsm!モジュール名
  例)【実践１】同一Excelブック内のシートからSQLでデータを取得する.xlsm!M01_Search_Purchase_Click

標準モジュール名は省略できるようですが、複数の標準モジュールを扱うようになると、どこからひも付いているか分からなくなるので、個人的には、標準モジュール名.モジュール名をおすすめします。

もう一つの方法は、VBEで追加する方法です。

赤枠の「プロジェクトエクスプローラー」内であれば、どこでも良いので右クリック ＞「挿入」＞「標準モジュール」をクリック。

“Module1”というデフォルト名で標準モジュールが追加されるので、「プロパティ」画面で名前を“M01_Search_Purchase”に変更する。

細かい説明は、後ほどします。

とりあえず、“「マクロの登録」から「新規作成」で挿入する。”を実施するとモジュールの中身が自動で作成されます。このSub ～ End Subの間に「ユーザーフォーム」を呼び出すプログラムを記載します。

事前に作成したユーザ－フォームのオブジェクト名を使用して、

　　F01_Search_Purchase.Show

と記載すれば、ユーザ－フォームを表示する準備は完了です。