VBA_R區&T區&$R$6區等三個區域【每一個】對應列之絕對交集值各標示底色。 - Excel程式區

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

1^# 跳轉到 »

發表於 2015-12-16 22:16 | 顯示全部帖子

只想到〔自訂函數〕及〔副程式〕方式：

三區絕對交集標示底色v01.rar (47.38 KB)

若不適用，也想不出其他法子了！！！

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

2^#

發表於 2015-12-16 23:04 | 顯示全部帖子

漏〔點〕了，請自行加入〔紅色〕點：
If xNum <> "" Then Call 三區填色(.[J6:P6], .[R6], .[T5], b(1, -1).Value, 4, xNum)

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

3^#

發表於 2015-12-17 13:07 | 顯示全部帖子

既然以公式為主, 即其〔交集值.同欄.不同欄〕的條件皆依公式判定,
程式只要將三區相同號碼標色即可, 不須再判斷同不同欄:

VBA_三區交集標底色_v02.rar (33.1 KB)

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

4^#

發表於 2015-12-17 17:59 | 顯示全部帖子

回復 13# Airman

RW = Array(.[T5], .[R6], b(1, -1))
For x = 1 To 4
For y = 1 To 3
For z = 1 To 7
　　Set R(1) = .[J6].Cells(RW(y - 1) - x + 1, z)
　　Set R(2) = Nothing
　　For i = 1 To 3
　　　　If i <> y Then Set R(2) = .[J6:P6].Offset(RW(i - 1) - x, 0).Find(R(1), Lookat:=xlWhole)
　　　　If Not R(2) Is Nothing Then R(1).Interior.ColorIndex = Array(4, 6, 8)(y - 1): Exit For
　　Next i
Next z
Next y
Next x