在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.选择一个需要更改其背景颜色的单元格,然后选中该复选框。 您可以看到所选单元格的填充颜色变为红色。 取消选中该复选框后,所选单元格将不填充背景色。 查看屏幕截图:
相关文章:
- 如何在Excel中使用复选框突出显示单元格或行?
- 如果在Excel中选中复选框,如何在单元格中插入日期戳?
- 如何根据Excel中的单元格值选中复选框?
- 如何根据Excel中的复选框过滤数据?
- 在Excel中隐藏行时如何隐藏复选框?
- 如何在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%,并减少数百次鼠标单击!