【エクセルVBA】ユーザーフォームのリストボックスを使ってみよう！

皆様こんにちは、ノグチです。

エクエルのユーザーフォームを作って使ってみることを目標に、連載記事でユーザーフォーム上のコントロールのプロパティやイベントをご紹介しています。

前回は、コマンドボタンのClickイベントで、ワークシートの値を、テキストボックスに入力されている値で更新する方法をご紹介しました。

ここまでテキストボックスに関係したイベントばかりをご紹介していましたので、今回からはリストボックスをご紹介していきたいと思います。

リストボックス編初回の今回は、ユーザーフォームにリストボックスを追加する方法と、よく使うプロパティをいくつかご紹介していきますよ！

前回までのおさらい

前回までに作成したユーザーフォームがこちら。

テキストボックスとラベルが2つずつと、コマンドボタンが1つ配置されていますね。

今までの記事では、この2つのテキストボックスを連動させたり、値をワークシートに転記してみたりしていましたが、今回はからは、画面の下側にあるテキストボックスをリストボックスに置き換えていきましょう。

そもそもリストボックスってどんなものなの？というところから見ていきましょう。

リストボックスは、こんな見た目をしています。

テキストボックスのような見た目のコントロールに、値がリスト形式で並んでいますね。

リストボックスは、図のように表示したい値をリスト形式で表示して、入力者に任意の値を選択させることができるコントロールです。

まずは、フォームにリストボックスを追加していきましょう。

もともとあったテキストボックスは一旦削除しておいたので、フォームはこのようになっています。

では、もともとテキストボックスがあった場所に、リストボックスを追加してみましょう。

ツールボックスを開いて、リストボックスのアイコンをクリックします。

マウスカーソルの形が「+」になったら、フォーム上でリストボックスを追加したい場所でドラッグすれば…

この通り、リストボックスがフォームに追加されます。

リストボックスの縦の大きさに合わせる為に、フォーム全体の縦の大きさも少し大きくしておきました。

ツールボックスが画面に表示されていない！という方は、こちらの記事で表示方法をご紹介していますので、併せてご覧ください。

フォームやテキストボックス、リストボックスなどのコントロールは、任意のオブジェクト名を付けられるのでしたね。

今回追加したリストボックスにも、オブジェクト名をつけておきましょう。

リストボックスのプロパティを開いて…

プロパティシートの先頭にある、「(オブジェクト名)」という項目の値を変えれば、オブジェクト名の命名完了です。

今回追加したリストボックスには、「ListRegion」というオブジェクト名をつけました。

プロパティシートを見てわかるように、リストボックスにも多くのプロパティがあります。

今回追加したリストボックスを便利に使えるように、プロパティの設定をしていきましょう。

今回は、プロパティシートの中でもよく使うものをいくつかピックアップしてご紹介していきますよ。

まずは、リストボックスに表示させる値を設定するプロパティ、RowSourceプロパティです。

例えば、こちらのリストのB列をリストボックスに表示させたい場合。

このRowSourceプロパティに「B2:B7」をセットすれば…

この通りリストボックスに、指定したワークシートの範囲にある値が表示されます。

お次は、リストボックスに表示されている値を、複数選択できるようにするかを設定する、MultiSelectプロパティです。

このプロパティに設定できる値と、それぞれの動作は以下の3通りです。

リストボックスの用途に合わせて、値の選択方法を選べますね。

設定値	動作
0 – fmMultiSelectSingle	リストボックスの値を、1つだけ選択できるようにする
1 – fmMultiSelectMulti	リストボックスの値を、Ctrlキーと左クリックで複数選択できるようにする
2 – fmMultiSelectExtended	リストボックスの値を、マウスのドラッグで複数選択できるようにする