リストボックスの選択された値を取得するには、ItemsSelectedコレクションから選択行のインデックスを取得し、そのインデックスからItemDataプロパティで値を取得します。
例
たとえば、このようなフォームにリストボックス（listFruits）と［選択］ボタン（buttonSelect）、テキストボックス（textSelectedItem）が貼り付けてあるとします。
この［選択］ボタンをクリックしたときに選択された値をテキストボックスに表示するには次のように記述します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | Private Sub buttonSelect_Click() Dim selectedItem As String Dim n As Variant For Each n In Me.listFruits.ItemsSelected '選択された行の値を取得 selectedItem = selectedItem & Me.listFruits.ItemData(n) & "," Next If Len(selectedItem) > 0 Then selectedItem = Left(selectedItem, Len(selectedItem) - 1) End If Me.textSelectedItem.Value = selectedItem End Sub |
実行結果
スポンサーリンク
