返回列表 上一主題 發帖

[發問] 根據日期範圍後再依不同背景顏色計算總個數和總和?

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-10-8 16:46 | 顯示全部帖子
回復 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
複製代碼

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題