返回列表下一主題上一主題發帖

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

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-10-7 18:14 | 只看該作者

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

同欄位相同數字標示底色.rar (3.47 KB)

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

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

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

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

樓主熱帖

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

5^#

發表於 2016-11-23 19:28 | 只看該作者

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

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

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

TOP

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-21

熱烈參與勳章

4^#

發表於 2016-10-29 17:52 | 只看該作者

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

TOP

cjw

小學生 Rank: 1

帖子: 6
主題: 0
精華: 0
積分: 19
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台灣台中
註冊時間: 2016-10-24
最後登錄: 2017-8-22

3^#

發表於 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

同列相同著色.rar (196.62 KB)

cjw

TOP

ziv976688