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

网友投稿 408 2024-01-21

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

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

取消选中或取消选中所有带有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

Copy

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

Copy

3。然后按 F5 键以运行此代码，并且已在活动工作表中立即取消选中所有选中的复选框。

一次在选择中插入多个复选框

Kutools for Excels 批量插入复选框 实用程序可帮助您一次快速插入多个复选框。 点击下载 Kutools for Excel!

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。