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

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

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

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¦â

ÁÂÁÂ~

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

TOP

¦^´_ 2# Andy2483


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

TOP

¦^´_ 3# wayne0303

­ì¥ýªºÃC¦â¬O¤°»òÃC¦â?
­ì¥ýªºÃC¦â¬O¥Î¤°»ò±ø¥ó¨M©w??
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ wayne0303 ©ó 2024-3-21 14:28 ½s¿è

¦^´_ 4# Andy2483


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

ÁÂÁÂ~

TOP

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

TOP

¦^´_ 6# Andy2483


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

·PÁÂAndy¤j~

TOP

¦^´_ 7# wayne0303

´£¨ì ­ì¥ý³]©w¬Oºñ¦â(¤â°Ê¿ï¾Ü)  
À³¸Ó¦³¬Y­Ó»Ý¨D©Î­ì¦]¤~Åý­ì¥ý³]©w¬Oºñ¦â§a! ¤£µM´N¬OÀH­Ó¤H³ß¦n¤â°Ê¿ï¾Ü
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

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

TOP

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


    ÁÂÁ«e½ú«ü¾É
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD