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

网友投稿 982 2023-12-07

1. 两种类型的复选框(Check Box Form 控件 vs. Check Box ActiveX 控件) 2.在Excel中添加一个或多个复选框 2.1 插入一个复选框 2.2 插入多个复选框 使用填充句柄选项插入多个复选框 使用VBA代码插入多个复选框 使用方便的功能插入多个复选框 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:如果选中复选框,则返回特定值

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

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

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

目录:

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

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

2.1 插入一个复选框 2.2 插入多个复选框 使用填充句柄选项插入多个复选框 使用VBA代码插入多个复选框 使用方便的功能插入多个复选框

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
Copy

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

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

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

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

安装后 Kutools for Excel,请这样做:

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

2。 然后,点击 Kutools > 插页 > 批量插入复选框,请参见屏幕截图:

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
Copy

备注: 在这段代码中, 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
Copy

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

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

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

安装后 Kutools for Excel,请这样做:

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

2。 然后,点击 Kutools > 删除 > 批量删除复选框,请参见屏幕截图:

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. 插入并链接复选框后,现在您应该准备数据。 将原始数据行和列标题复制到另一个地方,看截图:

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

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. 选择要创建图表的数据范围,然后单击 Kutools > 图表 > 类别比较 > 复选框折线图,请参见屏幕截图:

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
Copy

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

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

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

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

安装后 Kutools for Excel,请这样做:

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

2。 然后,点击 Kutools > 下拉列表 > 带有复选框的下拉列表 > 个人设置。 看截图:

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

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

4。 完成设置后,单击 Kutools > 下拉列表 > 带有复选框的下拉列表 > 启用复选框的下拉列表 激活此功能。 看截图:

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
Copy

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

3. 然后,将光标放在代码的第一部分,然后按 F5 键来运行代码。 在弹出 Kutools for Excel 对话框,请选择要插入复选框的范围,见截图:

4。 然后,点击 OK 按钮,复选框被插入到选定的单元格中,如下图所示:

5. 从现在开始,如果您选中一个复选框,相关行将自动着色,如下图所示:

 示例 5:如果选中复选框,则对单元格值进行计数或求和

如果您有一个带有复选框列表的数据范围,现在,您想计算选中复选框的数量或根据选中的复选框对相应的值求和,如下图所示。 你怎么能在 Excel 中解决这个任务?

要解决此任务,重要的步骤是将复选框链接到数据旁边的相关单元格。 选中的复选框将在链接单元格中显示 TRUE,否则将显示 FALSE,然后,您可以使用 count 或 sum 函数根据 TRUE 或 FALSE 值获取结果。

1. 首先,您应该将复选框单独链接到单元格,如果选中复选框,则显示 TRUE,如果未选中,则显示 FALSE,见截图:

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

2. 然后,根据选中的复选框应用以下公式对值进行计数或求和:

通过选中的复选框计算值:

= COUNTIF(D2:D10,TRUE)

备注:在此公式中, D2:D10 是您为复选框设置的链接单元格的范围。

通过选中的复选框对值求和:

= SUMPRODUCT(($ D $ 2:$ D $ 10 = TRUE)* $ C $ 2:$ C $ 10)

备注:在此公式中, D2:D10 是您为复选框设置的链接单元格的范围,并且 C2:C10 是要求和的单元格列表。

 示例 6:如果选中复选框,则返回特定值

如果您有一个复选框,则在检查时,应在单元格中出现特定值,并在取消选中时,显示一个空白单元格,如下所示:

要完成这项工作,请这样做:

1. 首先,您应该将此复选框链接到一个单元格。 右键单击复选框,然后选择 格式控制,在弹出 格式化对象 对话框中的 系统 选项卡,单击以选择要与复选框链接的单元格 单元链接 框,请参见屏幕截图:

2。 然后,点击 OK 按钮关闭对话框。 现在,输入这个公式: =IF(A5=真,"Extendoffice","") 进入要输出结果的单元格,然后按 输入 键。

备注:在此公式中, A5 是链接到复选框的单元格,“Extendoffice” 是具体的文字,您可以根据需要更改它们。

3. 现在,当您选中复选框时,将显示特定文本,当取消选中它时,将显示一个空白单元格,请参见下面的演示:

最佳办公效率工具

Kutools for Excel 解决您的大部分问题,并将您的工作效率提高 80%

超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围... 合并单元格/行/列 和保存数据; 拆分单元格内容; 合并重复的行和总和/平均值...防止细胞重复; 比较范围... 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择... 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等... 收藏并快速插入公式,范围,图表和图片; 加密单元 带密码 创建邮件列表 并发送电子邮件... 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换... 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体... 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF... 数据透视表分组依据 周号,周几等 显示未锁定的单元格 用不同的颜色 突出显示具有公式/名称的单元格...
阅读更多 功能齐全的30天免费试用版... 采购... 

Office Tab - 为 Office 带来标签式界面,让您的工作更轻松

在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50%,并减少数百次鼠标单击!
阅读更多 功能齐全的30天免费试用版... 采购... 

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:Excel单元格转换教程——转换单位、文本和数字、货币、时区等。
下一篇:EXCEL COUNTIF 函数 - 计算非空白、大于/小于或包含特定值的单元格
相关文章