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

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

Private Sub CommandButton1_Click()
    ComboBox1.ListIndex = 2
End Sub