[已解决]如何用VBA来设置条件格式

szzb

在单元格（A3:A100）里，当单元格不为空时。不为空的单元格用红色填充。如果该单元格再次为空时，则该单元格恢复为无填充。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-23 16:23

1. Sub 宏1()
   
2.     With Range("a3:a100")
   
3.         Range("a3").Activate
   
4.         .FormatConditions.Delete
   
5.         .FormatConditions.Add Type:=xlExpression, Formula1:="=LEN(A3)>0"
   
6.         .FormatConditions(1).SetFirstPriority
   
7.         With .FormatConditions(1).Interior
   
8.             .PatternColorIndex = xlAutomatic
   
9.             .Color = 255
   
10.             .TintAndShade = 0
    
11.         End With
    
12.     End With
    
13. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

这个其实录个宏就成了。

hwc2ycy

1. Sub 宏1()
   
2.     With Range("a3:a100")
   
3.         Range("a3").Activate
   
4.         .FormatConditions.Delete
   
5.         .FormatConditions.Add Type:=xlExpression, Formula1:="=LEN(A3)>0"
   
6.         .FormatConditions(1).SetFirstPriority
   
7.         With .FormatConditions(1).Interior
   
8.             .PatternColorIndex = xlAutomatic
   
9.             .Color = 255
   
10.             .TintAndShade = 0
    
11.         End With
    
12.     End With
    
13. End Sub

复制代码

szzb

hwc2ycy 发表于 2013-5-23 16:23

非常感谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!