excel - 启用其他复选框的主复选框

Question

您好，我不知道如何在 excel 2010 中制作一个激活其他复选框的复选框。

我的意思是如果我选中第一个复选框，则另一个复选框也是如此。

Answer 1

这里的简短示例。将名为 MasterCheckBox 的复选框添加到您的表单中。使用 UserFormEnableEvents 来抑制用户表单中的事件......如果你需要。

Option Explicit
Private UserFormEnableEvents As Boolean

Private Sub UserForm_Initialize()
  UserFormEnableEvents = True
End Sub

Private Sub MasterCheckBox_Change(): On Error GoTo Err_handler
  Dim userFormControl As Control

  UserFormEnableEvents = False

  For Each userFormControl In Me.Controls
    If (TypeOf userFormControl Is MSForms.CheckBox And _
      userFormControl.Name <> MasterCheckBox.Name) Then
        userFormControl.Value = Not userFormControl.Value
    End If
  Next

Err_handler:
  If (Err.Number <> 0) Then MsgBox Err.Description
  UserFormEnableEvents = True
End Sub