返回列表 上一主題 發帖

[發問] VBA_二區有任一組對應列的相同值全顯示在第三區則標示底色。

[發問] VBA_二區有任一組對應列的相同值全顯示在第三區則標示底色。

2015-1230-Q-1-不同欄~VBA_2R_3ABC_4的【任一列】對應列之交集值.rar (30.75 KB)


原程式碼為任二區的對應列有相同值時,則各標示8號,4號,6號底色~
敬請更修語法如下~

需求︰
當A區∩B區有任一組對應列之相同值(交集值)全顯示在C區時~
則將該組對應列各標示8號,4號,6號底色之語法。
詳如附件圖示。

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

Dim R(1 To 3) As Range, x%, z%, i%, U%
RW = Array(.[T5], .[R6], b(1, -1))
For x = 1 To 4
For z = 1 To 7
  Set R(1) = .[J6].Cells(RW(0) - x + 1, z): U = 0
  For i = 2 To 3
    Set R(i) = Nothing
    Set R(i) = .[J6:P6].Offset(RW(i - 1) - x, 0).Find(R(1), Lookat:=xlWhole)
    If R(i) Is Nothing Then U = 1: Exit For
    'If R(i).Column <> R(1).Column Then U = 1: Exit For '同欄
  Next i
  If U = 0 Then
    For i = 1 To 3: R(i).Interior.ColorIndex = Array(4, 6, 8)(i - 1): Next
  End If
Next z
Next x
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

本帖最後由 Airman 於 2015-12-30 13:14 編輯

回復 2# 准提部林
2015-1230-Q-1-不同欄~VBA_2R_3ABC_4的【任一列】對應列之交集值-准大.rar (30.49 KB)

准大:
感謝賜答~有一點小誤差~
目前的解答是︰有點近似~但不完全是~
A區B區某組對應列任一交叉值顯示在C區對應列時,則即將該交叉值各標示底色。

本題的需求是︰
A區B區某組對應列交叉值全部都有顯示在C區對應列時,則將該組對應列交叉值各標示底色。

正確標示詳如︰AQ︰AU圖示。

PS︰7號字顏的數字A區B區交叉值沒有顯示C區~則該組對應列不標示底色。


不好意思~敬請您再次賜正~謝謝您

TOP

回復 3# Airman

49列的〔39〕,為何只06符合,49不算?
64列的〔54〕,為何只06符合,08.49不算?
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

本帖最後由 Airman 於 2015-12-30 15:36 編輯

回復 4# 准提部林
准大:
39        02        04        18        20       32        49        30
72        07        13        14        20        21        49        34
96        05        16        23        28        38        47       49
因為A區(39期)和B區(72期)的交集數字2049;但只有49顯示在C區(96期),20沒有顯示在C區(96期)~所以這一組對應列不標示底色。

54        04        05       07        13        24        30        49
72        07       13        14        20        21        49        34
96        05        16        23        28        38        47        49
因為A區(54期)和B區(72期)的交集數字071349;但只有49顯示在C區(96期),0713沒有顯示在C區(96期)~所以這一組對應列 不標示底色。

55        03        04        08        25        36        42        32
73        08        10        11        21        23        44       42
97        02        08        11        12        26        35        47
因為A區(55期)和B區(73期)的交集數字0842;但只有08顯示在C區(97期),42沒有顯示在C區(97期)~所以這一組對應列不標示底色。

其餘...以此類推。

以上  謹供您參考!謝謝您

補充:
本次範例以每區各4期為對應~
A區30~3339~4254~57      B區72~75   C區96~99

TOP

須多兩道程式:
1.全部檢測一次,收集符合者納入union聯集區
2.逐一聯集區取出儲存格填色

Dim R(1 To 3) As Range, UR(1 To 3) As Range, x%, z%, i%, U%
RW = Array(b(1, -1), .[T5], .[R6])
For x = 1 To 4
  For i = 1 To 3: Set UR(i) = Nothing: Next
For z = 1 To 7
  Set R(1) = .[J6].Cells(RW(0) - x + 1, z): U = 0
  For i = 2 To 3
    Set R(i) = Nothing
    Set R(i) = .[J6:P6].Offset(RW(i - 1) - x, 0).Find(R(1), Lookat:=xlWhole) '不同欄
    If Not R(i) Is Nothing Then U = U + i '不同欄
    'Set R(i) = .[J6:P6].Cells(RW(i - 1) - x, z) '同欄
    'If R(i) = R(1) Then U = U + i '同欄
  Next i
  If U = 2 Then Set UR(1) = Nothing: Exit For
  If U = 5 Then
    For i = 1 To 3
      If UR(i) Is Nothing Then Set UR(i) = R(i) Else Set UR(i) = Union(UR(i), R(i))
    Next i
  End If
Next z
  If Not UR(1) Is Nothing Then
   For i = 1 To 3
     For Each R(1) In UR(i): R(1).Interior.ColorIndex = Array(8, 4, 6)(i - 1): Next
   Next
  End If
Next x
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

本帖最後由 Airman 於 2015-12-30 18:22 編輯

回復 6# 准提部林
准大:
不好意思,一直勞煩您為小弟作解

因為以絕對交叉求同值時,以發問的語法之解(剛好3段公式能互相抵冲掉一組只有二個對應期的交叉求同值)就可以了~
但符合絕對交叉值的實際答案太稀少了~所以只好放寬條件限制~看是否能較符合實務上的推牌需求。

測試OK了~萬分感謝您的耐心教導~感恩

TOP

本帖最後由 Airman 於 2015-12-30 20:12 編輯

回復 6# 准提部林
同欄~2015-1230-Q-1-VBA_2R_3ABC_4的【任一列】對應列之交集值.rar (29.88 KB)

准大:
不好意思~剛剛忘了測試同欄~
現在測試後~符合條件的同欄位數字~三區無法有效標示底色

敬請您再次賜正~感恩

PS: 不限制同欄位數字的底色標示語法完全OK了~謝謝您

TOP

回復 8# Airman


Set R(i) = .[J6:P6].Cells(RW(i - 1) - x + 1, z)
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

准大:
呵~呵~就差1而已,標示全跑出來了
OK了~再次感謝您的耐心指導~感恩

晚 安~

TOP

        靜思自在 : 不要小看自己,因為人有無限的可能。
返回列表 上一主題