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

szzb

在单元格（A3:A100）里，当单元格不为空时。不为空的单元格用红色填充。

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-5-23 14:59

'以下是在A3:A100区域输入数据时，自动加背景色
Private Sub Worksheet_Change(ByVal Target As Range)
For Each Rng In [a3:a100]
If Rng <> "" Then
Rng.Interior.ColorIndex = 3
End If
Next
End Sub

跳转到最佳答案楼层

ligh1298

sub aa()
for each rng in [a3:a100]
if rng<>"" then
rng.Interior.Colorindex=3
endif
next
end sub

ligh1298

'以下是在A3:A100区域输入数据时，自动加背景色
Private Sub Worksheet_Change(ByVal Target As Range)
For Each Rng In [a3:a100]
If Rng <> "" Then
Rng.Interior.ColorIndex = 3
End If
Next
End Sub

szzb

ligh1298 发表于 2013-5-23 14:59
'以下是在A3:A100区域输入数据时，自动加背景色
Private Sub Worksheet_Change(ByVal Target As Range)
F ...

如果该单元格的再次为空时,要该单元格恢复为无填充呢?

hwc2ycy

或者用代码生成条件格式。

szzb

ligh1298 发表于 2013-5-23 14:59
'以下是在A3:A100区域输入数据时，自动加背景色
Private Sub Worksheet_Change(ByVal Target As Range)
F ...

如果该单元格的再次为空时，要该单元格可恢复为无填充吗？

ligh1298

szzb 发表于 2013-5-23 15:56
如果该单元格的再次为空时，要该单元格可恢复为无填充吗？

Private Sub Worksheet_Change(ByVal Target As Range)
For Each Rng In [a3:a100]
If Rng <> "" Then
Rng.Interior.ColorIndex = 3
Else
Rng.Interior.Pattern = xlNone
End If
Next
End Sub

szzb

ligh1298 发表于 2013-5-23 16:31
Private Sub Worksheet_Change(ByVal Target As Range)
For Each Rng In [a3:a100]
If Rng  "" Then
...

非常
        感谢！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！