[µo°Ý] 2~4­Ó°Ï°ìªº¦PÄæ¦ì¬Û¦P¼Æ¦r¼Ð¥Ü©³¦â»yªk¡C

ziv976688

¦PÄæ¦ì¬Û¦P¼Æ¦r¼Ð¥Ü©³¦â.rar (3.47 KB)

¤U¸ü¦¸¼Æ: 2

2016-10-7 18:12

B2¡GH65536©MJ2¡GP65536ªº¦PÄæ¦ì¬Û¦P¼Æ¦r¦U¼Ð¥Ü6¸¹©³¦â¡C

B2¡GH65536©MJ2¡GP65536©MR2¡GX65536ªº¦PÄæ¦ì¬Û¦P¼Æ¦r¦U¼Ð¥Ü4¸¹©³¦â¡C

B2¡GH65536©MJ2¡GP65536©MR2¡GX65536©MZ2¡GAF65536ªº¦PÄæ¦ì¬Û¦P¼Æ¦r¦U¼Ð¥Ü8¸¹©³¦â¡C

½Ð±ÐVBA»yªk¦p¦ó¼g?
·P®¦!

ziv976688

¦^´_ 3# cjw
´ú¸Õ¦p»Ý¨D¡C·PÁÂcjw¤j¤jªºµ{¦¡¸Ñ¡C


¦^´_ 4# hcm19522
´ú¸Õ¦p»Ý¨D¡C·PÁÂhcm19522¤j¤jªº¨ç¼Æ¸Ñ¡C

PS:¦]¬°¨t²Î¨S¦³³qª¾¡A¤µ¤Ñ¤~¬Ý¨ì¡A©µ¿ð¦^À³¡A·q½Ð®ü²[¡CÁÂÁÂ!

hcm19522

http://blog.xuite.net/hcm19522/twblog/459011713
°Ñ¦Ò ~

cjw

Sub ¦P¦CµÛ¦â()

Dim Y%, J%, Z%

Y = Cells(Rows.Count, 1).End(3).Row

For J = 2 To Y

For Z = 2 To 7

If Cells(J, Z) = Cells(J, Z + 8) And Cells(J, Z) = Cells(J, Z + 16) And Cells(J, Z) = Cells(J, Z + 24) Then

    Cells(J, Z).Interior.ColorIndex = 8
   
    Cells(J, Z + 8).Interior.ColorIndex = 8
   
    Cells(J, Z + 16).Interior.ColorIndex = 8
   
    Cells(J, Z + 24).Interior.ColorIndex = 8
   
ElseIf Cells(J, Z) = Cells(J, Z + 8) And Cells(J, Z) = Cells(J, Z + 16) Then

    Cells(J, Z).Interior.ColorIndex = 4
   
    Cells(J, Z + 8).Interior.ColorIndex = 4
   
    Cells(J, Z + 16).Interior.ColorIndex = 4

ElseIf Cells(J, Z) = Cells(J, Z + 8) Then

    Cells(J, Z).Interior.ColorIndex = 6
   
    Cells(J, Z + 8).Interior.ColorIndex = 6
   
Else: GoTo 101

End If

101: Next

Next

End Sub
¦P¦C¬Û¦PµÛ¦â.rar (196.62 KB)

¤U¸ü¦¸¼Æ: 4

2016-10-28 14:08

ziv976688

¦^´_ 1# ziv976688
¸É¤W§¹¦¨»Ý¨Dªº¹Ï¤ùÀÉ®×

¤U¸ü (191.25 KB)

2016-10-7 21:58

½Ð¦U¦ì¤£§[½ç±Ð¡CÁÂÁÂ!