我有一个Excel工作表，使用许多表单checkbox。 有没有办法一次取消所有checkbox？

我有一张62页的Excel文档。 每张纸都有许多表格控制checkbox。 有没有办法一次清除这些checkbox？

Answer 1

试试下面的代码：

Option Explicit Sub ChkBoxes() Dim Sht As Worksheet Dim Cb As CheckBox For Each Sht In Worksheets '<-- loop through all worksheets For Each Cb In Sht.CheckBoxes '<-- loop through all checkboxes in sheet Cb.Value = False Next Cb Next Sht End Sub