Excel VBA リストボックスにセル範囲のデータを設定する

リストボックスにセル範囲のデータを設定する方法

リストボックスにワークシートに作成されたリストを設定するには、ListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトのRowSourse【ﾛｳｿｰｽ】プロパティを使用します。

RowSourse【ﾛｳｿｰｽ】プロパティ

リストボックスに表示するリストのセル範囲を指定するには、ListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトのRowSourse【ﾛｳｿｰｽ】プロパティを使用します。

RowSourse【ﾛｳｿｰｽ】プロパティの書式と設定値の説明

オブジェクト.RowSourse= セル範囲

シート「リスト」に作成したリストをListBox1に設定するコードと解説

Private Sub UserForm_Initialize()
Dim lastrow As Long
lastrow = Sheets("リスト").Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.RowSourse = "リスト!" & Range("A1", "A" & lastrow).Address
End Sub

1行目【Private Sub UserForm_Initialize()】
ユーザーフォームが開く直前に実行されるUserFrom【ﾕｰｻﾞﾌｫｰﾑ】モジュールのInitalize【ｲﾆｼｬﾗｲｽﾞ】イベントプロシージャーにコードを記述します。

---

---

2行目【Dim lastrow As Long】
リストがあるシート「リスト」のリスト範囲の最終行番号を格納する変数「lastrow」を長整数型(Long)で指定します。

---

3行目【lastrow = Sheets(“リスト”).Cells(Rows.Count, 1).End(xlUp).Row】
リストがあるシート「リスト」のA列のセルをRows.Count【ﾛｳｽﾞｶｳﾝﾄ】プロパティでセルの最終行番号を参照し、End【ｴﾝﾄﾞ】プロパティの引数をxlUp【ｴｯｸｽｴﾙｱｯﾌﾟ】で上方向に指定し
セルの最終行から上方向にデータが入力されている終端セルを参照してRow【ﾛｳ】プロパティで参照した行の行番号を取得し、変数「lastrow」に代入します。

---

4行目【ListBox1.RowSourse = “リスト!” & Range(“A1”, “A” & lastrow).Address】
ListBox【ﾘｽﾄﾎﾞｯｸｽ】コレクションオブジェクトのRowSourse【ﾛｳｿｰｽ】プロパティを使用して
リストがあるワークシートのセル範囲を指定します。設定値は範囲のアドレスをA1形式で設定する必要があるのでAddress【ｱﾄﾞﾚｽ】プロパティを使用してセル範囲のアドレスを設定します。

実行結果

リストボックスに複数列のワークシートのリストを設定する方法

複数列のリストボックスを作成するには、ListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトの
ColumnCount【ｶﾗﾑｶｳﾝﾄ】プロパティを使用して、リストボックス内の列数を指定します。

セルのリストの1行目を列見出しとしてリストボックスに表示する場合は、ListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトのColumnHeads【ｶﾗﾑﾍｯﾀﾞｰｽﾞ】プロパティにTrueを設定します。

リスト内の列の幅を設定するには、ListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトのColumnWidths【ｶﾗﾑﾜｲｽﾞ】プロパティを使用して列の幅をポイント単位で指定します。

ColumnCount【ｶﾗﾑｶｳﾝﾄ】プロパティ

リストボックス内に列を設定するには、ListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトの
ColumnCount【ｶﾗﾑｶｳﾝﾄ】プロパティを使用します。

ColumnCount【ｶﾗﾑｶｳﾝﾄ】プロパティの書式と設定値の説明

オブジェクト.ColumnCount = 設定値

ColumnHeads【ｶﾗﾑﾍｯﾀﾞｰｽﾞ】プロパティ

リストボックス内の先頭行に列見出しを設定するには、ListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトのColumnHeads【ｶﾗﾑﾍｯﾀﾞｰｽﾞ】プロパティを使用します。

ColumnHeads【ｶﾗﾑﾍｯﾀﾞｰｽﾞ】プロパティの書式と設定値の説明

オブジェクト.ColumnHeads = 設定値

ColumnWidths【ｶﾗﾑﾜｲｽﾞ】プロパティ

リストボックス内の列の幅を設定するには、ListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトのColumnWidths【ｶﾗﾑﾜｲｽﾞ】プロパティを使用します。

ColumnWidths【ｶﾗﾑﾜｲｽﾞ】プロパティの書式と設定値の説明

オブジェクト.ColumnWidths = 設定値

リストボックスに複数列のワークシートのリストを設定する例

上記のリストシートのデータをリストボックスに表示するコード例

Private Sub UserForm_Initialize()
Dim lastrow As Long
lastrow = Sheets("リスト").Cells(Rows.Count, 1).End(xlUp).Row
With ListBox1
.ColumnHeads = True
.ColumnCount = 3
.ColumnWidths = "40;50;50"
.RowSource = "リスト!" & Range("A2", "C" & lastrow).Address
End With
End Sub

実行結果

リストボックスのプロパティ一覧は「リストボックスのプロパティ」をご覧ください。

以上で、リストボックスにセル範囲のデータを設定する方法につての解説を終了します。ありがとうございました。