跳到主要内容

在Excel中选中复选框时,如何更改指定的单元格值或颜色?

本文讨论的是通过复选框更改指定单元格的值或颜色。 例如,当某个复选框被选中,指定的单元的值或背景颜色将被自动改变。 请按照以下方法逐步进行处理。

使用公式选中复选框时更改指定的单元格值
使用VBA代码选中复选框时更改指定的单元格值
使用VBA代码选中复选框时更改指定的单元格颜色


使用公式选中复选框时更改指定的单元格值

假设您在选中复选框1时需要用值“ test”填充单元格A1。 并取消选中该复选框时将其空白。 请执行以下操作。

您需要首先将复选框链接到某个单元格,然后应用公式来实现它。

1.要将复选框链接到某个单元格,请选中它,然后在“公式栏”中输入=单元格引用并按Enter键。 在这里,我通过输入将复选框1链接到单元格C2 = C2 选中复选框后,进入编辑栏。

对于ActiveX控件复选框,请右键单击它并选择 查看房源 从右键单击菜单中。 而在 查看房源 对话框中,将链接的单元格输入到 链接单元 字段,然后关闭对话框。 看截图:

2.选择需要更改其值的单元格(此处选择A1),然后输入公式 = IF(C2,“ Test”,“”) 进入公式栏,然后按 输入 键。 看截图:

备注:在公式中,C2是复选框1的链接单元格,“测试”是选中该复选框后需要在单元格A1中显示的值。

选中或取消选中相应的复选框后,您可以看到如下屏幕截图所示的结果。


使用VBA代码选中复选框时更改指定的单元格值

当使用VBA代码选中复选框时,您还可以更改指定的单元格值。 请执行以下操作。

1.右键单击“表格选项卡”,其中包含您需要基于其更改的单元格值,然后单击“确定”。 查看代码 从右键单击菜单中。

2.在 Microsoft Visual Basic应用程序 窗口,请复制以下VBA代码并将其粘贴到 代码 窗口。

VBA代码:选中复选框时更改指定的单元格值

Private Sub CheckBox1_Click()
Dim xRng As Range
Dim xCell As Range, xStr As String
Set xRng = Selection
If CheckBox1.Value = True Then
    xStr = InputBox("Please enter a value:", "Kutools for Excel")
    xRng.Value = xStr
    If xStr = "" Then CheckBox1.Value = False
Else
    xRng.Value = ""
End If
End Sub

备注:在代码中, 方块1 是的名字 复选框(ActiveX控件)。 您可以根据需要进行更改。

3。 按 其他 + Q 同时关闭按键 Microsoft Visual Basic应用程序 窗口。

4.根据复选框选择要更改其值的空白单元格(A1),然后在工作表中选中checkbox1。 现在一个 Kutools for Excel 对话框弹出,请在选定的空白单元格中输入要填充的值,然后单击 OK 按钮。 看截图:

然后,指定的值立即显示在所选单元格中。 取消选中该复选框时,该单元格将为空白。

备注:此代码将提醒您每次选中复选框时循环输入文本值。


使用VBA代码选中复选框时更改指定的单元格颜色

本节将向您展示当使用VBA代码选中复选框时如何更改指定的单元格颜色。

1.右键单击 工作表标签 与您需要基于复选框更改的单元格颜色,然后单击 查看代码 从右键单击菜单中。

2.在 Microsoft Visual Basic应用程序 窗口,请将以下VBA代码复制并粘贴到“代码”窗口中。

VBA代码:选中复选框时更改指定的单元格颜色

Sub CheckBox1_Click()
Dim xRng As Range
Set xRng = Selection
If CheckBox1.Value = True Then
    xRng.Interior.Color = vbRed
Else
    xRng.Interior.Color = xlNone
End If
End Sub

备注:在代码中, 方块1 是的名字 复选框(ActiveX控件)。 您可以根据需要进行更改。

3.选择一个需要更改其背景颜色的单元格,然后选中该复选框。 您可以看到所选单元格的填充颜色变为红色。 取消选中该复选框后,所选单元格将不填充背景色。 查看屏幕截图:


相关文章:

最佳办公生产力工具

🤖 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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations