VBA_A期數在B期數的對應值有再顯示於C期數的儲存格時，則各標示底色之語法。
- 帖子
- 315
- 主題
- 51
- 精華
- 0
- 積分
- 367
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-29
- 最後登錄
- 2021-10-12
|
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號底色。
其餘......同理類推。
詳如附件。(請點選上方之附件)
以上 懇請各位先進、前輩不吝賜教! 謝謝!
抱歉!下方這個附件作廢(不知為何刪不掉 ) |
|
|
|
|
|
|
|
- 帖子
- 315
- 主題
- 51
- 精華
- 0
- 積分
- 367
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-29
- 最後登錄
- 2021-10-12
|
2#
發表於 2016-2-2 16:49
| 只看該作者
回復 1# Airman
抱歉 ^^" #1 作廢
更改需求~
VBA_列39~列59增修.rar (26.76 KB)
需求︰請將列39~列59的程式碼增修為~
當T$5期數的J︰P之值，有顯示在$R7期數的J︰P之儲存格中~
且該T$5期數的J︰P值，其在$R7期數之對應值，有再顯示於$R7+T$3期數的J︰P之儲存格中時~
則將符合上述條件的各組合，根據T$5期數J︰P欄位的順位~依序標示40號,39號,45號,4號,38號,37號,8號底色之語法。
'R7&T5二列的不限同欄或同欄之交集.........................................................................'列38
If .[T5] > .Range("R" & b.Row) And .Range("R" & b.Row) > 0 Then
Dim L(1 To 2)
U = 0: RW = Array(.[T5], .Range("R" & b.Row))
For y = 1 To 2: Set R(y) = .[J:P].Rows(RW(y - 1) + 6).Cells: Next y
For z = 1 To 7
L(1) = z
For y = 1 To 2
L(y) = Application.Match(R(1)(z), R(y), 0)
If IsError(L(y)) Then L(1) = 0: Exit For
'If L(y) <> L(1) Then L(1) = 0: Exit For '若要求〔同欄〕，加入這行
Next y
If L(1) > 0 Then
For y = 1 To 2
R(y)(L(y)).Select
'Selection.Interior.ColorIndex = Array(4, 8)(y - 1) '標示〔個別〕底色
Selection.Font.ColorIndex = 7 '設定文字
Selection.Font.FontStyle = "粗體"
Next
End If
Next z
End If
範例~
1.當M94的33在有顯示在N7且M94在M7的對應值13，有再顯示於K19的儲存格，則M94,M7,K19各標示4號底色。
2.當J94的23在有顯示在P15且J94在J15的對應值04，再顯示於P27的儲存格，則J94,J15,P27各標示40號底色。
其餘......同理類推。
詳如附件。
以上 懇請各位先進、前輩不吝賜教! 謝謝! |
|
|
|
|
|
|
|
- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-27
|
3#
發表於 2016-2-3 19:14
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 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期)的相同值(交集值)剛好是同欄位的關係。
以上 敬請您賜正為禱~謝謝您 |
|
|
|
|
|
|
|
- 帖子
- 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號粗字顏。
詳如:需求答案的參考圖示
以上 敬請您賜正為禱~謝謝您 |
|
|
|
|
|
|
|
- 帖子
- 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號粗字顏。
謝謝! |
|
|
|
|
|
|
|
- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-27
|
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
這種密密麻麻的文字描述, 程式碼新舊混合, 實在不太習慣, 太花時間及眼力!!! |
|
|
|
|
|
|
|
- 帖子
- 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了~感恩
如果說明的文字標示顏色會令您眼花瞭亂~小弟以後就不標示字顏~以利您閱讀。
至於文字說明的方式~小弟會盡量改進~力求簡扼。
會以原程式或原公式的增修來達到新需求~是想因原程式或原公式都為您的原作~所以誤以為會這樣比較容易理解。
今後小弟會改變提問的方式~之前造成您的所有不便~敬請海涵。謝謝您 |
|
|
|
|
|
|
|
- 帖子
- 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)
以上 敬請您賜教為禱!感恩 |
|
|
|
|
|
|
|
- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-27
|
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 |
|
|
|
|
|
|
|
