基于当前日期自定义设置本周对应工作表标签的RGB颜色

核心代码实现 #

直接遍历工作簿内所有工作表，无需激活，通过单元格值判断日期范围后设置标签颜色：

Sub SetWeekSheetColor()
    Dim ws As Worksheet
    Dim currentDate As Date
    Dim startDate As Date
    Dim endDate As Date
    ' 自定义目标RGB颜色，示例为红色，可自行修改参数
    Const TARGET_COLOR As Long = RGB(255, 0, 0)
    
    currentDate = Date ' 获取当前系统日期
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 先重置标签为默认颜色，避免历史颜色残留
        ws.Tab.ColorIndex = xlColorIndexNone
        
        ' 校验A1、A2单元格是否为有效日期
        If IsDate(ws.Range("A1").Value) And IsDate(ws.Range("A2").Value) Then
            startDate = ws.Range("A1").Value
            endDate = ws.Range("A2").Value
            
            ' 判断当前日期是否落在目标区间（包含起止日期）
            If currentDate >= startDate And currentDate <= endDate Then
                ws.Tab.Color = TARGET_COLOR
            End If
        End If
    Next ws
End Sub

关键注意事项 #

• 避免激活工作表：直接通过ws对象操作单元格和标签，消除激活操作带来的报错风险与效率损耗
• 日期有效性校验：加入IsDate判断，防止A1/A2单元格为非日期格式导致代码崩溃
• 颜色重置逻辑：先统一清除所有标签颜色，确保仅符合条件的工作表变色
• 颜色自定义：修改TARGET_COLOR的RGB参数即可更换目标颜色，例如蓝色为RGB(0, 0, 255)

运行步骤 #

1. 打开目标工作簿，按Alt + F11打开VBA编辑器
2. 右键工作簿名称 → 插入 → 模块
3. 将上述代码粘贴到模块中
4. 按F5运行代码；若需自动执行，可将代码绑定到工作簿打开事件

常见问题排查 #

• 代码无反应：检查A1/A2单元格是否为Excel可识别的日期格式（如2024/05/01），而非纯文本
• 执行报错：确认目标工作表未被保护，保护状态下无法修改标签颜色
• 范围判断异常：调整currentDate >= startDate And currentDate <= endDate的逻辑，匹配你的实际需求（如是否排除起止日期）

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