Andy2483

¦^´_ 1# wayne0303

³o¨âµ{§Ç¦³¥æ¤¬¼vÅTµ²ªG:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xA As Range, xR As Range
Application.ScreenUpdating = False
Set xA = Intersect(Target, Range("U:U"))
If xA Is Nothing Then GoTo xA0
For Each xR In xA
    Range(Cells(xR.Row, 1), Cells(xR.Row, 22)).Font.ColorIndex = 15 ^ -(xR > 1)
Next
xA0:
Set xA = Intersect(Target, Range("O:O"))
If xA Is Nothing Then Exit Sub
For Each xR In xA
    Range(Cells(xR.Row, 16), xR).Font.ColorIndex = 2 ^ -(xR = "")
Next
End Sub