Andy2483

¦^´_ 1# wayne0303

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
   If .Columns.Count > ActiveSheet.UsedRange.Columns.Count Then Exit Sub
   If .Column <> 16 Or .Count > 1 Then Exit Sub
   Range(.Cells(1, -14), .Cells).Font.ColorIndex = IIf(.Value = "¤w¥X¹Ï", 16, 1)
End With
End Sub

Andy2483

¦^´_ 4# shuo1125


    ©¼¦¹©¼¦¹,»Ý¨D±¡¹Ò²q´ú¤£¦P,«ä¸ô¤£¦P,ºÝ¬Ý»Ý¨D

Andy2483

¦^´_ 8# wayne0303
»Ý­n±Nµ{¦¡½X©ñ¤J¤u§@ªí¼Ò²Õ
PÄæ¿é¤J ¤w¥X¹Ï ©Î «Ý½T»{

Andy2483

¦^´_ 11# wayne0303
½Ð¤W¶Ç½d¨Ò

²{¦b¨S¿ìªkÀ°§U§A
½Ð¨ä¥L«e½úÀ°§A¦£

Andy2483

¦^´_ 13# wayne0303
https://learn.microsoft.com/zh-t ... el.worksheet.change

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¨Ò

Andy2483

¦^´_ 28# wayne0303


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

Andy2483

¦^´_ 30# wayne0303


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

Andy2483

¦^´_ 32# wayne0303

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

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