office2010自动计算相同颜色单元格数量

1、先设计好表格（这表格是不是看起来眼花缭乱的？如果每次统计都要一个一个的数，眼睛更花了）。

2、在工作表上右键，查看代码：

3、在工作表上右键，插入模块：

4、在弹出的新窗口里输入代码：

Function CountColor(col As Range, countrange As Range) As Integer

Dim cells As Range
Application.Volatile
For Each cells In countrange
If cells.Interior.ColorIndex = col.Interior.ColorIndex Then
CountColor = CountColor + 1
End If
Next cells
End Function
Function SumColor(col As Range, sumrange As Range) As Integer
Dim cells As Range
Application.Volatile
For Each cells In sumrange
If cells.Interior.ColorIndex = col.Interior.ColorIndex Then
SumColor = Application.Sum(cells) + SumColor
End If
Next cells
End Function

5、保存时会有这个提示“无法在未启用宏的工作簿中保存以下功能…”，

选“否”，保存为“excel启用宏的工作簿”，再

6、选“否”，保存为“excel启用宏的工作簿”

7、出现“隐私问题警告：此文档中包含宏、ActivX…”这个提示，按下面步骤去掉提示，完成后再次保存不会出现那个提示了。

8、下面进行各项的求和。

这几项常规的求和就不说了，只说一下有颜色的单元格的求和：

按颜色求和公式：sumcolor（颜色示例格，求和区域或列）

按颜色计数公式: countcolor（颜色示例格，求和区域或列）。

求和“中餐”一列已收款的人数，已收款的标记单元格为红色

9、这个示例是拿A25单元格做颜色示例格，求和B3-B22的意思，只统计B3-B22单元格内的红色单元格数量。

其他颜色的就不一一说明了，结果如下：