在选择特定选项按钮之前禁用命令按钮

Question

我有一个带有 4 个选项按钮的用户窗体“HRMForm”。用户必须至少选择其中两个选项按钮才能继续。在满足此要求之前，我希望禁用提交命令按钮。

我已经包含了每个选项按钮和命令按钮的名称： 1. optHRMCM 2. optHRMLI 3. optHRMPM 4. optHRMBE 5. 命令按钮 - btnHRMSubmit

我目前的暗语。但是，在用户选择正确的选项并启用提交按钮后，如果他们单击这些选项按钮，则提交按钮仍保持启用状态。我如何对其进行编码以恢复禁用状态？

Private Sub optHRMLI_Click()

If Me.optHRMCM And Me.optHRMLI Then
   btnHRMSubmit.Enabled = True
End If

If Me.optHRMCM And Me.optHRMPM Then
   btnHRMSubmit.Enabled = True
End If

If Me.optHRMCM And Me.optHRMBE Then
   btnHRMSubmit.Enabled = True
End If

If Me.optHRMLI And Me.optHRMPM Then
   btnHRMSubmit.Enabled = True
End If

If Me.optHRMLI And Me.optHRMBE Then
   btnHRMSubmit.Enabled = True
End If

If Me.optHRMPM And Me.optHRMBE Then
   btnHRMSubmit.Enabled = True
End If

End Sub

Answer 1

我认为这是您需要的代码。只需替换其中的名称，它就在用户表单中。

Private Sub OptionButton1_Click()
  countOptions
End Sub

Private Sub OptionButton2_Click()
countOptions
End Sub

Private Sub OptionButton3_Click()
countOptions
End Sub

Private Sub OptionButton4_Click()
countOptions
End Sub

Private Sub UserForm_Initialize()

  CommandButton1.Enabled = False

End Sub

Sub countOptions()
 Dim cntrl As Control
 Dim Count As Integer
 Count = 0
 For Each cntrl In UserForm1.Controls

    If TypeOf cntrl Is msforms.OptionButton Then

       If cntrl = True Then
         Count = Count + 1
       End If

    End If
 Next

 If Count >= 2 Then
  CommandButton1.Enabled = True
 End If

End Sub