准提部林

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

下載次數: 3

2015-12-17 13:06

Airman

回復 11# 准提部林
准大:
不好意思 ~小弟自己將需求搞複雜了~耽誤您許多寶貴的時間~敬請見諒~謝謝您

測試OK了~也套用好了~感恩

Airman

回復 11# 准提部林
准大:
不好意思  ~小弟想藉此再續請問一個類似需求~
如果小弟將公式中與對應列有關的每一組對應列的交集值改為某一組對應列的交集值(即其與對應列有關的公式中之3個AND改為3個OR)~
請問:目前貴解的對應列程式碼應該如何修改?

敬請惠予賜教為禱~感恩

准提部林

回復 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

Airman

回復 14# 准提部林
准大:
測試OK了!謝謝您耐心的指導~感恩