wayne0303

¦^´_ 16# ­ã´£³¡ªL


    ­ã¤j¤£¦n·N«ä~§ÚªºÃöÁä¦r¬O­n¦bPÄæ¡AÅܦâ¤~¬O¨ìVÄæ¬O­n«ç»ò§ï©O¡H

shuo1125

¦^´_ 21# wayne0303
¹Á¸Õ·L­×¤F¤@¤U­ã¤j´£¨Ñªºµ{¦¡½X...ÁÂÁ¡C

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xA As Range, xR As Range
Set xA = Intersect(Target, Range("P:P"))
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 = "¤w¥X¹Ï")
Next
End Sub

wayne0303

¦^´_ 22# shuo1125


    ¥ýÁÂÁÂshuo¤jªºÀ°¦£~
    ¦ý¤£ª¾¬O¤£¬O§ÚPÄ榳¤½¦¡¼vÅTªºÃö«Y¡A¥Î¤u§@ªíªºµ{¦¡½X°õ¦æ³£¨S¤ÏÀ³¡A¥Î¥´¦rkey¤J­Ë¬O¥i¥H...
    ©Ò¥Hµ²ªG¥u¯à¨«±z 15#´£¨Ñªº¼Ò²Õµ{¦¡½X°õ¦æ¡A¦ý¬O³o¼ËÀ³¸Ó´N¨S¦³¿ìªk°µ¹³­ã¤j¨ººØ¦^´_³o­Ó°Ê§@¤F§a
   
    ¥H¤W¡AÁÂÁ¤j¤j­ÌªºÀ°¦£~

­ã´£³¡ªL

¦^´_ 23# wayne0303


PÄæ¬O¤½¦¡, ¥u¯à 1)®æ¦¡±ø¥ó  2)«ö¶s°õ¦æ

Andy2483

¦^´_ 23# wayne0303


    ÅýPÄæ®æ¤½¦¡Åܦ¨ ¤w¥X¹Ï ªº·½ÀYÄæ¦ì°µÄ²µo
¨Ò¦p¥HOÄæ¿é¤J ¤é´Á¡]¥X¹Ï¤é¡^¡APÄ椽¦¡´N·|Åܦ¨ ¤w¥X¹Ï
¦pªG¬O³oºØ±¡¹Ò ´NIJµoOÄæ
ÁÙ¬O«Øij¤W¶Ç­Ó½d¨Ò

wayne0303

¦^´_ 24# ­ã´£³¡ªL


    ­ì¨Ó¦p¦¹~
    ·PÁ­ã¤jªº»¡©ú~

wayne0303

¦^´_ 25# Andy2483


    ·PÁÂAndy¤jªº´£ÂI±o¥HÀ³¥Î¤u§@ªíªºµ{¦¡½X°õ¦æ¤F~ÁÂÁÂ

wayne0303

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xA As Range, xR As Range
Set xA = Intersect(Target, Range("P:P"))
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 = "¤w¥X¹Ï")
Next
End Sub

    ¤£¦n·N«ä¡A·Q½Ð°Ý¥i¥H¥Î³o­Óµ{¦¡½X±NÃöÁä¦r§ï¦¨ÃöÁä¦r¤º¥u­n¦³"°²"(¨Ò¦p¨Æ°²¡B¯f°²...¤§Ãþ¡A¸U¥Î¦r¤¸ªº¥N½X)©Î"¥X®t"´N¦³¤ÏÀ³¡A³o¼Ë¶Ü¡H

    ÁÂÁÂ~

Andy2483

¦^´_ 28# wayne0303


15 ^ -(xR = "¤w¥X¹Ï")   §ï¦¨
15 ^ -((xR Like "*°²") + (xR = "¥X®t") <> 0)

wayne0303

¦^´_ 29# Andy2483


    ³á³á³á~¸U¥Î¦r¤¸¬O¥Î Like "*"
    ÁÂÁÂAndy¤j¤j~