从单个复选框在Excel中的所有复选框上运行宏

Question

我有以下代码（信用蒂姆威廉姆斯，这里Check box to select and deselect all other check boxes in spreadsheet）

Dim CB As checkbox
For Each CB In ActiveSheet.CheckBoxes
If CB.Name <> "Expand All Checkbox" Then
CB.Value = ActiveSheet.CheckBoxes("Expand All Checkbox").Value
End If
Next CB

使用复选框选择/取消选中所有其他复选框，它完美无缺，但每个复选框都分配给另一个宏（同一个宏，简称为“复选框”）。我想调用“复选框”宏，因为每个其他复选框都被选中/取消选择 - 这可能吗？如果是这样，怎么样？！

Answer 1

    Dim CB As checkbox
For Each CB In ActiveSheet.CheckBoxes
If CB.Name <> "Expand All Checkbox" Then
CB.Value = ActiveSheet.CheckBoxes("Expand All Checkbox").Value
Call Checkbox
End If
Next CB

试试这个，我相信这就是你要做的。