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

Question

我有以下代码（感谢 Tim Williams，这里是 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

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