リストボックス

項目を追加

リストボックス.AddItem 値

　複数

リストボックス.List = Array(値1, ...)

　セル範囲を指定

リストボックス.List = セル範囲.Value

選択された項目を取得

Dim 項目リスト As New Collection
With リストボックス
    Dim i As Integer
    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
            項目リスト.Add .List(i)
        End If
    Next
End With

複数行を選択

①プロパティウィンドウ
②MultiSelect　プロパティ
③fmtMultiSelectMulti