跳到主要内容

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

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

doc取消选中复选框1

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

最佳办公生产力工具

🤖 Kutools 人工智能助手：基于以下内容彻底改变数据分析： 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup  |   多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧   |  工作簿和工作表管理器   |  资源库 （自动文本）   |  日期选择器   |  合并工作表   |  加密/解密单元格   |  按列表发送电子邮件   |  超级筛选   |   特殊过滤器 （过滤粗体/斜体/删除线...）...
前 15 个工具集:  12 文本 工具 (添加文本, 删除字符，...）   |   50+ 图表 类型 (甘特图，...）   |   40+ 实用 公式 (根据生日计算年龄，...）   |   19 插入 工具 (插入二维码, 从路径插入图片，...）   |   12 转化 工具 (小写金额转大写, 货币兑换，...）   |   7 合并与拆分 工具 (高级组合行, 分裂细胞，...）   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

产品描述

Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松

  • 在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50％，并减少数百次鼠标单击！
Comments (15)
No ratings yet. Be the first to rate!
Liza Velázquez
Liza Velázquez
This comment was minimized by the moderator on the site
Hi!!

Thank you very much, all the codes work very well, it has been extremely useful to me, extraordinary work!

Kind regards
Reply
0
0
Ramon Torres
Ramon Torres
This comment was minimized by the moderator on the site
How would I clear all checkboxes on all worksheets?
Reply
0
0
Ramon Torres
Ramon Torres
This comment was minimized by the moderator on the site
How would clear all checkboxes on all worksheets?
Reply
0
0
skyyang
skyyang     Ramon Torres
This comment was minimized by the moderator on the site
Hello, Ramon

To clear all the checkboxes accross all sheets, please apply the below codes:
Uncheck all checkboxes from all sheets (Form Controls):
Sub Uncheckallcheckboxes()
    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


Uncheck all checkboxes from all sheets (ActiveX Controls):
Sub uncheck_all_ActiveX_checkboxes()
    Dim ws As Worksheet
    Dim xbox As OLEObject
    For Each ws In ThisWorkbook.Worksheets
        For Each xbox In ws.OLEObjects
            ws.OLEObjects(xbox.Name).Object.Value = False
        Next
    Next
End Sub


Please have a try, hope this can help you!
Reply
Report
0
0
Pfleger Siegfried
Pfleger Siegfried
This comment was minimized by the moderator on the site
Hallo,
beim öffnen der datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 nicht aktiviert sein

Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1 = False
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2 = False
End If
End Sub

Danke für eure Hilfe
Reply
0
0
skyyang
skyyang     Pfleger Siegfried
This comment was minimized by the moderator on the site
Hello, Siegfried
If you want to check one and disable another one, please apply the below code:
Note: The checkbox here you should use the ActiveX Control checkbox.
Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2.Enabled = False
Else
CheckBox2.Enabled = True
End If
End Sub

Please have a try, hope it can help you!
Reply
Report
0
0
Linds
Linds
This comment was minimized by the moderator on the site
Merci beaucoup d'avoir partagé le code pour décocher des éléments "CheckBox", cela m'a sauvé ! :o)En effet, en codant un formulaire de saisie fait dans une feuille, je cherchais à trouver un moyen de décocher les cases (en guise de réinitialisation du formulaire) et je ne trouvais pas (à part avec la méthode "Select" qui est, comme nous le savons tous, à bannir), tout simplement car :=> la propriété ".CheckBoxes" n'existe pas en propriété d'une "Worksheet" !=> l'Objet "CheckBoxes" ne figure pas non plus dans l'explorateur d'objets !C'est lunaire cette histoire...Alors merci énormément.Bien à vous.
Reply
0
0
MandyZhou
MandyZhou     Linds
This comment was minimized by the moderator on the site
Bonjour Lindas,
Je vous en prie. Heureux que cela aide. Pour toute question, n'hésitez pas à nous contacter. Passe une bonne journée.
Sincèrement,
Mandy
Reply
Report
0
0
JL
JL
This comment was minimized by the moderator on the site
OMG THANK YOU, THIS WEBSITE IS A LIFE SAVER :)
Reply
0
0
Reika
Reika
This comment was minimized by the moderator on the site
Big help! thank you!
Reply
0
0
June
June
This comment was minimized by the moderator on the site
How do i uncheck only the boxes in a specific cell range in the active sheet? I have 3 lists in one sheet (Daily/Weekly/Monthly tasks) and wanted to make a "Clear All" button for each list.
Reply
0
0
Ariel
Ariel
This comment was minimized by the moderator on the site
What if I wanted to use a button to activate the macro to clear the boxes?
Reply
0
0
skyyang
skyyang     Ariel
This comment was minimized by the moderator on the site
Hi, Ariel,
To use a button to activate the macro, first, you should insert a button from the Shapes drop down list, and then right click the button, choose Assign Macro from the context menu, and then select the macro name in the Assign Macro dialog box. Then click OK, and the macro code will be linked to the button.
Please try, hope it can help you!
View Attachments (1 / 5)
Reply
Report
0
0
biqBob
biqBob
This comment was minimized by the moderator on the site
many thanks for this vba code, helped greatly.

FYI for people not getting it to work by hitting F5, simply :

developer tab > macros > select the module just created and click options > type a character for the shortcut, such as ctrl+j or ctrl+k.
Reply
0
0
R. Rothman
R. Rothman     biqBob
This comment was minimized by the moderator on the site
Thanks for your help with this. It is much appreciated. However please note: THE SPELLING IS WRONG IN THE CODE FOR STEP #2. VBA code: Uncheck or deselect all checked checkboxes (ActiveX Controls):
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

PLEASE NOTE THE WORD "Extendoffcie" IS NOT SPELLED CORRECTLY. SHOULDN'T IT BE "Extendoffice"?? Anyway, just wanted to put that out there
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations