Excel 复选框：在 Excel 中添加、选择、删除和使用复选框

1. 两种类型的复选框（Check Box Form 控件 vs. Check Box ActiveX 控件）
2.在Excel中添加一个或多个复选框
- 2.1 插入一个复选框
- 2.2 插入多个复选框
3.更改复选框名称和标题文本
4. 将一个或多个复选框链接到单元格
- 4.1 将一个复选框链接到具有格式控制功能的单元格
- 4.2 使用 VBA 代码一次将多个复选框链接到单元格
5.选择一个或多个复选框
- 5.1 右击选中一个复选框
- 5.2 按Ctrl键选择多个复选框
6.删除一个或多个复选框
- 6.1 用VBA代码删除多个复选框
- 6.2 用一个简单的特性删除多个复选框
7. Excel 中的分组复选框
- 7.1 使用 Group 功能对复选框进行分组
- 7.2 使用 Group Box 命令对复选框进行分组
8. 示例：如何在 Excel 中使用复选框

Excel 复选框：在 Excel 中添加、选择、删除和使用复选框

复选框是一种交互式工具，用于选择或取消选择一个选项，您经常会在 Web 表单或填写调查时看到它们。在 Excel 中，您可以通过选中或取消选中使工作表更具动态性和交互性的复选框来添加多种可能性，例如通过复选框创建清单、通过复选框插入动态图表等。

在本教程中，我将介绍如何插入、选择、删除复选框，并给出一些在 Excel 中使用它们的示例。

目录：

1. 两种类型的复选框（Check Box Form 控件 vs. Check Box ActiveX 控件）

2.在Excel中添加一个或多个复选框

2.1 插入一个复选框
2.2 插入多个复选框

3.更改复选框名称和标题文本

4. 将一个或多个复选框链接到单元格

4.1 将一个复选框链接到具有格式控制功能的单元格
4.2 使用 VBA 代码一次将多个复选框链接到单元格

5.选择一个或多个复选框

5.1 右击选中一个复选框
5.2 按Ctrl键选择多个复选框

6.删除一个或多个复选框

6.1 用VBA代码删除多个复选框
6.2 用一个简单的特性删除多个复选框

7. Excel 中的分组复选框

7.1 使用 Group 功能对复选框进行分组
7.2 使用 Group Box 命令对复选框进行分组

8. 示例：如何在 Excel 中使用复选框

示例 1：创建带有复选框的待办事项列表
示例 2：创建带有复选框的动态图表
- 在 Excel 中创建带有复选框的交互式图表
- 使用简单的功能创建带有复选框的交互式图表
示例 3：创建带有复选框的下拉列表
- 使用列表框创建带有复选框的下拉列表
- 使用具有惊人功能的复选框创建下拉列表
示例 4：选中复选框以更改行颜色
- 选中复选框以使用条件格式更改行颜色
- 选中复选框以使用 VBA 代码更改行颜色
示例 5：如果选中复选框，则对单元格值进行计数或求和
示例 6：如果选中复选框，则返回特定值

两种类型的复选框（复选框表单控件与复选框 ActiveX 控件）

要插入复选框，您需要确保“开发人员”选项卡显示在功能区上。开发者选项卡默认是不活动的，所以你需要先启用它。

1. 在 Excel 工作簿中，请单击文件 > 附加选项。在 Excel选项 对话框，单击定制 彩色带，然后检查 开发商 选项并单击 OK 按钮关闭此对话框。

2。现在 开发商 选项卡出现在 Excel 功能区中，如下图所示。您可以根据需要从“开发人员”选项卡访问各种交互式控件。

Microsoft Excel 提供了两种类型的复选框 -复选框表单控件 和 复选框 ActiveX 控件:

复选框表单控件 比简单得多 复选框 ActiveX 控件，并 复选框 ActiveX 控件 在设计上更加灵活，可以作为代码中的对象使用。对于我们的日常工作来说，Form Controls 就足够了，所以我们在大多数情况下都会用到它们。

复选框表单控件与复选框 ActiveX 控件：

ActiveX 控件提供更多格式选项，您可以使用它们进行复杂灵活的设计；
表单控件内置在 Excel 中，而 ActiveX 控件是单独加载的，因此它们可能偶尔会冻结；
某些计算机默认不信任 ActiveX 控件，因此您需要从信任中心手动启用它们；
Check Box ActiveX 控件可以通过 VBA 编辑器以编程方式访问；
ActiveX 仅由 Windows 选项提供，Mac OS 不支持。

备注：我在以下教程中讨论的所有复选框都是 复选框表单控件.

在 Excel 中添加一个或多个复选框

要插入一个或多个复选框，本节可能会对您有所帮助。

2.1 插入一个复选框

要插入一个复选框，请执行以下操作：

1。点击 开发商 选项卡，然后单击插页来自 Controls 组，然后选择 复选框 下 表单控件. 然后，单击要插入复选框的单元格，复选框将出现在该单元格附近，请参见屏幕截图：

2. 然后，将光标放在复选框的选择框边缘。当它变为移动指针时，您可以单击并将复选框拖动到您需要的单元格中，请参见屏幕截图：

2.2 插入多个复选框

如果您的工作表中需要多个复选框，这里将为您讨论一些快速方法。

使用填充句柄选项插入多个复选框

要快速插入多个复选框，如上所述添加一个复选框，然后使用填充句柄选项将复选框填充到其他单元格。

1. 单击以选中复选框所在的单元格。

2. 向下拖动填充手柄以填充复选框，如下图所示：

使用VBA代码插入多个复选框

以下 VBA 代码还可以帮助您快速轻松地插入复选框列表。请这样做：

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

2。然后，点击插页 > 模块，然后将以下代码粘贴到模块窗口。

VBA代码：将多个复选框插入到单元格列表中

Sub InsertCheckBoxes()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Ws = Application.ActiveSheet
Application.ScreenUpdating = False
For Each Rng In WorkRng
    With Ws.CheckBoxes.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        .Characters.Text = Rng.Value
    End With
Next
WorkRng.ClearContents
WorkRng.Select
Application.ScreenUpdating = True
End Sub

3。然后，按 F5 运行此代码的关键。将弹出一个提示框，提醒您选择一系列单元格以插入复选框。看截图：

4。然后，点击 OK 按钮，复选框被整齐地插入到单元格中，看截图：

使用方便的功能插入多个复选框

如果你有 Kutools for Excel，其 批量插入复选框 功能，您可以立即将复选框插入空白单元格或带有数据的单元格。

安装后 Kutools for Excel，请这样做：

1. 选择要插入复选框的单元格范围。

2。然后，点击 库工具 > 插页 > 批量插入复选框，请参见屏幕截图：

3. 然后，选定的单元格将填充有复选框，如下图所示：

将复选框插入空白单元格	将复选框插入数据单元格

更改复选框名称和标题文本

在 Excel 中使用复选框时，应区分复选框名称和标题名称。标题名称是您在复选框旁边看到的文本，复选框名称是您在选中复选框时在名称框中看到的名称，如下图所示：

复选框名称	字幕名称

要更改字幕名称，请右键单击复选框，然后选择 编辑文字 从上下文菜单中，输入您想要的新名称，查看屏幕截图：

要更改复选框名称，您应该选中复选框，然后在 姓名框 如下图所示：

将一个或多个复选框链接到单元格

使用复选框时，您通常需要将复选框链接到单元格。如果选中该框，则单元格显示 TRUE，如果未选中，则单元格显示 FALSE 或为空。本节将介绍如何将一个或多个复选框链接到 Excel 中的单元格。

4.1 将一个复选框链接到具有格式控制功能的单元格

要将复选框与某个单元格关联，请执行以下操作：

1. 右键单击复选框，然后选择 格式控制 从上下文菜单中，查看屏幕截图：

2。在 格式化对象 对话框中的系统选项卡，单击以选择要链接到复选框的单元格 单元链接 框，或手动键入单元格引用，请参见屏幕截图：

3。点击 OK 关闭对话框，现在，复选框链接到特定单元格。如果选中它，会显示一个 TRUE，取消选中它，会出现一个 FALSE，如下示例所示：

4.2 使用 VBA 代码将多个复选框链接到单元格

