选择选项组中的选项按钮

Question

我在选项组中有4个选项按钮，其中一个被选中，然后单击了按钮确定，但我收到的错误是我的代码：

Private Sub btnOk_Click()

If opt1 = True Then

MsgBox "Success"

End if

End Sub

Answer 1

将选项按钮放入选项组，然后编写如下代码：

Select Case Me.fTimePeriod

    Case Is = 1: sTime = "Option 1 Selected"
    Case Is = 2: sTime = "Option 2 Selected"
    Case Is = Null: sTime = "Nothing Selected"

End Select

Msgbox sTime

fTimePeriod是选项组的名称。案例1是第一个选项，案例2是第二个选项。添加更多案例陈述以获得更多选项。