作者：乔山办公网日期：
返回目录：excel表格制作
Function MyColorSum(Ref_color As Range, Sum_range As Range)
Application.Volatile
Dim iCol As Integer
Dim rCell As Range
iCol = Ref_color.Interior.ColorIndex
For Each rCell In Sum_range
If iCol = rCell.Interior.ColorIndex Then
MyColorSum = MyColorSum + rCell.Value
End If
Next rCell
End Function
第一百个参数是有颜色的单元格度，第二个，知要统计的区域，马道上下班了，只能专帮你到这里，希望你能属领悟。
提供示例代码如下：
测试效果：
ALT+F11打开VBE编辑器，新建个模zd块，粘贴如下自定义函数代码：
Function tjys(rg As Range, z As Integer) 'rg代表单元格内区域容，z代表颜色的值，比如淡紫色值为39
Dim c As Integer, r As Range
c = 0
For Each r In rg
If r.Interior.ColorIndex = z Then c = c + 1
Next
tjys = c
End Function
比如需要统计A1:B3单元格区域淡紫色背景单元格个数，输入公式：=tjys(A1:B3,39)，如图示。
请下载我上传的附件：统计当前行填充颜色的单元格数量.xls