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

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

2^#

發表於 2015-12-15 10:37 | 只看該作者

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

附件:

另一程式邏輯說明.rar (3.55 KB)
謹供參考!謝謝!

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

3^#

發表於 2015-12-15 15:06 | 只看該作者

回復 2# Airman

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

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

4^#

發表於 2015-12-15 18:46 | 只看該作者

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

再重新整理~
新附件︰

另一程式邏輯說明-重新整理.rar (3.79 KB)

謹供參考!謝謝!

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

5^#

發表於 2015-12-16 22:16 | 只看該作者

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

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

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

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

6^#

發表於 2015-12-16 23:04 | 只看該作者

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

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

7^#

發表於 2015-12-16 23:09 | 只看該作者

本帖最後由 Airman 於 2015-12-16 23:12 編輯

回復 5# 准提部林

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

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

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

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

8^#

發表於 2015-12-17 01:00 | 只看該作者

本帖最後由 Airman 於 2015-12-17 01:08 編輯

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

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

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

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

9^#

發表於 2015-12-17 04:18 | 只看該作者

本帖最後由 Airman 於 2015-12-17 04:32 編輯

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

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

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

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

10^#

發表於 2015-12-17 08:18 | 只看該作者

本帖最後由 Airman 於 2015-12-17 08:32 編輯

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

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

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

參考附件︰

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

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

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