リストボックスの値取得方法について

質問

VBAでリストボックスを使用しています。リストボックスの中には、A,B,C,D,Eと表示されています（カンマは行とします。 つまりリストボックスには5行表示されています）。選択はされていない状態です。この状態でボタンを押すことにより ループで各行の値を取得したいと思っています。listcountを利用してlistcountの数までループをまわし、各行の値を 取得したいです。値というのは、A,B,C,D,Eです。この値を配列なり変数なりにいれたいのです。 どのリストボックスのプロパティを利用すれば、選択されていないリストボックスの各値を取得することができるでしょうか？

回答No.1

bluecampus · ベストアンサー

普通に考えるとListプロパティを使うとか。

Dim i As Integer
Dim s() As String

With Me.ListBox1
　　If .ListCount > 0 Then
　　　　ReDim s(.ListCount - 1)
　　　　For i = 0 To UBound(s) Step 1
　　　　　　s(i) = .List(i, 0)
　　　　Next i
　　End If
End With

補足

ご回答ありがとうございます！理解できました、感謝です！