[µo°Ý] ¤å¦rªð¦^­ì¨Ó³]©wÃC¦â

wayne0303

Set xA = Intersect(Target, Range("C:C"))
    If Not xA Is Nothing Then
    For Each xR In xA
        Range(Cells(xR.Row, 1), Cells(xR.Row, 9)).Font.ColorIndex = 3 ^ -((xR Like "*°²") + (xR = "¥X®t") + (xR = "§_") <> 0)
    Next
End If

½Ð°Ý«ç»ò¦b¤£¬O³o¨Ç±ø¥ó»Ý¨Dªº®É­Ôªð¦^­ì¨Ó¿ï¾Üªº¤å¦rÃC¦â

ÁÂÁÂ~

Andy2483

¦^´_ 1# wayne0303

Range(Cells(xR.Row, 1), Cells(xR.Row, 9)).Font.ColorIndex = 3 ^ -((xR Like "*°²") + (xR = "¥X®t") + (xR = "§_") <> 0)
§ï¬°
IF (xR Like "*°²") + (xR = "¥X®t") + (xR = "§_") <> 0 Then Range(Cells(xR.Row, 1), Cells(xR.Row, 9)).Font.ColorIndex = 3

wayne0303

¦^´_ 2# Andy2483


·PÁÂAndy2483¤j©âªÅ¦^ÂСA
¦ý¿ï¾Ü¤F¤£¬O±ø¥ó¤ºªº¿ï¶µµ²ªGÁÙ¬O¬õ¦â...¨Ã¨S¦³ªð¦^­ì¥ýªº¤å¦rÃC¦â

Andy2483

¦^´_ 3# wayne0303

­ì¥ýªºÃC¦â¬O¤°»òÃC¦â?
­ì¥ýªºÃC¦â¬O¥Î¤°»ò±ø¥ó¨M©w??

wayne0303

¦^´_ 4# Andy2483


¨Ò¦p§Ú­ì¥ý³]©w¬Oºñ¦â(¤â°Ê¿ï¾Ü)¡A¿ï¾Ü"¤£¬O"¥N½X±ø¥ó¤ºªº¿ï¶µ©ÒÅã¥Üªº¤å¦rÃC¦â´N§Æ±æ¬Oªð¦^ºñ¦â

ÁÂÁÂ~

Andy2483

¦^´_ 5# wayne0303

IF (xR Like "*°²") + (xR = "¥X®t") + (xR = "§_") <> 0 Then Range(Cells(xR.Row, 1), Cells(xR.Row, 9)).Font.ColorIndex = 3 Else  Range(Cells(xR.Row, 1), Cells(xR.Row, 9)).Font.ColorIndex = 4

wayne0303

¦^´_ 6# Andy2483


©Ò¥HÁÙ¬O¥²»Ý¦³­ì¨Ó¤å¦rÃC¦âªº³]©w´N¬O¤F¡C¤F¸Ñ¡I

·PÁÂAndy¤j~

Andy2483

¦^´_ 7# wayne0303

´£¨ì ­ì¥ý³]©w¬Oºñ¦â(¤â°Ê¿ï¾Ü)  
À³¸Ó¦³¬Y­Ó»Ý¨D©Î­ì¦]¤~Åý­ì¥ý³]©w¬Oºñ¦â§a! ¤£µM´N¬OÀH­Ó¤H³ß¦n¤â°Ê¿ï¾Ü

­ã´£³¡ªL

IF (xR Like "*°²") + (xR = "¥X®t") + (xR = "§_") then cx=3 else cx=4
Cells(xR.Row, 1).resize(1, 9)).Font.ColorIndex = cx

Andy2483

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


    ÁÂÁ«e½ú«ü¾É