Andy2483

¦^´_ 30# wayne0303


³Ì¥kÃ䪺¦r¬O"°²"¤]¥i¥H
Right(xR, 1) = "°²"

wayne0303

¦^´_ 31# Andy2483


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

Andy2483

¦^´_ 32# wayne0303

¦C¥Xªº¤èªk:
15 ^ -(InStr("/¨Æ°²/¯f°²/¥X®t/Â÷¾/¯S¥ð/", "/" & xR & "/") > 0)

wayne0303

¦^´_ 33# Andy2483


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

Andy2483

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

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

¤U¸ü (227.65 KB)

2023-10-25 08:01

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