全选复选框以运行其他选定的框 VBA Excel

Question

我正在尝试使用“全选”复选框，但是当所有复选框都被选中时，它们不会被执行。

Sheet1 中的字段未导入或设置为 Null。在他们自己的复选框上将数据从 Sheet1 导入到位置，但在 master select all checkbox1 on / off 命令下不起作用。

这是我目前的代码：

Sub SelectAll_CHECK_BOX()
    Dim CB As CheckBox
    For Each CB In ActiveSheet.CheckBoxes
        If CB.Name <> "Check Box 1" Then
            CB.Value = ActiveSheet.CheckBoxes("Check Box 1").Value
        End If
    Next CB
End Sub

其他复选框具有以下代码，每个复选框具有不同的范围值和子名称。

Sub CHECK_BOX_PRODUCT_NAME()
    Dim CB As CheckBox
        For Each CB In ActiveSheet.CheckBoxes
            If CB.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name And CB.Value <> ActiveSheet.CheckBoxes("Check Box 1").Value And ActiveSheet.CheckBoxes("Check Box 1").Value <> 2 Then
                ActiveSheet.CheckBoxes("Check Box 1").Value = 2
                Exit For
            Else
                ActiveSheet.CheckBoxes("Check Box 1").Value = CB.Value
            End If
        Next CB
    Dim xChk As CheckBox
    Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
    With xChk.TopLeftCell.Offset(0, 3)
        If xChk.Value = xlOff Then
            .Value = Null
        Else
            .Value = Sheets("Sheet1").Range("B9")
        End If
    End With
End Sub

这是问题的可视化：

Answer 1

您应该尝试将Call CHECK_BOX_PRODUCT_NAME 添加到您的第一个宏。就在 End Sub 之前。

因为第一个宏只检查第二个复选框，而不是运行第二个复选框的代码。