1、先设计好表格(这表格是不是看起来眼花缭乱的?如果每次统计都要一个一个的数,眼睛更花了)。
2、在工作表上右键,查看代码:
3、在工作表上右键,插入模块:
4、在弹出的新窗口里输入代码:Function CountColor(col As Range, countrange As Range) As IntegerDim cells As RangeApplication.VolatileFor Each cells In countrangeIf cells.Interior.ColorIndex = col.Interior.ColorIndex ThenCountColor = CountColor + 1End IfNext cellsEnd FunctionFunction SumColor(col As Range, sumrange As Range) As IntegerDim cells As RangeApplication.VolatileFor Each cells In sumrangeIf cells.Interior.ColorIndex = col.Interior.ColorIndex ThenSumColor = Application.Sum(cells) + SumColorEnd IfNext cellsEnd Function
5、保存时会有这个提示“无法在未启用宏的工作簿中保存以下功能…”,选“否”,保存为“excel启用宏的工作簿”,再
6、选“否”,保存为“excel启用宏的工作簿”
7、出现“隐私问题警告:此文档中包含宏、ActivX…”这个提示,按下面步骤去掉提示,完成后再次保存不会出现那个提示了。
8、下面进行各项的求和。这几项常规的求和就不说了,只说一下有颜色的单元格的求和:按颜色求和公式:sumcolor(颜色示例格,求和区域或列)按颜色计数公式: countcolor(颜色示例格,求和区域或列)。求和“中餐”一列已收款的人数,已收款的标记单元格为红色
9、这个示例是拿A25单元格做颜色示例格,求和B3-B22的意思,只统计B3-B22单元格内的红色单元格数量。其他颜色的就不一一说明了,结果如下: