VBA_A期數在B期數的對應值有再顯示於C期數的儲存格時，則各標示底色之語法。
- 帖子
- 315
- 主題
- 51
- 精華
- 0
- 積分
- 367
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-29
- 最後登錄
- 2021-10-12
|
回復 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號底色。
其餘......同理類推。
詳如附件。
以上 懇請各位先進、前輩不吝賜教! 謝謝! |
|
|
|
|
|
|
|
發表於 2016-2-2 16:49
| 