Excel VBA リストボックスで複数行選択して値を取得する

• オブジェクト（必須）
  対象のListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトのオブジェクト名を指定します。
• 設定値
  リストの選択方法をfmMultiselect列挙型の定数で指定します。

  fmMultiselect列挙型の定数

  定数	値	内容
  fmMultiSelectSingle	0	1行だけ選択できます。（既定値）
  fmMultiSelectMulti	1	複数行選択できます。 選択を解除するには再度選択行をクリックします。
  fmMultiSelectExtended	2	[Shift]キーを押しながらクリックすると 連続した行が選択できます。 [Ctrl]キーを押しながらクリックすると 連続していない複数の行を選択できます。

• オブジェクト（必須）
  対象となるListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトのオブジェクト名を指定します。
• pvargIndex【ﾋﾟｲﾌﾞｲｱｰｸﾞｲﾝﾃﾞｯｸｽ】（必須）
  リストボックスの選択状態を取得または設定したい行番号を設定します。リストの先頭行を「0」として、上から順番に数えた数値を指定します。
• 設定値（必須）
  引数pvargIndexで指定した行のリストを選択状態に設定するには「True」選択されていない状態に設定するには「False」を指定します。

• オブジェクト（必須）
  対象のListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトのオブジェクト名を指定します。

• オブジェクト（必須）
  対象となるListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトの「オブジェクト名」を指定します。
• pvargIndex【ﾋﾟｲﾌﾞｲｱｰｸﾞｲﾝﾃﾞｯｸｽ】（省略可）
  値を取得または設定したい行位置を指定します。指定する値は先頭行を「0」として上から順番に数えた数値です。省略した場合は先頭行を表す「0」が設定されます。
• pvargColumn【ﾋﾟｲﾌﾞｲｱｰｸﾞｶﾗﾑ】（省略可）
  値を取得または設定したい列位置を指定します。指定する値はリストの左端列を「0」として左から順番に数えた数値です。省略した場合は先頭列を表す「0」が設定されます。
• 設定値（必須）
  リストボックスの項目に追加したい値を設定します。

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

Private Sub CommandButton1_Click()
Dim リスト As String
Dim i As Integer
With ListBox1
　For i = 0 To .ListCount - 1
　　If .Selected(i) = True Then
　　　リスト = リスト & .List(i) & vbCrLf
　　End If
　Next i
End With
　　MsgBox リスト
End Sub

2行目【Dim リスト As String】
List【ﾘｽﾄ】プロパティで取得してリストの値を格納する変数「リスト」を文字列型(String)で宣言します。

3行目【Dim i As Integer】
繰り返し処理の中で使用するリストの行番号を格納するカウンター変数「i」を整数型(Integer)で宣言します。

4行目【With ListBox1】
操作対象となるListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトのオブジェクト名ListBox1を
With【ｳｨｽﾞ】ステートメントで指定します。

5行目【For i = 0 To .ListCount – 1】
For Next【ﾌｧｱﾈｸｽﾄ】ステートメントを使用して繰り返し処理の始まりです。カウンター変数の「i」に0からListCount【ﾘｽﾄｶｳﾝﾄ】プロパティで取得したリストの行数‐1を順に代入します。0から始まる理由はリストの選択状況を調べるSelected【ｾﾚｸﾃｯﾄﾞ】プロパティや値を取得するList【ﾘｽﾄ】プロパティの取得対象の行を設定する引数pvargIndex【ﾋﾟｲﾌﾞｲｱｰｸﾞｲﾝﾃﾞｯｸｽ】に設定する行数の先頭行が0から始まるためです。

6行目【If .Selected(i) = True Then】
If【ｲﾌ】ステートメント（条件分岐）でSelected【ｾﾚｸﾃｯﾄﾞ】プロパティを使用して、i行目のリストがTrueだったときつまり、リストが選択状態のときを定義します。

7行目【リスト = リスト & .List(i) & vbCrLf】
6行目の条件分岐が成立したとき、つまり行が選択されている場合、その行の値をList【ﾘｽﾄ】プロパティで取得して改行コードを&アンパサンドで連結して変数「リスト」に代入します。
繰り返し処理の中で、前の変数「リスト」に格納されている値を&アンパサンドで連結して変数「リスト」に代入します。

11行目【 MsgBox リスト】
変数「リスト」の格納されている値をMsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数で表示します。