excel如何按单元格颜色对一行求和

我知道的可以用宏
'===========================
'按单元格颜色求和《公式》
'===========================

Public Function sumcolor(sumrange As Range, colorcell As Range)
Dim returnsum As Double
Dim tes As String
For Each Item In sumrange
If colorcell.Interior.ColorIndex = Range(Item.Address).Interior.ColorIndex Then
If IsNumeric(Range(Item.Address)) Then
returnsum = returnsum + Range(Item.Address)
End If
End If
Next Item
sumcolor = returnsum
End Function

把上面代码拷贝到后台宏
在前台就可以 直接用公式
=sumcolor("求和的范围","拥有求和颜色的单元格")
比如，我要对A列求和（A列 有好多颜色，我要求和 A2颜色相同的
=sumcolor(a:a,a2)

目前excel未提供标准函数，可通过vba开发自定义函数解决。在excelhome里有不少。

提问太笼统了，说详细点，最好有截图