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 但要累加非數值的拆解方法 (已解決)