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

我试图有一个“全选”checkbox，但是当所有的checkbox被选中，他们不会被采取行动。

Sheet1中的字段不会被导入或设置为Null 。 在他们自己的checkbox中，将Sheet1中的数据导入到位置，但不能在master下工作select所有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 

和其他checkbox具有以下代码与不同的范围值和每个checkbox的子名称。

 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添加到您的第一个macros。 就在结束小组之前。

由于第一个macros只是检查第二个框而不运行第二个checkbox的代码。