Visual Basic Tips

リストボックスの選択項目取得

知っていれば簡単ですが、知らないと苦労するものの一つです。

Dim i As Integer

For i = 0 To List1.ListCount - 1
　　If List1.Selected(i) Then
　　　　Debug.Print i & " 選択されています。"
　　End If
Next