【VBA】シート上のオプションボタンで選択された項目を判定する方法

2025年8月16日

はじめに

Excelのシート上で、ユーザーに複数の選択肢から一つだけを選ばせる場合、「フォームコントロール」の「オプションボタン」が役立ちます。アンケートや設定シートなどで、排他的な選択を促すのに最適です。

VBAを使えば、シート上に配置された複数のオプションボタンの中から、ユーザーがどれを選択したのかを簡単に特定できます。この記事では、シート上の全てのオプションボタンをチェックし、選択されている項目のキャプション（表示テキスト）を取得するための、基本的で確実な方法を解説します。

選択されたオプションボタンを判定するVBAサンプルコード

このマクロは、シート上に配置された全てのオプションボタンをループで確認し、選択状態にあるボタンの名前（キャプション）をメッセージボックスに表示します。

完成コード

' シート上のオプションボタンで選択されている項目を取得する
Sub GetSelectedOptionButton()

    '== 変数を定義します ==
    Dim optButton As OptionButton
    Dim selectedChoiceCaption As String
    
    ' デフォルト値を「未選択」に設定
    selectedChoiceCaption = "未選択です"
    
    '== OptionButtonsコレクションで、シート上の全てのオプションボタンをループ ==
    For Each optButton In ActiveSheet.OptionButtons
        ' .Valueプロパティがオン(xlOn)かどうかを判定
        If optButton.Value = xlOn Then
            ' オンになっているボタンのキャプションを取得
            selectedChoiceCaption = optButton.Caption
            ' 選択項目が見つかったのでループを抜ける
            Exit For
        End If
    Next optButton
    
    '== 結果をメッセージボックスに表示 ==
    MsgBox "選択された項目: " & selectedChoiceCaption, vbInformation, "選択結果"

End Sub