跳至主要内容

Kutools for Office — 一套工具，五种功能。事半功倍。

如何在Excel中选中一个复选框时取消另一个复选框的选择？

Author Siluvia Last modified

在许多实际场景中，例如在Excel中管理一个冗长的购买清单时，您可能会遇到需要确保在特定类别或组中只能选择一个选项的情况。例如，如果某些类别超出预算，您可能需要重新选择项目，以便每个组中只保留一个选中的选项。手动管理大型列表中的复选框既低效又容易出错，特别是在类别数量增加的情况下。为了简化此过程并减少错误，您可以设置Excel，使得在一个组内选中新复选框时会自动取消之前选中的复选框，从而确保每个类别始终只有一个选项被选中。本文提供了分步指南，帮助您实现这一目标，使您的工作流程更加高效和可靠。

使用VBA代码在新复选框被选中时取消另一个复选框的选择

为说明此过程，请考虑如上视频所示的情况。您有十个标记为CheckBox1到CheckBox10的复选框，并分为三组，代表不同的购买类别。

✅ 分组结构：

  • 第一组：CheckBox1、CheckBox2、CheckBox3
  • 第二组：CheckBox4、CheckBox5、CheckBox6、CheckBox7
  • 第三组：CheckBox8、CheckBox9、CheckBox10

在每组中，一次只能选中一个复选框。当一个新复选框被选中时，同一组中的其他复选框将自动取消选中——类似于单选按钮的行为，但使用的是复选框。

🧩 应用VBA解决方案的步骤：

  1. 打开VBA编辑器：右键单击放置复选框的工作表标签，然后选择查看代码。
    2. View Code menu
  2. 将以下代码粘贴到工作表的代码窗口中：
    3. Dim xBol As Boolean
'Updated by Extendoffice

Private Sub CheckBox1_Change(): SetCheckBoxes "CheckBox1": End Sub
Private Sub CheckBox2_Change(): SetCheckBoxes "CheckBox2": End Sub
Private Sub CheckBox3_Change(): SetCheckBoxes "CheckBox3": End Sub
Private Sub CheckBox4_Change(): SetCheckBoxes "CheckBox4": End Sub
Private Sub CheckBox5_Change(): SetCheckBoxes "CheckBox5": End Sub
Private Sub CheckBox6_Click(): SetCheckBoxes "CheckBox6": End Sub
Private Sub CheckBox7_Click(): SetCheckBoxes "CheckBox7": End Sub
Private Sub CheckBox8_Click(): SetCheckBoxes "CheckBox8": End Sub
Private Sub CheckBox9_Click(): SetCheckBoxes "CheckBox9": End Sub
Private Sub CheckBox10_Click(): SetCheckBoxes "CheckBox10": End Sub

Private Function SetCheckBoxes(mCheckBoxName As String)
    Dim xAllArr, xArrItem
    Dim xI, xJ
    If Not xBol Then Exit Function
    xAllArr = Array("CheckBox1,CheckBox2,CheckBox3", _
                   "CheckBox4,CheckBox5,CheckBox6,CheckBox7", _
                   "CheckBox8,CheckBox9,CheckBox10")
    For xI = LBound(xAllArr) To UBound(xAllArr)
        If InStr(xAllArr(xI), mCheckBoxName) > 0 Then
            xBol = False
            xArrItem = Split(xAllArr(xI), ",")
            For xJ = LBound(xArrItem) To UBound(xArrItem)
                If xArrItem(xJ) <> mCheckBoxName Then
                    Me.OLEObjects(xArrItem(xJ)).Object.Value = False
                End If
            Next
        End If
    Next
    xBol = True
End Function

Private Sub Worksheet_Activate(): xBol = True: End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range): xBol = True: End Sub
  3. 关闭VBA编辑器（Alt + Q）并返回Excel以测试复选框。

📌 重要提示：

  • 确保您的复选框名称属性（而非标签）与代码中的名称完全匹配。
  • 分组在数组行中定义：
    xAllArr = Array("CheckBox1,CheckBox2,CheckBox3", "CheckBox4,CheckBox5,CheckBox6,CheckBox7", "CheckBox8,CheckBox9,CheckBox10")
  • 此VBA仅适用于ActiveX控件复选框，不适用于窗体控件。
  • 必须启用宏才能使此自动化功能正常运行。

📺 演示：

🔍 排查问题提示：

  • 验证没有重复的复选框名称。
  • 确保所有复选框均为ActiveX控件。
  • 每个复选框过程必须正确调用SetCheckBoxes。
  • 跨工作表场景需要通过类模块或集中控制进行调整。

💡 替代方案：您可以使用窗体控件中的选项按钮来实现内置的单选行为。然而，对于高级布局和逻辑控制，VBA+复选框更灵活。

✨ 小提示：像Kutools for Excel这样的工具提供基于GUI的复选框管理，无需编码即可轻松设置。

演示：在Excel中选中一个复选框时取消另一个复选框的选择

 
Kutools for Excel：超过 300 种实用工具触手可及！永久免费享受 AI 功能！立即下载！

最佳Office办公效率工具

🤖 Kutools AI 助手：以智能执行为基础，彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数……
热门功能：查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入……
高级LOOKUP：多条件VLookup|多值VLookup|多表查找|模糊查找……
高级下拉列表：快速创建下拉列表 |依赖下拉列表 | 多选下拉列表……
列管理器： 添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域与列……
特色功能：网格聚焦 |设计视图 | 增强编辑栏 | 工作簿及工作表管理器 | 资源库（自动文本） | 日期提取 | 合并数据 | 加密/解密单元格 | 按名单发送电子邮件 | 超级筛选 | 特殊筛选（筛选粗体/倾斜/删除线等）……
15大工具集：12项 文本工具（添加文本、删除特定字符等）|50+种 图表 类型（甘特图等）|40+实用 公式（基于生日计算年龄等）|19项 插入工具（插入二维码、从路径插入图片等）|12项 转换工具（小写金额转大写、汇率转换等）|7项 合并与分割工具（高级合并行、分割单元格等）| ……
Kutools支持多种语言——可选择英语、西班牙语、德语、法语、中文等40多种语言！

通过Kutools for Excel提升您的Excel技能，体验前所未有的高效办公。 Kutools for Excel提供300多项高级功能，助您提升效率并节省时间。 点击此处获取您最需要的功能……

Office Tab为Office带来多标签界面，让您的工作更加轻松

  • 支持在Word、Excel、PowerPoint中进行多标签编辑与阅读。
  • 在同一个窗口的新标签页中打开和创建多个文档，而不是分多个窗口。
  • 可提升50%的工作效率，每天为您减少数百次鼠标点击！

所有Kutools加载项，一键安装

Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件，以及Office Tab Pro，非常适合跨Office应用团队使用。

Excel Word Outlook Tabs PowerPoint
  • 全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro
  • 单一安装包、单一授权——数分钟即可完成设置（支持MSI）
  • 协同更高效——提升Office应用间的整体工作效率
  • 30天全功能试用——无需注册，无需信用卡
  • 超高性价比——比单独购买更实惠