Airman

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-2-1 22:16 | 只看該作者

VBA_A期數在B期數的對應值有再顯示於C期數的儲存格時，則各標示底色之語法。

本帖最後由 Airman 於 2016-2-1 22:25 編輯

VBA_A在B的對應值再顯示於C的不限同欄&同欄之底色標示.rar (26.59 KB)

標題說明︰
A期數=T$5期數的J︰P之7個值
B期數=$R7期數的J︰P之7個值
C期數=$R7+T$3期數的J︰P之7個儲存格

需求︰再增加下列語法~
當T$5期數的J︰P之7個值，其在$R7期數的J︰P之7個對應值，有再顯示於$R7+T$3期數的J︰P之7個儲存格中時~
則將符合條件的各組合，根據T$5期數J︰P欄位的順位~依序標示40號,39號,45號,4號,38號,37號,8號底色之語法。

範例~
1.M94在M7的對應值13，再顯示於K19的儲存格，則M94,M7,K19各標示4號底色。
2.J94在J15的對應值04，再顯示於P27的儲存格，則J94,J15,P27各標示40號底色。
其餘......同理類推。

詳如附件。(請點選上方之附件)

以上懇請各位先進、前輩不吝賜教! 謝謝!

抱歉!下方這個附件作廢(不知為何刪不掉

)

VBA_A在B對應值再顯示於C的不限同欄&同欄之底色標示.rar (26.58 KB)

樓主熱帖

Airman

中學生 Rank: 2

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

11^#

發表於 2016-2-5 16:36 | 只看該作者

回復 10# 准提部林
准大:
測試完全OK了~感恩

呵~呵~另一題~修改公式為~T$5在$R7對應值再顯示於$R7+T$3的同欄位~http://forum.twbts.com/thread-16307-1-1.html 10#
只見提醒~看不到新內容。
懇請請您再次賜教為禱~謝謝您

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

10^#

發表於 2016-2-5 16:15 | 只看該作者

回復 9# Airman

修改部份大致都對，其實自己多測幾次去漸次修改，也可以的！！！

For z = 1 To 7
　　Set R(1) = UR(1)(z): Set R(2) = Nothing: Set R(3) = Nothing
　　If UR(2)(z) = R(1) Then
　　　　Set R(2) = UR(2)(z) '同欄
　　　　Set R(3) = UR(3).Find(R(2), Lookat:=xlWhole) '不同欄
　　　　'If UR(3)(z) = R(1) Then Set R(3) = UR(3)(z) '同欄
　　End If
　　If Not R(3) Is Nothing Then
　　　　For y = 1 To 3
　　　　　　R(y).Interior.ColorIndex = Array(40, 39, 45, 4, 38, 37, 8)(z - 1)
　　　　Next
　　　　For y = 1 To 2
　　　　　　R(y).Font.ColorIndex = 7 '設定文字
　　　　　　R(y).Font.FontStyle = "粗體"
　　　　Next y
　　End If
Next z

TOP

Airman

中學生 Rank: 2

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

9^#

發表於 2016-2-5 10:29 | 只看該作者

回復 7# 准提部林
准大:
雖然書是買了很多~但一直有看沒有懂

所以常以需求的稍微變化來比對而吸取程式的寫法。
您的語法小弟也漸漸適應~相信同類需求會慢慢減少。

不好意思~想再將貴解程式碼的需求改為: 二個期數【同欄位之相同數字】的再出現於它期之標示語法。
說明:
當T$5和$R7期數的J︰P【同欄位之相同數字】有再顯示於$R7+T$3期數的同欄位或不同欄位之儲存格中時~
則將符合條件的3個期數，根據T$5期數J︰P欄位之順位~依序標示40號,39號,45號,4號,38號,37號,8號底色，
並將T$5和$R7的【同欄位之相同數字】再標示7號粗字顏的語法。

詳如附件

二個期數同欄位相同值的再出現之標示語法。.rar (31.54 KB)

以上敬請您賜教為禱!感恩

TOP

Airman

中學生 Rank: 2

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

8^#

發表於 2016-2-4 12:34 | 只看該作者

本帖最後由 Airman 於 2016-2-4 12:36 編輯

回復 7# 准提部林
准大:
測試完全OK了~感恩

