【VBA】シート上のオプションボタンをグループボックスで管理し、選択項目を判定する方法

2025年8月16日

はじめに

Excelのシート上で、「問1. プランを選択」「問2. 支払い方法を選択」のように、複数の独立した設問にオプションボタンで回答させたい場合、そのまま配置すると全てのボタンが一つのグループになってしまいます。

この問題を解決するのが、「フォームコントロール」の「グループボックス」です。オプションボタンをグループボックスの内側に配置することで、ボックスごとに独立したグループを作成でき、それぞれのグループ内で一つずつ選択が可能になります。

この記事では、グループボックスを使ってオプションボタンを管理し、各グループでどの項目が選択されたのかをVBAで判定する方法を解説します。

グループごとの選択項目を判定するVBAサンプルコード

このマクロは、2つのグループボックス（PlanGroupBox, PaymentGroupBox）にそれぞれ配置されたオプションボタンの中から、選択された項目の情報を取得します。

完成コード

' 各グループボックスで選択されているオプションボタンの項目を取得する
Sub GetGroupedOptionValues()

    '== 変数を定義します ==
    Dim grpBox As GroupBox
    Dim optButton As OptionButton
    Dim selectedPlan As String, selectedPayment As String
    
    ' デフォルト値を「未選択」に設定
    selectedPlan = "未選択"
    selectedPayment = "未選択"
    
    '== 1. プラン選択グループ(PlanGroupBox)の選択肢をチェック ==
    Set grpBox = ActiveSheet.GroupBoxes("PlanGroupBox")
    ' GroupBox内の全オプションボタンをループ
    For Each optButton In grpBox.OptionButtons
        If optButton.Value = xlOn Then
            selectedPlan = optButton.Caption
            Exit For
        End If
    Next optButton
    
    '== 2. 支払い方法グループ(PaymentGroupBox)の選択肢をチェック ==
    Set grpBox = ActiveSheet.GroupBoxes("PaymentGroupBox")
    ' GroupBox内の全オプションボタンをループ
    For Each optButton In grpBox.OptionButtons
        If optButton.Value = xlOn Then
            selectedPayment = optButton.Caption
            Exit For
        End If
    Next optButton
    
    '== 結果をメッセージボックスに表示 ==
    MsgBox "プラン: " & selectedPlan & vbCrLf & _
           "支払い方法: " & selectedPayment, vbInformation, "選択内容の確認"

End Sub

実行前の準備

シート上に「グループボックス」を2つ配置します。それぞれの (名前) をプロパティ（または名前ボックス）で PlanGroupBox, PaymentGroupBox に変更します。
グループボックスの中に「オプションボタン」をそれぞれ複数配置します。（例: PlanGroupBox の中に「プランA」「プランB」、PaymentGroupBox の中に「カード」「振込」）
上記のマクロを実行すると、各グループで選択した項目がメッセージボックスに表示されます。