要使用格式控制功能将多个复选框链接到单元格，您需要一次又一次地重复上述步骤。如果需要链接成百上千个复选框，这将非常耗时。在这里，我将介绍一个 VBA 代码来一次将多个复选框链接到单元格。

1. 转到包含复选框的工作表。

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

3。然后，点击插页 > 模块，然后将以下代码粘贴到模块窗口。

VBA代码：一次将多个复选框链接到单元格

Sub LinkChecks()
'Update by Extendoffice
Dim xCB
Dim xCChar
i = 2
xCChar = "C"
For Each xCB In ActiveSheet.CheckBoxes
If xCB.Value = 1 Then
    Cells(i, xCChar).Value = True
Else
    Cells(i, xCChar).Value = False
End If
xCB.LinkedCell = Cells(i, xCChar).Address
i = i + 1
Next xCB
End Sub

备注: 在这段代码中， I = 2，号码 2 是复选框的起始行，并且 xCChar = "C"，这封信 C 是您要将复选框链接到的列。您可以根据需要更改它们。

4。然后，按 F5 运行此代码的关键，活动工作表中的所有复选框立即链接到指定的单元格。选中复选框时，其相关单元格将显示 TRUE，取消选中复选框，链接单元格将显示 FALSE，见截图：

选择一个或多个复选框

要复制或删除工作表中的复选框，您应该先选中复选框。要选择一个或多个复选框，请执行以下操作：

选择一个复选框：（两种方式）

右键单击复选框，然后单击其中的任意位置。
OR
按 按Ctrl 键，然后单击复选框。

选择多个复选框：

按住 按Ctrl 键，然后单击要一一选择的复选框。

删除一个或多个复选框

删除一个复选框对我们来说很容易，您只需选择它，然后按键盘上的 Delete 键。当涉及到多个复选框时，你怎么能在 Excel 中做到这一点？

6.1 用VBA代码删除多个复选框

要删除工作表中的所有复选框，您可以应用以下 VBA 代码。

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

2。然后，点击 Insert> 模块，然后将以下代码粘贴到 模块窗口.

VBA代码：删除当前工作表中的所有复选框

Sub RemoveCheckboxes()
'Update by Extendoffice
On Error Resume Next
ActiveSheet.CheckBoxes.Delete
Selection.FormatConditions.Delete
End Sub

3。然后按 F5 键来执行代码。将立即删除特定工作表中的所有复选框。

6.2 用一个简单的特性删除多个复选框

Kutools for Excel和 批量删除复选框 功能，您只需单击几下即可根据需要从一系列选择或整个工作表中删除复选框。

安装后 Kutools for Excel，请这样做：

1. 选择包含要删除的复选框的单元格范围或整个工作表。

2。然后，点击 库工具 > 删除 > 批量删除复选框，请参见屏幕截图：

3. 然后，所有复选框都会立即从选择中删除。

Excel 中的分组复选框

当您想一起移动多个复选框或调整其大小时，将复选框分组可能有助于一次控制所有复选框。本节将讨论如何在 Excel 工作表中对多个复选框进行分组。

7.1 使用 Group 功能对复选框进行分组

在Excel中，团队功能可以帮助对多个复选框进行分组，请这样做：

1。持有 按Ctrl 键，然后单击以选中要分组的复选框，请参见屏幕截图：

2. 然后，右键单击并选择团队 > 团队从上下文菜单中，查看屏幕截图：

3. 并且所有选中的复选框都被分组，您可以一次移动、复制它们。

7.2 使用 Group Box 命令对复选框进行分组

此外，您还可以使用 组合箱 将多个复选框组合在一起。请执行以下步骤：

1。去的 开发商 标签，然后单击插页 > 组框（表单控件），请参见屏幕截图：

2. 然后，拖动鼠标绘制一个分组框，并根据需要更改分组框标题名称：

3. 现在，您可以在组框中插入复选框，单击 开发商 > 插页 > 复选框（表单控件），请参见屏幕截图：

4. 然后拖动鼠标绘制一个复选框，并根据需要修改标题名称，见截图

5. 同样，将其他复选框插入组框，您将获得如下截图所示的结果：

示例：如何在 Excel 中使用复选框

通过以上信息，我们了解了复选框的一些基本知识。在本节中，我将介绍如何在 Excel 中使用复选框进行一些交互式和动态操作。

