感
谢
关
注
导读
打开VBE编辑器新建模块并添加VBA代码，如下图：
操作方法：
按ALT F11组合键打开VBE编辑器，选中任意一个工作表名点击右键，然后选择“插入——模块”，在模块中粘贴以下代码：
Function demo(rng As Range, a As Range) As Integer
Dim i As Range
Application.Volatile "定义自定义函数为易失函数,公式自动重算
For Each i In a
If i.Interior.ColorIndex = rng.Interior.ColorIndex Then
demo = Application.Sum(i) demo
End If
Next i
End Function
使用方法如下：
使用自定义函数和使用一般工作簿函数操作方法一样，输入函数公式下拉即可。
函数公式语法如下：
=demo(汇总的条件，汇总求和的区域）
第286天的坚持，离365天的小目标还剩79天
我的Excel，天天与你不见不散
