如何根据单元格值更改工作表标签的颜色?
通常,您可以在Excel中轻松快速地更改选项卡颜色,但是,您是否曾经尝试过根据工作表中的单元格值更改选项卡颜色? 如果您对此任务感兴趣,我将为您介绍一些代码,这些代码可让您根据Excel中的特定单元格值为工作表标签着色。
使用VBA代码根据单元格值更改一张标签的颜色
例如,我希望如果A1中的单元格值为文本“ TRUE”,则当前工作表标签颜色将为绿色;如果A1中的文本为“ FALSE”,则标签颜色将为红色;如果A1中的文本为“ FALSE”,则标签颜色将为蓝色。单元格AXNUMX中的值是任何其他文本,如以下屏幕截图所示:
1。 右键单击要基于单元格A1中的数据更改其颜色的工作表选项卡,然后选择 查看代码 从上下文菜单。
2。 在 Microsoft Visual Basic应用程序 窗口,将下面的VBA代码复制并粘贴到 模块 窗口。
VBA代码:根据单元格值更改一种工作表标签的颜色:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$A$1" Then
Select Case Target.Value
Case "False"
Me.Tab.Color = vbRed
Case "True"
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub
请注意: 在上面的代码中, A1 是您要根据以下选项为标签上色的单元格引用:真“”假”是您需要的文本,您可以根据需要对其进行更改,还可以根据需要在代码中更改颜色。
3。 然后保存并关闭此代码窗口,现在,当您在单元格A1中输入文本“ True”时,当前标签页颜色将变为绿色,而当您在单元格A1中输入文本“ False”时,标签页颜色将变为红色,如果在单元格A1中输入了其他文本,则标签颜色将自动变为蓝色。
使用VBA代码根据单元格值更改多个工作表标签
如果您需要根据单元格值更改多个工作表标签的颜色,以下代码也可以为您提供帮助,请执行以下操作:
1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口,在打开的窗口中,双击 的ThisWorkbook 在下面 VBA项目 部分,然后将以下代码复制并粘贴到空白处 模块:
VBA代码:根据单元格值更改多个工作表标签:
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Updateby Extendoffice 20160930
Select Case Sheets("Master").Range("A1").Value
Case "KTE"
Sheets("Sheet1").Tab.Color = vbRed
Case "KTO"
Sheets("Sheet2").Tab.Color = vbGreen
Case "KTW"
Sheets("Sheet3").Tab.Color = vbBlue
End Select
End Sub
请注意: 在上面的代码中, A1 和Master是您要根据其为标签着色的单元格和工作表, Sheet1, Sheet2, Sheet3 是要为选项卡着色的工作表。 韩国电信, 韩国电信, 韩国旅游发展局 是您要为标签上色的A1中的单元格值,您可以根据需要更改代码中的引用和颜色。
2。 然后保存并关闭此代码窗口,现在,当您在主表的单元格A1中输入文本KTE时,Sheet1选项卡将变为红色,当您在单元格A1中输入KTO时,Sheet2将变为绿色,并且当在单元格A1中输入KTW时,Sheet3将变为蓝色,请参见屏幕截图:
最佳办公生产力工具
🤖 | 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%,并减少数百次鼠标单击!