リストボックス(ListBox)の追加｜Excelユーザーフォーム

最終更新日：2013-02-18

第12回.リストボックス(ListBox)の追加

単一列（１列）の場合は、コンボボックスと同様なので、

今回は、複数列について説明します。

複数列の扱いは、コンボボックスも同様になります。

作成するリストは、都道府県を選択するリストにしてみます。

ラベルとリストボックスを追加します。

Excelサンプル画像

ラベル：lbl都道府県
リスト：lst都道府県

オブジェクト名は上記にしておきます。

リストに表示するのは、

都道府県コードと、都道府県名称の２列になります。

では、リストに追加するには、

・Columnプロパティ
・Listプロパティ
・RowSourceプロパティ

いずれかを使用しますが、一般的には、

RowSourceプロパティかListプロパティで良いでしょう。

Columnプロパティは、Listプロパティと同じ使い方になりますので省略します。

Worksheets("都道府県マスタ")
Excelサンプル画像

このデータをリストに追加します。

Listプロパティ

UserForm_Initializeに以下を追加

With Me.lst都道府県
　　.ColumnCount = 2
　　.List = Worksheets("都道府県マスタ").Range("A2:B48").Value
End With

.ColumnCount = 2

これが列数の指定です。

とりあえず、以下の２列表示されますね。

Excelサンプル画像

でも、列幅がちょっと変ですよね、コード列は狭くしたいところです。

それには、

With Me.lst都道府県
　　.ColumnCount = 2
　　.ColumnWidths = "30;80"
　　.List = Worksheets("都道府県マスタ").Range("A2:B48").Value
End With

このように、列幅を;（セミコロン）で区切って指定します。

数値は適宜修正して下さい。

.ColumnCountもColumnWidthsも、フォーム編集の画面でプロパティに直接入れても構いません。

ただし、プログラムの可読性や拡張性を考えると、コードで指定した方が良い場合が多いと思います。

また、

Worksheets("都道府県マスタ").Range("A2:B48").Value

これは２次元配列になります。

従って、２次元配列を変数定義し、その配列にデータを入れてから、

Listプロパティに配列を指定すれば同じ事になります。

さて、複数列になると、各列の見出しが欲しくなります。

RowSourceプロパティ

With Me.lst都道府県
　　.ColumnCount = 2
　　.ColumnWidths = "30;80"
　　.ColumnHeads = True
　　.RowSource = Worksheets("都道府県マスタ").Range("A2:B48").Address(External:=True)
End With

.ColumnHeads = True

これが列見出しを表示する指定です。

ただし、このプロパティは、RowSourceを指定した場合にのみ有効となります。

RowSourceに指定したセル範囲の１行上のセル値が、見出しとして表示されるようになります。

選択されたリスト項目の取得

セルor変数 = Me.lst都道府県.Text
セルor変数 = Me.lst都道府県.Value

上記では、どちらも都道府県コードが取得されます。

これは、

BoundColumnプロパティ

これが初期値は１になっています。

なので、TextもValueも1列目の都道府県コードが取得されます。

BoundColumn = 2

とした場合は、

Text：都道府県コード
Value：都道府県名

このように取得されます。

つまり、BoundColumnプロパティで指定した列が、Valueプロパティで取得されることになります。

でも、２列ならTextかValueで取得できますが、3列以上の場合はどうするのでしょうか。

セルor変数 = Me.lst都道府県.List(Me.lst都道府県.ListIndex, 0)
セルor変数 = Me.lst都道府県.List(Me.lst都道府県.ListIndex, 1)

このように、Listプロパティの第２引数に列位置（0開始）を指定します。

ここまでは、コンボボックスも同様の扱いになります。

では、ここからはリストボックスならではの問題に入ります。

リストボックスでは、複数選択が必要な場合があります。

今回の例では、都道府県なので、実際には複数選択の必要はありませんが、

例として、複数選択した場合として説明しておきます。

複数選択には、MultiSelect プロパティを指定します。

MultiSelect プロパティ

定数	値	内容
fmMultiSelectSingle	0	項目は 1 つだけ選択できます (既定値)。
fmMultiSelectMult	1	複数選択を許可します。項目の選択/選択解除を行うには、Space キーを押すか、またはクリックします。
fmMultiSelectExtended	2	複数選択を許可します。 Shift キーを押しながらクリックするか、または Shift キーを押しながら方向キーを押すと、現在選択されている項目を始点として一連の項目を連続的に選択できます。項目の選択/選択解除を個別に行うには、Ctrl キーを押しながらクリックします。

これで簡単に複数選択可能になります。

問題は、複数選択した場合の、複数の選択値の取得や、選択を全て一括で解除したりする場合です。

複数選択されたリスト項目の取得

Dim i As Integer
With Me.lst都道府県
　　For i = 0 To .ListCount - 1
　　　　If .Selected(i) = True Then
　　　　　　セルor変数 = .List(i)
　　　　End If
　　Next
End With

ListCountでリストの件数を取得し、Selectedで選択の有無を判定し、Listで選択値を取得します。

複数列の場合は、List(i, 列位置)となります。

では、

リストを全て選択したり、全て解除したりするサンプルコードです。

Private Sub リスト全選択解除(ByVal blnSel As Boolean)
　　Dim i As Integer
　　With Me.lst都道府県
　　　　For i = 0 To .ListCount - 1
　　　　　　.Selected(i) = blnSel
　　　　Next
　　End With
End Sub

Call リスト全選択解除(True)とすれば全選択されます。
Call リスト全選択解除(False)とすれば全解除されます。