excel - 一起选择时取消选择选项按钮

Question

在我的用户窗体上，我创建了与我希望我的用户选择的主题相邻的选项按钮，即如果他们选择“机械工程”，则右侧有一个"is"选项按钮或一个“否”选项按钮。但是，用户不能同时选择“机械工程”和“化学工程”类(class)。我在下面输入了第一个有效的代码。但是，它仅在选项按钮“Me.optFMME”然后按该顺序“Me.optFMCE”时才有效。如果您按其他顺序选择它们，即“Me.optFMCE”然后是“Me.optFMME”，它允许它。所以，我输入了代码(它下面的第二个)来抵消这种情况，但它什么也没做。

如果有人有任何指导，将不胜感激。

Private Sub optFMME_Click()

    If Me.optFMME And Me.optFMCE Then
        MsgBox "Mech Eng and Chem Eng cannot be selected together due to similar     material. Please select another combination."
        Me.optFMME = False
        Me.optFMCE = False
    End If
End Sub

`

Private Sub optFMCE_Click()

    If Me.optFMCE And Me.optFMME Then
        MsgBox "Mech Eng and Chem Eng cannot be selected together due to similar     material. Please select another combination."
        Me.optFMCE = False
        Me.optFMME = False
    End If
End Sub

Answer 1

您检查选项按钮的逻辑是相同的，因此应该将其隔离到一个单独的函数中。通过这种方式，您的逻辑保持一致，如果需要调整某些内容，一切都在一个地方。

Private Sub optFMME_Click()
    LogicCheck
End Sub

Private Sub optFMCE_Click()
    LogicCheck
End Sub

Private Sub LogicCheck()
    If Me.optFMCE And Me.optFMME Then
        MsgBox "Mech Eng and Chem Eng cannot be selected together " & _
               "due to similar material. Please select another combination."
        Me.optFMCE = False
        Me.optFMME = False
    End If
End Sub