示例 1：创建带有复选框的待办事项列表

待办事项列表对我们标记日常工作中已完成的任务很有用。在典型的待办事项列表中，选中的已完成任务具有删除线格式，如下图所示。借助复选框，您可以快速创建交互式待办事项列表。

要创建带有复选框的待办事项列表，请执行以下步骤：

1. 请将复选框插入您要使用的单元格列表中，请参见屏幕截图：（点击了解如何插入多个复选框)

2. 插入复选框后，您应该将每个复选框链接到单独的单元格。

Tips：要将复选框链接到单元格，您可以使用 格式控制 功能将它们一一链接到单元格，或应用 VBA代码 一次将它们链接到单元格。

3. 将复选框链接到单元格后，如果选中复选框，则显示 TRUE，如果未选中，则显示 FALSE，请参见截图：

4. 然后，您应该应用 条件格式 功能来实现以下操作。选择要创建待办事项列表的单元格区域 A2:C8，然后单击主页 > 条件格式 > 新规则 去 新格式规则 对话框。

5。在 新格式规则 对话框中，单击 使用公式来确定要格式化的单元格 ，在 选择规则类型 列表框，然后输入此公式 = C2 = TRUE 到 格式化此公式为真的值 文本框，请参见屏幕截图：

备注: C2 是一个链接到复选框的单元格..

6. 然后，继续点击格式按钮去 单元格格式 对话框。在下面字体选项卡，检查 删除线 来自效果部分，并根据需要为已完成的待办事项列表项指定颜色，请参见屏幕截图：

7。然后，点击 OK > OK 要关闭对话框，现在，当您选中复选框时，其对应的项目将被格式化为删除线，如下例所示：

示例 2：创建带有复选框的动态图表

有时，您可能需要在一张图表中显示大量数据和信息，而图表会乱七八糟。在这种情况下，您可以使用复选框在工作表中创建动态图表。勾选复选框时，会显示对应的数据线，不勾选则隐藏数据线，如下图所示：

本节将讨论在 Excel 中创建此类图表的两个快速技巧。

在 Excel 中创建带有复选框的交互式图表

通常，在 Excel 中，您可以通过以下步骤使用复选框来创建动态图表：

1. 插入一些复选框并重命名它们。在这种情况下，我将插入三个复选框并将它们重命名为 Apple、Orange 和 Peach，见截图：

2. 然后，您应该将这些复选框链接到单元格，请单击以选中第一个复选框，然后右键单击，然后选择 格式控制在 格式化对象 对话框中的系统标签，从 单元链接 框，选择与复选框链接的单元格，请参见屏幕截图：

3. 重复上述步骤，将其他两个复选框链接到其他单元格。现在，如果您选中复选框，将显示 TRUE，否则将显示 FALSE，如下示例所示：

4. 插入并链接复选框后，现在您应该准备数据。将原始数据行和列标题复制到另一个地方，看截图：

5. 然后应用以下公式：

在单元格中 B13: = IF（$ B $ 6，B2，NA（）），并拖动填充柄将行从 B13 填充到 G13；
在单元格中 B14: = IF（$ B $ 7，B3，NA（））,并拖动填充柄将行从B14填充到G14；
在单元格中 B15: = IF（$ B $ 8，B4，NA（）），然后拖动填充手柄以填充从 B15 到 G15 的行。
如果选中该产品的复选框，这些公式将返回原始数据中的值，如果未选中，则返回 #N/A。看截图：

6. 然后，请选择新的数据范围从 A12 到 G15，然后，单击插页 > 插入折线图或面积图 > Line 插入折线图。

7. 现在，当您选中产品复选框时，它的数据线会出现，当取消选中时，它会消失，如下示例所示：

8. 创建图表后，您可以将复选框放在图表上以使其看起来整洁。单击选择绘图区域，然后拖动以缩小它，见截图：

9。然后，按 按Ctrl 键选中三个复选框，将它们拖到图表上，然后右键选择 向前走 > 向前走，请参见屏幕截图：

10. 复选框显示在图表上，继续按 按Ctrl 键一一选中复选框和图表，右键选中团队 > 团队，请参见屏幕截图：

