VBA格式是否少于今天

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