如何在Excel中一次性取消选中或取消所有复选框？

您如何能像以下截图所示那样，在工作表中一次性取消选中或取消所有已选中的复选框呢？在本文中，我将介绍一些快速代码来解决这个问题。

使用VBA代码取消选中或取消所有已选中的复选框

使用VBA代码取消选中或取消所有已选中的复选框

取消选中或取消所有已选中的复选框（窗体控件）：

如果您的复选框是窗体控件，您可以使用以下VBA代码一次性取消选中它们：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到 模块窗口中。

VBA代码：取消选中或取消所有已选中的复选框（窗体控件）：

Sub ClearCheckBoxes()
'Updateby Extendoffice
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
            chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub

3. 然后按 F5 键运行此代码，活动工作表中的所有已选中复选框都会立即被取消选中。

取消选中或取消所有已选中的复选框（ActiveX控件）：

如果复选框是 ActiveX 控件，请应用以下 VBA 代码：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：取消选中或取消所有已选中的复选框（ActiveX控件）：

Sub clearcheckbox()
'Updateby Extendoffcie
    Dim c As Object
    For Each c In ActiveSheet.OLEObjects
        If InStr(1, c.Name, "CheckBox") > 0 Then
            c.Object.Value = False
        End If
    Next
End Sub

3. 然后按 F5 键运行此代码，活动工作表中的所有已选中复选框都会立即被取消选中。

在选定区域中一次性插入多个复选框

Kutools for Excel 的 批量插入复选框 工具可以帮助您快速一次性插入多个复选框。 点击下载 Kutools for Excel！