11. 现在，复选框与折线图链接。当您移动图表时，复选框也会相应移动。

使用简单的功能创建带有复选框的交互式图表

上面的方法对你来说可能有些困难，在这里，我将介绍一个简单的方法来解决这个任务。和 Kutools for Excel“ 复选框折线图 功能，您可以轻松创建带有复选框的动态图表。

安装后 Kutools for Excel，请这样做：

1. 选择要创建图表的数据范围，然后单击 库工具 > 图表 > 类别比较 > 复选框折线图，请参见屏幕截图：

2。然后， 复选框折线图 弹出对话框，您选择的数据会自动填充到各自的文本框中，见截图：

3。然后，点击 OK 按钮，并弹出提示框提醒您将创建一个带有一些中间数据的隐藏表，请单击是按钮，请参见屏幕截图：

4. 一个带有复选框的折线图将被成功创建，见截图：

示例 3：创建带有复选框的下拉列表

对于我们大多数人来说，从下拉列表中选择多个项目可能是一项常见任务。一些用户尝试创建一个带有复选框的下拉列表来选择多项选择，如下面的演示所示。遗憾的是，无法在 Excel 中创建带有复选框的此类下拉列表。但是，在这里，我将介绍 Excel 中的两种类型的多复选框选择。一个是带有复选框的列表框，另一个是带有复选框的下拉列表。

使用列表框创建带有复选框的下拉列表

您可以使用列表框而不是下拉列表来添加复选框以进行多选。这个过程有点复杂，请按照以下步骤逐步进行：

1. 首先，请插入一个列表框，点击 开发商 > 插页 > 列表框（ActiveX控件）。看截图：

2. 拖动鼠标绘制一个列表框，然后右键单击它，选择 查看房源 从上下文菜单中，查看屏幕截图：

3。在 查看房源 窗格中，请设置如下操作：

在 列表填充范围 框，输入要在列表框中显示的数据范围；
在 列表样式 框中选择 1-fmList StyleOption 从下拉列表中
在多选框中选择 1 – fmMultiSelectMulti 从下拉列表中
最后，单击关闭按钮将其关闭。

4. 然后，单击要输出多个选定项目的单元格，并为其指定范围名称。请输入范围名称“输出项目“ 进入 姓名框 并按下输入键，请参见屏幕截图：

5。然后，单击插页 > 形状 > 长方形， 拖动鼠标在列表框上方画一个矩形，看截图：

6. 然后右键单击矩形并选择 分配宏 从上下文菜单中。看截图：

7。在 分配宏 对话框中，单击全新按钮，请参见屏幕截图：

8. 在开幕 Microsoft Visual Basic应用程序 窗口，将模块窗口中的原始代码替换为以下 VBA 代码：

Sub Rectangle1_Click()
'Updated by Extendoffice
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("Outputitem").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("Outputitem") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("Outputitem") = ""
    End If
End If
End Sub

备注：在上面的代码中， 矩形1 是形状名称， ListBox1 是列表框的名称，而 输出项目 是输出单元格的范围名称。您可以根据需要进行更改。

9. 然后，关闭代码窗口。现在，单击矩形按钮将隐藏或显示列表框。显示列表框后，选中列表框中的项目，再次点击矩形按钮，将选中的项目输出到指定单元格中，见下例：

使用具有惊人功能的复选框创建下拉列表

要将复选框添加到真正的下拉列表中，您可以使用强大的工具 - Kutools for Excel，其 带有复选框的下拉列表 功能，您可以快速轻松地创建带有多个复选框的下拉列表。

安装后 Kutools for Excel，请这样做：

1. 首先，请在选中的单元格中插入正常的下拉列表，看截图：

2。然后，点击 库工具 > 下拉列表 > 带有复选框的下拉列表 > 个人设置。看截图：

3。在 带有复选框设置的下拉列表 对话框，请进行以下配置。

在 适用于 部分，指定您将为下拉列表单元格创建复选框的应用范围。您可以根据需要指定某个范围、当前工作表、当前工作簿或所有打开的工作簿；
在时尚部分中，选择修改选项;
在 分隔器 框，键入分隔符以分隔所选项目；
在 T分机方向部分，根据您的需要选择文本方向；
最后，点击 OK 按钮。

