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

如屏幕截图所示，如何在工作表中一次取消选中或取消选中所有选中的复选框？ 在本文中，我将讨论一些解决该问题的快速代码。

取消选中或取消选中所有带有VBA代码的复选框

取消选中或取消选中所有带有VBA代码的复选框

取消选中或取消选中所有选中的复选框（表单控件）：

如果您的复选框是表单控件，则可以使用以下VBA代码立即取消选中它们：

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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应用程序 窗口。

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's 批量插入复选框 实用程序可帮助您一次快速插入多个复选框。 点击下载Kutools for Excel！