前言｜职场实例
Excel已经成为职场人士必备的技能。作为个人电脑普及以来用途最广泛的办公软件之一，在很多公司，Excel已经完全成为了一种生产工具，无论何种行业，只要需要和数据打交道，Excel几乎是不二的选择。
Excel中的公式功能是非常强大的，但是有些函数系统并不自带，需要我们自己自定义设计生成。
比如下图所示：
我们想要按背景填充颜色统计数据源中的数据个数和数据之和；以及按字体颜色统计数据源中的数据个数和数据之和。
但是通过普通的Excel可视化函数并不能实现这样的操作。所以今天小编要向大家介绍用VBA代码的方法自定义函数解决这样的颜色统计。因为Excel本身是支持VBA的，用代码，就可以对很多函数公式无法实现的功能，重新进行设计。
步骤｜解决方案
首先，我们右击工作表名称标签，点击“查看代码”命令。进入VBA编辑窗口界面。
点击插入-模块，将下面一段代码复制粘贴到VBA模块编辑窗口中。保存关闭。回到Excel主界面。
代码如下：
Function CountByBGColor(Col As Range, CountRange As Range) '根据背景颜色计数
Application.Volatile
Dim iCell As Range
CountByBGColor = 0
For Each iCell In CountRange
If iCell.Interior.Color = Col.Interior.Color Then
CountByBGColor = CountByBGColor 1
End If
Next
End Function
Function SumByBGColor(Col As Range, SumRange As Range) '根据背景颜色求和
Application.Volatile
Dim iCell As Range
SumByBGColor = 0
For Each iCell In SumRange
If iCell.Interior.Color = Col.Interior.Color Then
SumByBGColor = SumByBGColor Application.WorksheetFunction.Sum(iCell)
End If
Next
End Function
Function CountByFontColor(Col As Range, CountRange As Range) '根据字体颜色色计数
Application.Volatile
Dim iCell As Range
CountByFontColor = 0
For Each iCell In CountRange
If iCell.Font.Color = Col.Font.Color Then
CountByFontColor = CountByFontColor 1
End If
Next
End Function
Function SumByFontColor(Col As Range, SumRange As Range) '根据字体颜色求和
Application.Volatile
Dim iCell As Range
SumByFontColor = 0
For Each iCell In SumRange
If iCell.Font.Color = Col.Font.Color Then
SumByFontColor = SumByFontColor Application.WorksheetFunction.Sum(iCell)
End If
Next
End Function
按背景填充颜色统计数据个数
我们在H2单元格输入函数：
=CountByBGColor(G2,$B$2:$E$6)
向下填充函数
按背景填充颜色统计数据之和
我们在I2单元格输入函数：
=SumByBGColor(G2,$B$2:$E$6)
向下填充函数
按字体颜色统计数据个数
我们在H9单元格输入函数：
= CountByFontColor(G9,$B$9:$E$13)
向下填充函数
按字体颜色统计数据之和
我们在I9单元格输入函数：
=SumByFontColor(G9,$B$9:$E$13)
向下填充函数
