VBA 设置条件格式

copland

假定A列有一系列日期，想用VBA 实现条件格式，小于今天的日期变成红色，等于今天的日期变成黄色，其它不变色，用VBA语句如何实现？先行谢谢！

周星骋

1. Sub test()
   
2.     Range("A1").Select
   
3.     With Columns("A:A")
   
4.         .FormatConditions.Delete
   
5.         .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(A1>0,A1<TODAY())"
   
6.         .FormatConditions(1).Interior.Color = RGB(255, 0, 0)
   
7.         .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(A1>0,A1=TODAY())"
   
8.         .FormatConditions(2).Interior.Color = RGB(255, 255, 0)
   
9.     End With
   
10. End Sub
    

复制代码

copland

谢谢回复。试一下代码。