標題: [發問] 2~4個區域的同欄位相同數字標示底色語法。 [打印本頁]

---

作者: ziv976688    時間: 2016-10-7 18:14     標題: 2~4個區域的同欄位相同數字標示底色語法。

[attach]25482[/attach]

B2：H65536和J2：P65536的同欄位相同數字各標示6號底色。

B2：H65536和J2：P65536和R2：X65536的同欄位相同數字各標示4號底色。

B2：H65536和J2：P65536和R2：X65536和Z2：AF65536的同欄位相同數字各標示8號底色。

請教VBA語法如何寫?
感恩!

---

作者: ziv976688    時間: 2016-10-7 22:00

回復 1# ziv976688
補上完成需求的圖片檔案
[attach]25485[/attach]

請各位不吝賜教。謝謝!

---

作者: cjw    時間: 2016-10-28 14:08

Sub 同列著色()

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
[attach]25679[/attach]

---

作者: hcm19522    時間: 2016-10-29 17:52

http://blog.xuite.net/hcm19522/twblog/459011713
參考 ~

---

作者: ziv976688    時間: 2016-11-23 19:28

回復 3# cjw
測試如需求。感謝cjw大大的程式解。


回復 4# hcm19522
測試如需求。感謝hcm19522大大的函數解。

PS:因為系統沒有通知，今天才看到，延遲回應，敬請海涵。謝謝!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)