Excel宏：如何根据工作表名称设置标签颜色？

问题分析 #

你之前尝试用sheet.name失败，是因为Sheet是VBA中工作表对象的类型名称，并非具体的工作表实例。要引用工作表名称，需要先定位到具体的工作表对象，再通过.Name属性获取或匹配名称。

解决方案1：针对单个指定名称的工作表 #

如果要给某个已知名称的工作表设置标签颜色，可以先定义目标名称，再定位工作表（增加存在性检查避免报错）：

Sub sbColorSheetTabByName()
    Dim targetSheetName As String
    targetSheetName = "Sheet2" ' 替换为你需要的工作表名称
    
    ' 检查工作表是否存在
    On Error Resume Next
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(targetSheetName)
    On Error GoTo 0
    
    If Not ws Is Nothing Then
        ws.Tab.ColorIndex = 3 ' 3=红色，可替换为其他颜色索引
    Else
        MsgBox "找不到名为「" & targetSheetName & "」的工作表"
    End If
End Sub

解决方案2：遍历所有工作表，按名称规则批量设置 #

如果需要根据不同名称批量设置颜色（比如匹配特定关键词或固定名称），可以遍历所有工作表：

Sub sbColorTabsByNamingRule()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Sheets
        ' 按固定名称匹配设置颜色
        Select Case ws.Name
            Case "Sheet1"
                ws.Tab.ColorIndex = 4 ' 绿色
            Case "Sheet2"
                ws.Tab.ColorIndex = 3 ' 红色
            Case "月度报表"
                ws.Tab.ColorIndex = 5 ' 蓝色
            Case Else
                ws.Tab.ColorIndex = xlColorIndexNone ' 默认无颜色
        End Select
        
        ' 可选：按关键词匹配，比如名称包含「销售」则设黄色
        ' If InStr(ws.Name, "销售") > 0 Then
        '     ws.Tab.ColorIndex = 6 ' 黄色
        ' End If
    Next ws
End Sub

常用颜色索引参考 #

• 3 = 红色
• 4 = 绿色
• 5 = 蓝色
• 6 = 黄色
• xlColorIndexNone = 恢复默认无颜色

内容的提问来源于stack exchange，提问作者Omniman69