Excel VBA オプションボタンで選択された項目を取得する

• オブジェクト（必須）
  オプションボタンのオブジェクト名を指定します。
• 設定値（必須）
  True　を設定した場合はボタンにチェックが入ります。
  False　を設定した場合はボタンのチェックが外れます。
  Null　を設定した場合はボタンが無効状態になります。

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
   MsgBox "OptionButton1がチェックされています。"
ElseIf OptionButton2.Value = True Then
   MsgBox "OptionButton2がチェックされています。"
ElseIf OptionButton3.Value = True Then
   MsgBox "OptionButton3がチェックされています。"
Else
   MsgBox "どれかを選択してください。"
End If
End Sub

2行目から3行目【If OptionButton1.Value = True Then
MsgBox “OptionButton1にチェックされています。”】
If【ｲﾌ】ステートメント（条件分岐）を使用してOptionButton1【ｵﾌﾟｼｮﾝﾎﾞﾀﾝ1】がTrueだったとき、つまりボタンにチェックがあったときを定義します。条件が成立した場合3行目の処理が実行されます。不成立だった場合つまり、値がFalseでボタンのチェックがない場合は
3行目の処理は無視されて処理が4行目に移ります。

4行目～5行目【ElseIf OptionButton2.Value = True Then
MsgBox “OptionButton2にチェックされています。”】
ElseIf【ｴﾙｽﾞｲﾌ】ステートメントに2つ目の条件としてOptionbutton2【ｵﾌﾟｼｮﾝﾎﾞﾀﾝ2】のボタンチェック状態を定義します。

6行目～7行目【ElseIf OptionButton3.Value = True Then
MsgBox “OptionButton3にチェックされています。”】
ElseIf【ｴﾙｽﾞｲﾌ】ステートメントに3つ目の条件としてOptionbutton3【ｵﾌﾟｼｮﾝﾎﾞﾀﾝ3】のボタンチェック状態を定義します。

8行目～9行目【Else
MsgBox “どれかを選択してください。”】
Else【ｴﾙｽﾞ】ステートメントにすべての条件が成立しなかった場合、つまりすべてのボタンにチェックがない（選択されていない）場合、メッセージを表示します。

Private Sub CommandButton1_Click()
With Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
If OptionButton1.Value = True Then
  .Value = OptionButton1.Caption
ElseIf OptionButton2.Value = True Then
   .Value = OptionButton2.Caption
ElseIf OptionButton3.Value = True Then
   .Value = OptionButton3.Caption
Else
   MsgBox "どれかを選択してください。"
End If
End With
End Sub

4行目【.Value = OptionButton1.Caption】
ボタンが選択されている（条件が成立した場合）はWith【ｳｨｽﾞ】ステートメントで指定したA列のデータの最終行の次の行のセルにオブションボタンに設定されているCaption【ｷｬﾌﾟｼｮﾝ】（表示されている文字列）を代入します。