如何根据该工作表上的单元格值更改选项卡的颜色

Question

我的工作簿中有几张工作表。每个工作表在单元格 U2 中都有一个日期。我想让 U2 中具有工作日值的所有单元格的选项卡颜色为绿色，而在 U2 中具有周末值的工作表选项卡为黄色。我找到了如何更改选项卡的颜色，但不知道如何具体告诉它“Sheet4”选项卡颜色为绿色。我正在寻找看起来像这样的代码：

For each sht in Thisworkbook.worksheets
  If format(sht.Renge("U2"),"DDD") = "Saturday" _
    or format(sht.Renge("U2"),"DDD") = "Sunday" then
    sht.Tab.ColorIndex = "yellow"
  else
    sht.Tab.ColorIndex = "blue"
  end if
Next

这是我一直在使用的代码：

Sub sbColorAllSheetTab()
    'Declaration
    Dim iCntr, sht As Worksheet

On Error GoTo ErrorHandler

    'Holds the colorIndex number
    iCntr = 2

    'looping throgh the all the sheets of the workbook
    For Each sht In ThisWorkbook.Worksheets

        'Debug.Print Format(sht.Range("U2"), "DDD")  'Tried to check value on sheet - failed
        iCntr = iCntr + 1

        'Applying the colors to Sheet tabs - works
        sht.Tab.ColorIndex = 10 'iCntr

        'Tried to print the value, but didn't work'
        'If I can confirm it sees the correct value in the sheet I can interrogate the value
        'Debug.Print sht.Name  '.Range("U2")
        Debug.Print sht.Range("U2") 'Failed
    Next

   Exit Sub
ErrorHandler:
   ' Error handling code
   Beep
   Resume Next
End Sub

谢谢

Answer 1

本着您的要求（“我正在寻找代码看起来像：”），您的代码非常接近。

我只是改变了：

1. 您的日期格式（从“DDD”到“DDDD”）
2. 范围的拼写错误
3. 用整数代替选项卡颜色代替您的字符串

我要工作的最接近您的代码的是：

For Each sht In ThisWorkbook.Worksheets
  If Format(sht.Range("U2"), "DDDD") = "Saturday" _
    Or Format(sht.Range("U2"), "DDDD") = "Sunday" Then
    sht.Tab.ColorIndex = 6 'yellow
  Else
    sht.Tab.ColorIndex = 5 'blue
  End If
Next