VBA循环设置Interior.ColorIndex故障：空单元格变色且未显示指定文本

需求说明 #

根据X列的预计日期与Y列的实际日期的关系，为Y列单元格设置填充颜色；同时要求Y列空单元格默认显示未完成且无填充，满足日期条件时再设置对应颜色。

异常现象 #

• 所有空单元格变为蓝色
• 空单元格未显示“未完成”文本

问题根源 #

1. 空单元格判断错误：原代码用actual.Value = " "判断空值，但真正的空单元格值为""（空字符串），该条件无法匹配真正的空单元格。
2. 赋值逻辑错误：VBA中不能用And连接两个赋值操作，原代码里的actual.Interior.ColorIndex = 0 And actual.Cells.Value = "not complete"无法执行两个赋值动作。
3. 逻辑顺序错误：空单元格处理后，后续的日期判断会覆盖格式——空单元格的数值等价于0，若X列预计日期大于0，会触发actual.Value < projected.Value，将单元格设为蓝色。

修正后的VBA代码 #

Sub ColorChangeTATDates()
    Dim lr As Long
    lr = Sheet1.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

    Dim i As Long, projected As Range, actual As Range
    For i = 3 To lr
        Set projected = Sheet1.Range("X" & i)
        Set actual = Sheet1.Range("Y" & i)
        
        ' 处理空单元格：设置默认文本和无填充
        If IsEmpty(actual.Value) Or actual.Value = "" Then
            actual.Value = "未完成"
            actual.Interior.ColorIndex = 0
        Else
            ' 非空时判断日期关系，设置对应填充色
            If actual.Value < projected.Value Then
                actual.Interior.ColorIndex = 8 ' 蓝色
            ElseIf actual.Value >= projected.Value Then
                actual.Interior.ColorIndex = 4 ' 绿色
            End If
        End If
        
        Debug.Print projected.Value
        Debug.Print actual.Value
    Next i
End Sub

代码说明 #

• 用IsEmpty(actual.Value) Or actual.Value = ""准确判断空单元格，覆盖所有真正为空的场景
• 先处理空单元格逻辑，通过Else隔离日期判断，避免格式被后续条件覆盖
• 将默认文本改为中文“未完成”，贴合需求
• 明确指定Sheet1的Range，避免因活动工作表变化导致的错误

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