リストボックス複数選択について (ID:112391)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 これで出来るはずです。 各内容は調べてくださいね。 Option Explicit Dim SelectData() As String Private Sub Command1_Click() Dim Cnt As Integer Dim ICount As Integer Cnt = List1.ListCount ReDim SelectData(Cnt) For ICount = 0 To Cnt - 1 If List1.Selected(ICount) Then SelectData(ICount) = List1.List(ICount) Debug.Print List1.List(ICount), ICount + 1 End If Next ICount End Sub