[發問] VBA_R區&T區&$R$6區等三個區域【每一個】對應列之絕對交集值各標示底色。

Airman

VBA_三個區域的同欄或不限同欄之絕對交集值各標示底色.rar (58.93 KB)

下載次數: 8

2015-12-14 22:53

◆◆U7只是作輔助說明之用，請無須理會。

說明︰
R7-1，R7-2，R7-3，R7-4(R區域)；
T5-1，T5-2，T5-3，T5-4(T區域)；
R6-1，R6-2，R6-3，R6-4($R$6區域)

需求:
當b<>""， 且$R$6區∩T區=R區*R區∩$R$6區=T區*T區∩R區=$R$6區時，
則將R區&T區&$R$6區等三個區域【每一個】對應列之絕對交集值的儲存格各標示底色。

下載 (192.76 KB)

2015-12-14 22:54

請問︰列9以下的程式碼要如何增寫?
懇請各位先進、前輩不吝賜教!  謝謝!

詳如附件。
PS:需求步驟推演~請詳見標籤有底色的工作表之圖示和說明。

Airman

回復 1# Airman
補充另一程式邏輯的說明~希望對解題有幫助~

下載 (181.83 KB)

2015-12-15 10:34

附件: 另一程式邏輯說明.rar (3.55 KB)

下載次數: 3

2015-12-15 10:37

謹供參考!謝謝!

Airman

回復 2# Airman

下載 (192.43 KB)

2015-12-15 15:06

Sorry~修正筆誤~
第7列: 2........，則其餘的4個.....改為5個
第9列: 3........，則其餘3個.....改為4個
  謝謝!

Airman

回復 1# Airman
萬分抱歉~愈說愈亂~#2和#3作廢。

再重新整理~
新附件︰ 另一程式邏輯說明-重新整理.rar (3.79 KB)

下載次數: 1

2015-12-15 18:45

謹供參考!謝謝!

准提部林

只想到〔自訂函數〕及〔副程式〕方式：
三區絕對交集標示底色v01.rar (47.38 KB)

下載次數: 4

2015-12-16 22:15

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

准提部林

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

Airman

回復 5# 准提部林

准大:
不好意思，總是勞煩您

以發問題附檔測試OK了~感恩

PS:
呵~呵~您寫得太精緻細膩了~小弟一時還不知應如何套進到實際的使用主檔中?
今夜仔細拜讀貴程式解碼與研習後~明日再向您提報告~謝謝您

Airman

回復 6# 准提部林
准大:
呵~呵~馬上遇到二個問題~不是貴程式碼有問題，而是小弟程度太Low的緣故~
Q1:請問模組的名稱要怎麼更改?
上網查~都說不能更改~必須另寫程式~但明明就看到您沒有另寫程式就更改了

Q2:請問T7公式的自訂函數可以更改為不引用U欄的值嗎?
因為在實際的使用檔中無法以U欄作輔助欄(可能您沒有注意到小弟說明中之"不用理會U欄"的註記)

以上  敬請您惠予賜教!感恩

Airman

回復 5# 准提部林
准大:
呼~終於找到資料~知道怎麼更改模組名稱了:lol

只剩下公式的問題了~會中斷在xNum = GetNumB1(.[J6:P6], .[R6], .[T5], b(1, -1).Value, 4)  
謝謝您:D

表格長這樣(公式會右拉~欄位不定~所以無法用輔助欄)

下載 (165.61 KB)

2015-12-17 04:32

Airman

回復 5# 准提部林
准大:早安!
不好意思，看來是小弟畫蛇添足的說明惹禍了~讓程式邏輯變得如此複雜

以目前看來~要解決問題的癥結點~GetNumB1~應該是會大費周章~
因此可否~請您以如附件中的列19~列29的直述式的程式邏輯來撰寫程式碼~
且公式也不要用自訂函數，就用原公式即可。
如日後有需要改變計算位址的時候~小弟載自行更改程式碼即可。

另外~在貴解答完成後，除了DATA!和Sheet1!以外的其它工作表~小弟就都會移除~
所以除了DATA!和Sheet1!以外的工作表都只是作輔助說明之用，請您不要引用於公式或程式碼中。
謝謝您

參考附件︰ VBA_三個區域不限同欄或限同欄之絕對交集值各標示底色.rar (56.35 KB)

下載次數: 2

2015-12-17 08:18

以上  懇請您惠予賜教~感恩

PS:如附件中的列19~列29的直述式的程式邏輯~小弟可以自行套進到實際的使用主檔中。謝謝您