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

[µo°Ý] ÃöÁä¦rÅý¦C¤å¦rÅܦâ

¦^´_ 30# wayne0303


³Ì¥kÃ䪺¦r¬O"°²"¤]¥i¥H
Right(xR, 1) = "°²"
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 31# Andy2483


    ¦n³á~ÁÂÁÂAndy¤j

TOP

¦^´_ 32# wayne0303

¦C¥Xªº¤èªk:
15 ^ -(InStr("/¨Æ°²/¯f°²/¥X®t/Â÷¾/¯S¥ð/", "/" & xR & "/") > 0)
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 33# Andy2483


    ¬O¤£»Ý­n¨º»ò¦h¿ï¶µ°ÕXD
    ÁÂÁ¼ö¤ßªºAndy¤j¤j~

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-10-25 08:04 ½s¿è

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

ÁÂÁ ­ã´£³¡ªL«e½ú«ü¾É,¾Ç²ß¤ß±o¦p¤U,½Ð«e½ú¦A«ü±Ð






Private Sub Worksheet_Change(ByVal Target As Range)
'¡ô·í¨Ï¥ÎªÌ©Î¥~³¡³sµ²Åܧó¤u§@ªí¤¤ªºÀx¦s®æ®É·|µo¥Í¦¹¨Æ¥ó
https://learn.microsoft.com/zh-t ... el.worksheet.change
Dim xA As Range, xR As Range
'¡ô«Å§i(xA,xB)¬OÀx¦s®æÅܼÆ
Set xA = Intersect(Target, Range("V:V"))
'¡ô¥O³oxAÀx¦s®æÅܼƬO(IJµo®æ»PVÄæÀx¦s®æ)¥æ¶°ªºÀx¦s®æ
If xA Is Nothing Then Exit Sub
'¡ô¦pªGxAÅܼƬOªÅªº!´Nµ²§ôµ{§Ç°õ¦æ
Application.ScreenUpdating = False
'¡ô¥O¿Ã¹õ¼È®É°±¤îÅܤÆ
For Each xR In xA
'¡ô³]³v¶µ°j°é!¥OxR³oÀx¦s®æÅܼƬOxAÅܼƸ̪º¤@­ÓÀx¦s®æ
    Range(Cells(xR.Row, 1), xR).Font.ColorIndex = 15 ^ -(xR = "¤w¥X¹Ï")
    '¡ô¥OxRÅܼƩҦb¦Cªº²Ä1ÄæÀx¦s®æ¨ìxRÅܼƶ¡ªº¦r¦â¬OÅÞ¿è­pºâ«áªº¦â¸¹
    '·íxR = "¤w¥X¹Ï":(True)  >>  15 ^ -(-1)   >>  15
    '·íxR = "¤w¥X¹Ï":(False)  >>  15 ^ -(0)   >>  1

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

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD