由于最近情况特殊，外边的餐饮都不开门营业了，为了解决上班人员的吃饭问题，公司从20多公里以外的工厂食堂送饭过来，但是需要提前统计好吃饭人数、点菜数量等，于是做了以下表格来统计，也可适用于其他工作表格，原理是一样的，就是统计指定区域内相同颜色表格的数量，或是指定区域内相同颜色表格的数值求和。可以通过VBA代码和宏来实现，它能通过单元格的背景颜色来计算，即使位置发生了变化，只要在指定区域内就行。下面是以office 2010为例。工具/原料more台式机、笔记本电脑office2010，其他版本未测试，应该也适用方法/步骤1/9分步阅读

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

2/9

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

3/9

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

4/9

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

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/9

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

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

6/9

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

7/9

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

8/9

下面进行各项的求和。

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

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

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

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

9/9

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

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

注意事项

区域可按实际需要来选，列、行都可以

留意示例单元格

OFFICE2010单元格颜色求和