ExcelVBA リストボックスで選択可能リストを表示するコントロールの使い方

以下のようなシーンで利用で表示します。

1.フォームで複数の選択肢を提示

2.動的に生成したデータをユーザーに表示

3.フィルタリングや検索の選択肢を提供

4.抽出データを簡単に選択可能にする。

Option Explicit

Private Sub UserForm_Initialize()
    Dim i As Integer
    
    ' リストボックスにデータを追加
    For i = 1 To 10
        Me.ListBox1.AddItem "選択肢 " & i
    Next i
End Sub

Private Sub CommandButton1_Click()
    Dim selectedItem As String
    
    ' 選択されたアイテムを取得
    If Me.ListBox1.ListIndex <> -1 Then
        selectedItem = Me.ListBox1.value
        MsgBox "選択された値: " & selectedItem
    Else
        MsgBox "何も選択されていません。"
    End If
End Sub

Option Explicit

Sub SetupListBox()
    Dim ws As Worksheet
    Dim rng As Range
    Dim listBox As Object
    
    ' ワークシートとリストボックスの設定
    Set ws = ThisWorkbook.Sheets(1)
    Set rng = ws.Range("A1:A10") ' データ範囲
    Set listBox = UserForm1.ListBox1 ' リストボックス
    
    ' リストボックスのデータを設定
    listBox.Clear
    Dim cell As Range
    For Each cell In rng
        listBox.AddItem cell.value
    Next cell
End Sub

Option Explicit

Private Sub UserForm_Initialize()
    Dim i As Integer
    
    ' リストボックスにデータを追加
    For i = 1 To 10
        Me.ListBox1.AddItem "選択肢 " & i
    Next i
End Sub

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim selectedItems As String
    
    ' 複数選択されたアイテムを取得
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then
            selectedItems = selectedItems & Me.ListBox1.List(i) & vbCrLf
        End If
    Next i
    
    If selectedItems <> "" Then
        MsgBox "選択された値: " & vbCrLf & selectedItems
    Else
        MsgBox "何も選択されていません。"
    End If
End Sub

リストボックスを使ってユーザーに選択肢を提供する。標準モジュール、フォームモジュール、ThisWorkbookで柔軟に使用可能です。

リストボックスを活用することで、ExcelVBAアプリケーションのインターフェースを直感的かつ効率的に構築できます。