使用VBAmacros从Excel工作簿中取消select所有checkbox

我有一个超过100个checkbox的工作簿。

他们是表格控制checkbox

我想一下子取消所有的select

这是他们设置为false。

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

这适用于活动工作表。 我想这个代码是整个工作簿

我已经尝试寻找代码，并搞清楚checkbox，但我都不明智。

如果有人能指导我，我将不胜感激

谢谢

Answer 1

如果您有OLEObject样式（ ActiveX ）checkbox，则：

 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：

如果他们是表单checkbox ，那么以下将工作：

 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