- ©«¤l
- 87
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 149
- ÂI¦W
- 63
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-1-17
- ³Ì«áµn¿ý
- 2024-5-22
|
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xA As Range, xR As Range
Set xA = Intersect(Target, Range("U:U"))
If xA Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xR In xA
Range(Cells(xR.Row, 1), Cells(xR.Row, 22)).Font.ColorIndex = 15 ^ -(xR > 1)
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xA As Range, xR As Range
Set xA = Intersect(Target, Range("O:O"))
If xA Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xR In xA
Range(Cells(xR.Row, 16), xR).Font.ColorIndex = 2 ^ -(xR = "")
Next
End Sub
½Ð°Ý¦³¿ìªk²³æÅý¤W±¤GÓ¤u§@ªíªºµ{¦¡½X¦X¨Ö°õ¦æ¶Ü¡H
ÁÂÁÂ~ |
|