¤£¦P¤H¦W¶ñ¤JÃC¦â§@°Ï¹j

owen06

½Ð°Ý¤p§Ì³o­Óªí¡A¸Ó¦p¦ó¤~¯àÅý¥L°õ¦æ§¹¥¨¶°¤§«á¡A¯à±N¤£¦P¦W¦r¤§¶¡¥Î©³¦â¨Ó¨Ï°Ï¤À©úÅã¡A
¨Ò¡G²Ä¤@­Ó¦W¦r(²QµÓ)¬Û¦P¦W¦rªº¨º´X¦C¦³©³¦â¡A²Ä¤G­Ó¦W¦r¨º´X¦C¨S©³¦â¡A²Ä¤T­Ó¦³¡A²Ä¥|­Ó¨S¦³¡A¨Ì¦¹Ãþ±À¡C

Àµ½Ð°ª¤âÀ°¦£¤@¤U¡AÁÂÁ¡I

­ã´£³¡ªL

Sub ¶ñ¦â()
Dim xR As Range, T, N%, C
C = Array(36, 35) '¨âºØÃC¦â½ü´«
For Each xR In Range([A4], [A65536].End(xlUp))
¡@¡@If xR.Row < 4 Then Exit Sub '¨S¦³¸ê®Æ¡A¸õ¥X
¡@¡@If xR <> T Then N = 1 - N: T = xR
¡@¡@xR.Resize(1, 13).Interior.ColorIndex = C(N)
Next
End Sub

owen06

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


    ·PÁª©¤j¡A´ú¸Õok¡I³oºØÅÞ¿è¯à¤O¹ê¦b¤Ó±j¤F¡C