【VBA】セル範囲の値をリストボックス項目として設定する

こんにちは、Ryoです。
ユーザーフォームを使用して何かを作成する場合、リストボックスは利用頻度も高いのではないかと思います。そのリストボックスには予め項目を設定しておく以外にも指定したセル範囲の値を利用することも可能なので、今回はその内容について書いていこうと思います。

1.サンプル概要
2.サンプルコード
3.まとめ

1.サンプル概要

セルA1～A6 の範囲に以下の値が入力されており、その値をリストボックスの項目として設定します。

UserForm1のComaandButton1をクリックすることで、指定範囲のセルの値が設定されます。

2.サンプルコード

◆フォーム構成

サンプルで使用したフォームは以下の構成になっています。

◆サンプル1

Private Sub CommandButton1_Click()

　'ユーザーフォーム1のリストボックス1に
　'セルA1～A6範囲の値を設定する
　ListBox1.RowSource = _
　Range(Cells(1, 1), Cells(6, 1)).Address
　'Range("A1:A6").Addressでも可

End Sub

これでCommandButton1をクリックすることで、セルA1 ～A6の値をリストボックスの項目として設定できます。

このようにワークシートのセル範囲の値をリストボックスの項目として設定するにはRowSourceプロパティを使用します。

構文：オブジェクト.RowSource = string

サンプルではListBox1.RowSource = Range(Cells(1, 1), Cells(6, 1)).AddressのようにCellsを利用していますが、ここはコメントにもあるようにRange（”A1:A6”）でもOKです。

◆サンプル2（参考）：他ワークシートの値を設定

用途によってはアクティブになっていない他のワークシートの値をリストボックスの値として設定したこともあるかと思いますので、その場合のサンプルコードは以下の通りになります。

Sheet3のセルA1 ～A6に入力された値をリストボックスの値として設定します。

このサンプルのユーザーフォーム等の構成は画像の通りです。

Sheet3のセルA1～A6は以下画像の値が入力されています。

Private Sub CommandButton2_Click()
'他のワークシートの値を設定する場合
 
 '例としてSheet3のA1～A6の値を
 'リストボックスに設定
 With Worksheets("Sheet3")
       ListBox2.RowSource = .Name _
       & "!" & .Range("A1:A6").Address
 End With
 '他シートを参照する場合は
 '「シート名!セル範囲のアドレス」なので、
 'Range指定は”A1:A6”で行う
 '(Range（Cells（*,*)...ではエラーとなる）

End Sub

このサンプルを実行するとSheet3のセルA1～A6の値がリストボックスに設定されます。