Question

如果单元格的日期值小于今天，我想做VBA将单元格变成红色。它还应该查找空白单元格日期，不要触摸它。我不想使用条件格式而不是VBA，我希望它使用宏。

Sub ChangeColor()

    Dim rCell As Range

    With Sheet1
        For Each rCell In .Range("$C$2:$AG$27", .Cells(.Rows.Count, 11).End(xlUp)).Cells
            If rCell.Value > Date Then
                rCell.Interior.Color = vbRed
            Else
                rCell.Interior.Color = vbGreen
            End If
        Next rCell
    End With

End Sub

Answer 1

好的试一试。

代码会将红色内部颜色应用于包含今天日期之前的日期的单元格。它不会接触任何其他细胞。

Sub ChangeColor()
    Dim rCell As Range
    With Sheet1
        For Each rCell In .Range("$C$2:$AG$27", .Cells(.Rows.Count, 11).End(xlUp)).Cells
            If rCell <> "" And IsDate(rCell) And rCell.Value < Date Then
                rCell.Interior.Color = vbRed
            End If
        Next rCell
    End With
End Sub

VBA条件格式如果小于TODAY

1 个答案: