Excel VBA オプションボタンで一つの選択肢を選ぶコントロールの使い方

以下のようなシーンで利用されます。

・フォームやユーザーフォームにおいて、複数の選択肢から一つを選ばせる

・設定やオプションの選択を必要とする

Option Explicit

Private Sub CommandButton1_Click()
    Dim selectedOption As String
    
    If OptionButton1.Value = True Then
        selectedOption = "オプション1が選択されました。"
    ElseIf OptionButton2.Value = True Then
        selectedOption = "オプション2が選択されました。"
    ElseIf OptionButton3.Value = True Then
        selectedOption = "オプション3が選択されました。"
    Else
        selectedOption = "オプションが選択されていません。"
    End If
    
    MsgBox selectedOption
End Sub

1.ユーザーフォームを表示する以下のコードを標準モジュールに追加して、ユーザーフォームを表示します。

Option Explicit

Sub ShowUserForm()
    UserForm1.Show
End Sub

2.ユーザーフォームを実行する Alt + F8 を押して「マクロ」ダイアログを開き、ShowUserForm を選択して実行します。