以下是一个办公室脚本的示例，可以根据单元格的值来更改工作表标签的颜色。

Sub ChangeSheetColorBasedOnCellValue()
    Dim cell As Range
    Dim ws As Worksheet
    
    ' 设置需要更改颜色的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 循环遍历工作表中的单元格
    For Each cell In ws.Range("A1:A10")
        ' 根据单元格的值来设置工作表标签的颜色
        Select Case cell.Value
            Case "Red"
                ws.Tab.Color = RGB(255, 0, 0) ' 设置为红色
            Case "Blue"
                ws.Tab.Color = RGB(0, 0, 255) ' 设置为蓝色
            Case "Green"
                ws.Tab.Color = RGB(0, 255, 0) ' 设置为绿色
            Case Else
                ws.Tab.ColorIndex = xlColorIndexNone ' 恢复默认颜色
        End Select
    Next cell
End Sub

此脚本假设需要更改颜色的工作表是名为"Sheet1"的工作表，并且需要根据该工作表中的"A1:A10"范围内的单元格值来更改标签颜色。根据单元格的值，可以设置工作表标签的颜色为红色、蓝色、绿色，或者恢复默认颜色。