ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Worksheet_Change¦X¨Ö

[µo°Ý] Worksheet_Change¦X¨Ö

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
ÁÂÁÂ~

¦^´_ 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
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 2# Andy2483


    ³o¨âµ{§Ç¦³¥æ¤¬¼vÅTµ²ªG: ¡H¡H
    ¥¦­ÌIJµoªºÀx¦sÄæ&±ø¥ó¬O¤£¦Pªº¡A¦]¬°§Æ±æ¦³¥i¥H¦^´_ªº°Ê§@¡A©Ò¥H¤~·Q¦X¨Ö¦b¤@°_

   

    °õ¦æµ²ªG¬O¥i¥Hªº~
    ÁÂÁÂAndy¤j~

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD