摘要： Excel 中经常要做数量统计，比如 COUNT 统计数字单元格，COUNTA 统计非空单元格，COUNTIF 单条件统计等等。那么如果要统计区域中有多少个填充绿色的单元格，有多少个字... Excel 中经常要做数量统计，比如 COUNT 统计数字单元格，COUNTA 统计非空单元格，COUNTIF 单条件统计等等。那么如果要统计区域中有多少个填充绿色的单元格，有多少个字体为红色的单元格，如何实现呢？
接下来介绍如何通过简单的VBA代码实现自编函数，统计相同填充色和字体颜色的单元格数量。以下代码以填充色和字体色为例（代码稍作修改，还能统计各种格式包括字体加粗/倾斜/字号/边框等的单元格数量）
第一步：单击【开发工具】→【查看代码】→【插入】→【模块】
第二步：输入以下代码（不区分大小写）
※代码含义提示
CountFormat 可自己命名，但不可与系统函数或关键字同名
小亓老师教你一秒钟学会Excel函数
在企业自动化办公环境中，谈到Excel函数，也将会令很多工作人员眉头紧锁。下面就让Excel2013来为您舒展眉头，还您开心的面孔。（1）在Excel2013工作簿中，切换到公式选项卡，在函数库选项
X和Y分别表示此函数的第1、2个参数
Font.Color 指字体颜色，Interior.Color 指填充颜色
※用户操作
在Excel中输入函数 =CountFormat($A$2:$B$11,$D2)
结果：在A2:B11区域中有多少个单元格的填充色和字体色与D2单元格一样
第1个参数：要统计的区域，例如上图的 A2:B11 区域
第2个参数：指定格式的单元格，例如上图的 D2 单元格
※扩展
有兴趣的同学可以在 IF 代码处增加多个条件，例如字体是否加粗、倾斜、边框、字号等，然后统计出满足这些条件的单元格数量。
如何通过VBA实现Excel 信息增删改查系统
信息增删改查系统-VBA实现效果本期，小编将通过一个很全面的实例-信息增删改查系统，来带大家熟悉VBA编程。相信，只要你掌握了这个实例，基本上就掌握了70%的VBA知识，剩下的就只是查查
