GBKEE

回復 1# metrostar
顏色 不可是設定格式化條件下的顏色

1. Sub Ex()
   
2.     Dim d As Object, C1, C2, e As Range, Ar()
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     With ActiveSheet
   
5.         C1 = .Range("E8").Interior.ColorIndex
   
6.         C2 = .Range("G8").Interior.ColorIndex
   
7.         d(C1) = Array(0, 0)
   
8.         d(C2) = Array(0, 0)
   
9.         For Each e In .Range("B2", .[B2].End(xlDown))
   
10.             If e(1, 0) >= .[E5] And e(1, 0) <= .[G5] Then
    
11.                 If d.exists(e.Interior.ColorIndex) Then
    
12.                     Ar = d(e.Interior.ColorIndex)
    
13.                     Ar(0) = Ar(0) + 1
    
14.                     Ar(1) = Ar(1) + e
    
15.                     d(e.Interior.ColorIndex) = Ar
    
16.                 End If
    
17.             End If
    
18.         Next
    
19.         .Range("E9") = d(C1)(0)
    
20.         .Range("E10") = d(C1)(1)
    
21.         .Range("G9") = d(C2)(0)
    
22.         .Range("G10") = d(C2)(1)
    
23.     End With
    
24. End Sub

複製代碼