亲,office2003实现不了你这个功能。
Private Sub Worksheet_Change(ByVal Target As Range)
rr = Target.Row
If Target.Value >= 100 Then
cl = 3
Else
cl = 0
End If
Rows(rr).Interior.ColorIndex = cl
End Sub
如数据在A列
首先选择数据区域,如A1:P50
设置条件格式,公式
=AND(ISNUMBER($A1),$A1>100)
选择颜色,确认
采用格式菜单的条件格式