如果說明的文字標示顏色會令您眼花瞭亂~小弟以後就不標示字顏~以利您閱讀。
至於文字說明的方式~小弟會盡量改進~力求簡扼。
會以原程式或原公式的增修來達到新需求~是想因原程式或原公式都為您的原作~所以誤以為會這樣比較容易理解。
今後小弟會改變提問的方式~之前造成您的所有不便~敬請海涵。謝謝您

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

7^#

發表於 2016-2-4 10:19 | 只看該作者

回復 6# Airman

If .[T5] > .Range("R" & b.Row) And .Range("R" & b.Row) > 0 Then
　　RW = Array(.[T5], b(1, -1), b(1, -1) + .[T3])
　　For y = 1 To 3: Set UR(y) = .[J:P].Rows(RW(y - 1) + 6).Cells: Next y
　　For z = 1 To 7
　　　　Set R(1) = UR(1)(z): Set R(2) = Nothing: Set R(3) = Nothing
　　　　Set R(2) = UR(2).Find(R(1), Lookat:=xlWhole)
　　　　If Not R(2) Is Nothing Then
　　　　　Set R(2) = UR(2)(z)
　　　　　Set R(3) = UR(3).Find(R(2), Lookat:=xlWhole)
　　　　End If
　　　　If Not R(3) Is Nothing Then
　　　　　For y = 1 To 3
　　　　　　R(y).Interior.ColorIndex = Array(40, 39, 45, 4, 38, 37, 8)(z - 1)
　　　　　Next
　　　　　Set R(2) = UR(2).Find(R(1), Lookat:=xlWhole)
　　　　　 For y = 1 To 2
　　　　　　　R(y).Font.ColorIndex = 7 '設定文字
　　　　　　　R(y).Font.FontStyle = "粗體"
　　　　　Next y
　　　　End If
　　Next z
End If

這種密密麻麻的文字描述, 程式碼新舊混合, 實在不太習慣, 太花時間及眼力!!!

TOP

Airman

中學生 Rank: 2

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

6^#

發表於 2016-2-4 03:48 | 只看該作者

回復 5# Airman
抱歉~有筆誤~
符合條件_2的T$5，$R7，$R7+T$3的3個儲存格各標示7號粗字顏。
改為:
符合條件_2的T$5，$R7的2個儲存格各標示7號粗字顏。
謝謝!

TOP

Airman

中學生 Rank: 2

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

5^#

發表於 2016-2-4 00:16 | 只看該作者

本帖最後由 Airman 於 2016-2-4 00:31 編輯

回復 3# 准提部林
准大:
不好意思~ 4#說明中的相同值(交集值)好像有漏洞(語病)

重新說明︰
條件1_當T$5期數的J︰P儲存格數字在$R7期數的對應儲存格數字有再顯示於$R7+T$3期數的J︰P儲存格中時~
條件2_符合條件1之T$5的J︰P儲存格數字亦有顯示在$R7期數的J︰P儲存格中。

當上述的二個條件都符合時，則~
符合條件_1的T$5，$R7，$R7+T$3的3個儲存格各標示底色(底色順序如貴解答檔)；
符合條件_2的T$5，$R7，$R7+T$3的3個儲存格各標示7號粗字顏。

詳如:需求答案的參考圖示

以上敬請您賜正為禱~謝謝您

TOP

Airman

中學生 Rank: 2

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

4^#

發表於 2016-2-3 23:14 | 只看該作者

本帖最後由 Airman 於 2016-2-3 23:29 編輯

回復 3# 准提部林

准大:
謝謝您的費神賜教~感恩

貴解答檔的測試結果:尚有一個小誤差~
7號字顏~是標示在T$5期數和$R7期數的相同值(交集值)~
詳如:需求答案的參考圖示 PS: M70和M82的33會同時有7號字顏和4號底色，
是因為T$5的期數(=88期)各與$R70和$R82的期數(=64期和=76期)的相同值(交集值)剛好是同欄位的關係。

以上敬請您賜正為禱~謝謝您

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

3^#

發表於 2016-2-3 19:14 | 只看該作者

回復 2# Airman

VBA_列39~列59增修_v1.rar (27.66 KB)

TOP