Board logo

標題: [發問] 根據日期範圍後再依不同背景顏色計算總個數和總和? [打印本頁]
作者: metrostar    時間: 2010-10-8 11:42     標題: 根據日期範圍後再依不同背景顏色計算總個數和總和?

學妹又來麻煩大家了

請帥哥/美女版主 帥哥/美女學長跟學姐

幫忙學妹完成

謝謝了
作者: PD961A    時間: 2010-10-8 12:35

回復 1# metrostar


    http://forum.twbts.com/viewthrea ... C3C%A6%E2%ADp%BA%E2
作者: GBKEE    時間: 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
複製代碼
作者: metrostar    時間: 2010-10-8 17:15

回復  metrostar
顏色 不可是設定格式化條件下的顏色
GBKEE 發表於 2010-10-8 16:46


學妹太感動了
特別感謝 GBKEE 帥哥版主
完全可以達到耶
您真是太強太強了
感謝您並祝賀您
幸福好運永遠降臨您身上



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)