选中所有复选框以运行其他所选框VBA Excel

Question

我试图让“全选”复选框，但是当所有复选框被选中时，它们都不会被执行。

从Sheet1的字段不会被导入或设置为Null。在他们自己的复选框中，将数据从Sheet1导入到位置，但在master下不工作选择所有checkbox1开/关命令。

这是我到目前为止的代码：

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之前。

由于第一个宏只是检查第二个盒子而没有运行第二个复选框的代码。