使用 VBA 宏取消选择 Excel 工作簿中的所有复选框

我有一本包含 100 多个复选框的工作簿。

他们是表单控件复选框

我想一次性取消选择它们

这就是将它们设置为 false。

 Sub clearcheck()
 ActiveSheet.CheckBoxes.Value = False
 End Sub

这适用于活动工作表。我希望这段代码适用于整个工作簿

我尝试过寻找代码并清除复选框，但我一无所知。

如果有人可以指导我，我将非常感激

谢谢

如果您有 OLEObject 样式 (ActiveX) 复选框，然后：

Sub terranian()
    Dim o As Object
    For Each o In ActiveSheet.OLEObjects
        If InStr(1, o.Name, "CheckBox") > 0 Then
            o.Object.Value = False
        End If
    Next
End Sub

EDIT1:

如果他们是表单复选框，那么以下内容将起作用：

Sub clearcheck()
    Dim sh As Worksheet
    For Each sh In Sheets
        On Error Resume Next
            sh.CheckBoxes.Value = False
        On Error GoTo 0
    Next sh
End Sub