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

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

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

¥»©«³Ì«á¥Ñ owen06 ©ó 2015-10-28 13:52 ½s¿è

½Ð°Ý¤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

2015-10-28_135203.jpg (56.09 KB)

2015-10-28_135203.jpg

´ú¸Õ.zip (12.65 KB)

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


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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD