跳至主要内容

Kutools for Office — 一套工具，五种功能。事半功倍。

如何根据单元格的值更改工作表标签的颜色？

Author Xiaoyang Last modified

通常，您可以轻松快速地在 Excel 中更改标签颜色，但您是否尝试过根据工作表中的单元格值来更改标签颜色呢？如果您对这个任务感兴趣，我将为您介绍一些代码，以便根据 Excel 中特定单元格的值为工作表标签着色。

使用 VBA 代码基于单元格值更改单个工作表标签颜色

使用 VBA 代码基于单元格值更改多个工作表标签颜色

arrow blue right bubble 使用 VBA 代码基于单元格值更改单个工作表标签颜色

例如，如果 A1 单元格中的值是文本“TRUE”，我希望当前工作表标签颜色变为绿色；如果 A1 中的文本是“FALSE”，则标签颜色变为红色；如果 A1 单元格中的值是其他任何文本，则标签颜色变为蓝色，如下图所示：

change sheet tab color based on cell value

1. 右键单击您要根据 A1 单元格中的数据更改其颜色的工作表标签，然后从上下文菜单中选择 查看代码。

2. 在 Microsoft Visual Basic for Applications 窗口中，将以下 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

click View Code and insert the code into the module

注意：在上述代码中，A1 是您希望基于其为标签着色的单元格引用，“True”、“False”是您需要的文本，您可以根据需要进行更改，并且您可以根据需要更改代码中的颜色。

3. 然后保存并关闭此代码窗口，现在，当您在 A1 单元格中输入文本“True”时，当前标签颜色将变为绿色；当您在 A1 单元格中输入文本“False”时，标签颜色将变为红色；如果在 A1 单元格中输入其他文本，标签颜色将自动变为蓝色。

a screenshot of kutools for excel ai

使用 Kutools AI 解锁 Excel 魔法

  • 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
  • 自定义公式：生成量身定制的公式，优化您的工作流程。
  • VBA 编码：轻松编写和实现 VBA 代码。
  • 公式解释：轻松理解复杂公式。
  • 文本翻译：打破电子表格中的语言障碍。
通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

arrow blue right bubble 使用 VBA 代码基于单元格值更改多个工作表标签颜色

如果您需要根据单元格值更改多个工作表标签颜色，这里也有一个代码可能对您有所帮助，请按照以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口，在打开的窗口中，双击 VBAProject 部分下的 ThisWorkbook，然后将以下代码复制并粘贴到空白 模块 中：

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

click ThisWorkbook and insert the code into the module

注意：在上述代码中，A1 和 Master 是您希望基于其为标签着色的单元格和工作表，Sheet1、Sheet2、Sheet3 是您希望为其标签着色的工作表。KTE、KTW、KTO 是 A1 中您希望基于其为标签着色的单元格值，您可以根据需要更改代码中的引用和颜色。

2. 然后保存并关闭此代码窗口，现在，当您在 Master 工作表的 A1 单元格中输入文本 KTE 时，Sheet1 标签将变为红色；当您在 A1 单元格中输入 KTO 时，Sheet2 将变为绿色；当您在 A1 单元格中输入 KTW 时，Sheet3 将变为蓝色，见截图：

change multiple sheet tabs based on cell value

最佳Office办公效率工具

🤖 Kutools AI 助手：以智能执行为基础，彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数……
热门功能：查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入……
高级LOOKUP：多条件VLookup|多值VLookup|多表查找|模糊查找……
高级下拉列表：快速创建下拉列表 |依赖下拉列表 | 多选下拉列表……
列管理器： 添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域与列……
特色功能：网格聚焦 |设计视图 | 增强编辑栏 | 工作簿及工作表管理器 | 资源库（自动文本） | 日期提取 | 合并数据 | 加密/解密单元格 | 按名单发送电子邮件 | 超级筛选 | 特殊筛选（筛选粗体/倾斜/删除线等）……
15大工具集：12项 文本工具（添加文本、删除特定字符等）|50+种 图表 类型（甘特图等）|40+实用 公式（基于生日计算年龄等）|19项 插入工具（插入二维码、从路径插入图片等）|12项 转换工具（小写金额转大写、汇率转换等）|7项 合并与分割工具（高级合并行、分割单元格等）| ……
Kutools支持多种语言——可选择英语、西班牙语、德语、法语、中文等40多种语言！

通过Kutools for Excel提升您的Excel技能，体验前所未有的高效办公。 Kutools for Excel提供300多项高级功能，助您提升效率并节省时间。 点击此处获取您最需要的功能……

Office Tab为Office带来多标签界面，让您的工作更加轻松

  • 支持在Word、Excel、PowerPoint中进行多标签编辑与阅读。
  • 在同一个窗口的新标签页中打开和创建多个文档，而不是分多个窗口。
  • 可提升50%的工作效率，每天为您减少数百次鼠标点击！

所有Kutools加载项，一键安装

Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件，以及Office Tab Pro，非常适合跨Office应用团队使用。

Excel Word Outlook Tabs PowerPoint
  • 全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro
  • 单一安装包、单一授权——数分钟即可完成设置（支持MSI）
  • 协同更高效——提升Office应用间的整体工作效率
  • 30天全功能试用——无需注册，无需信用卡
  • 超高性价比——比单独购买更实惠