4。完成设置后，单击 库工具 > 下拉列表 > 带有复选框的下拉列表 > 启用复选框的下拉列表 激活此功能。看截图：

5. 从现在开始，当您单击带有下拉列表的单元格时，将弹出带有复选框的列表，然后通过选中复选框来选择项目以将项目输出到单元格中，如下例所示：

单击以了解此功能的更多详细信息...

示例 4：选中复选框以更改行颜色

您是否曾尝试根据选中的复选框更改行颜色？这意味着如果您选中如下图所示的复选框，相关行的颜色将发生变化，本节将讨论在 Excel 中解决此任务的一些技巧。

选中复选框以使用条件格式更改单元格颜色

要通过选中或取消选中复选框来更改行颜色， 条件格式 Excel 中的功能可以帮您一个忙。请这样做：

1. 首先，根据需要将复选框插入单元格列表中，请参见屏幕截图：

2. 接下来，您应该将这些复选框分别链接到每个复选框旁边的单元格，请参见屏幕截图：

Tips：要将复选框链接到单元格，您可以使用 格式控制 功能将它们一一链接到单元格，或应用 VBA代码 一次将它们链接到单元格。

3. 然后，选择要更改行颜色的数据范围，然后单击主页 > 条件格式 > 新规则，请参见屏幕截图：

4。在 新格式规则 对话框中，进行以下操作：

点击 使用公式来确定要格式化的单元格 在选项 选择规则类型 框;
输入此公式 =IF($F2=真,真,假) 到 格式化此公式为真的值 框;
点击格式按钮为行指定您喜欢的颜色。

备注：在公式， $2 是复选框的第一个链接单元格..

5. 选择颜色后，点击 OK > OK 关闭对话框，现在，当您选中一个复选框时，相应的行将自动突出显示，如下面的演示所示：

 选中复选框以使用 VBA 代码更改行颜色

以下 VBA 代码还可以帮助您根据选中的复选框更改行颜色，请使用以下代码：

1. 在要通过复选框突出显示行的工作表中，右键单击工作表选项卡并选择 查看代码 从右键单击菜单中。看截图：

2. 将以下代码复制并粘贴到打开的 Microsoft Visual Basic应用程序 窗口：

VBA代码：通过选中复选框突出显示行

Sub AddCheckBox()
Dim xCell As Range
Dim xRng As Range
Dim I As Integer
Dim xChk As CheckBox
On Error Resume Next
InputC:
    Set xRng = Application.InputBox("Please select the column range to insert checkboxes:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count > 1 Then
    MsgBox "The selected range should be a single column", vbInformation, "Kutools fro Excel"
    GoTo InputC
Else
    If xRng.Columns.Count = 1 Then
        For Each xCell In xRng
            With ActiveSheet.CheckBoxes.Add(xCell.Left, _
               xCell.Top, xCell.Width = 15, xCell.Height = 12)
               .LinkedCell = xCell.Offset(, 1).Address(External:=False)
               .Interior.ColorIndex = xlNone
               .Caption = ""
               .Name = "Check Box " & xCell.Row
            End With
            xRng.Rows(xCell.Row).Interior.ColorIndex = xlNone
        Next
    End If
    With xRng
     .Rows.RowHeight = 16
    End With
    xRng.ColumnWidth = 5#
    xRng.Cells(1, 1).Offset(0, 1).Select
    For Each xChk In ActiveSheet.CheckBoxes
      xChk.OnAction = "Sheet2.InsertBgColor"
    Next
End If
End Sub

Sub InsertBgColor()
Dim xName As Integer
Dim xChk As CheckBox
For Each xChk In ActiveSheet.CheckBoxes
  xName = Right(xChk.Name, Len(xChk.Name) - 10)
  If (xName = Range(xChk.LinkedCell).Row) Then
   If (Range(xChk.LinkedCell) = "True") Then
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = 6
   Else
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = xlNone
   End If
  End If
Next
End Sub

请注意： 在上面的代码中，在这个脚本中 xChk.OnAction = "Sheet2.InsertBgColor", 您应该更改工作表名称-Sheet2 对你自己（Sheet2 是工作表的真实名称，您可以从左侧代码窗口窗格中获取它）。看截图：