トップ > 逆引きで学ぶ ユーザーフォーム&コントロール > 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

書籍紹介140以上のサンプルファイル付き！

知りたいがすぐわかる！　やりたいがすぐできる！
「Excel VBA 逆引きで学ぶ ユーザーフォーム&コントロール」（Kindle版）
ユーザーフォームを扱えると、VBAでできることが大きく広がります！
本書では、知りたいこと、やりたいことから、逆引きで学びを深められます。

■ 購入：amazon