VBA应用技巧：根据条件设置工作表标签颜色

Sub SetupSheetTabsColorByConditional()
    Dim wks As Worksheet
    Dim strProjectStatus As String

    '遍历工作簿中的工作表
    For Each wks In ThisWorkbook.Worksheets
        '获取工作表单元格A1中的内容
        strProjectStatus = wks.Cells(1, 1).Value

        '比较并设置工作表标签颜色
        Select Case strProjectStatus
        Case "进度正常"
            wks.Tab.Color = 5287936
        Case "进度稍滞后"
            wks.Tab.Color = 65535
        Case "进度严重滞后"
            wks.Tab.Color = 192
        End Select
    Next wks
End Sub