トップ > 逆引きで学ぶ ユーザーフォーム&コントロール > 5-11　選択した項目のIndex番号を取得する

Private Sub CommandButton1_Click()
    If ListBox1.ListIndex = -1 Then
        MsgBox "リストの値が選択されていません"
        Exit Sub
    End If
    MsgBox "選択番号：" & ListBox1.ListIndex + 1
End Sub

Private Sub CommandButton1_Click()
    ListBox1.ListIndex = 6
End Sub