UserFormにオプションボタン(OptionButton)を配置したとき、どのオプションボタンがオンになっているかを判定するには次のようにします。 なお、ここでは3つのオプションボタンが配置されていて、コマンドボタン(CommandButton)のクリックで判定するものとします。 Private Sub CommandButton1_Click() Dim buf As String If OptionButton1 Then buf = OptionButton1.Caption Else If OptionButton2 Then buf = OptionButton2.Caption Else buf = OptionButton3.Caption End If End If MsgBox buf & " が選択されています" End Sub あるいは次のようにSelect Ca