Board logo

標題: 求救: SumColor Function 但要累加非數值的拆解方法 [打印本頁]

作者: gogomarkni    時間: 2014-7-18 18:07     標題: 求救: SumColor Function 但要累加非數值的拆解方法

hi ,

小弟想要請問一下, 我們可以用 SumColor Function 去累加某個特定底色的儲存格值(如下範例),
但是若我有個需求, 每個儲存格裡面的值都是2個,例如 "15/10" ,
我想要分別提出15 or 10 來統計幒數, 該怎麼改呢?

例如:  
A1 (底色:紅)    10/15
A2  (白)              4/3
A3   (紅)             5/66
A4   (綠)             0/30
..........................
我想要算出紅底儲存格裡, 累計數值為 10+5=15 (前) 與 15+66=81

Example======================================
Function SumColor(rColor As Range, rSumRange As Range)
Dim rCell As Range
Dim iCol As Integer
Dim vResult
Application.Volatile
iCol = rColor.Interior.ColorIndex
For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell
SumColor = vResult
End Function
===============================
作者: gogomarkni    時間: 2014-7-21 13:33     標題: RE: 求救: SumColor Function 但要累加非數值的拆解方法 (已解決)

不好意思打攪大家
已經找到方法了,
加個GetElement = Split(rCell, "/")(Num)
把數值方開就可以了.謝謝




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