❷ 把代码复制到右边的代码窗口中,就可以了。
❸ 在工作表中,输入公式:
=颜色求和(C2:C9,E1)
结果就出来了。
以下是代码,供大家复制使用!
Function 颜色求和(rng1 As Range, rng2 As Range)
Dim r As Range, s As Double
'请选择你要求和的单元格区域!
Set rng1 = Intersect(ActiveSheet.UsedRange, rng1)
For Each r In rng1
'如果目标单元格与第二参数单元格的填充色相同,就进行累加。
If r.Interior.Color = rng2.Interior.Color Then
s = s r.Value
End If
Next
颜色求和 = s
End Function
我们这里用的是 VBA 中的自定义函数,也可以编写个 Sub 子过程。
然后把这个子过程附到一个按钮上面也可以的。
这种方法,如果大家有精力、有兴趣的话,可以学习点录制宏,自己再进行一些简单的修改,就可以完成一些自动化的工作了,省时省力。
以上就是按颜色求和的 4 种主要方法。
05总结
除了以上 4 种主要的方法之外,实际工作中还可能有以下几种情况,比如:
❶ 是否是隔行(或者隔列)加了颜色,然后对隔行(隔列)进行求和?
❷ 是否是对于高于或者低于某一些数值的数据加了颜色,然后用 Sumif 或者 Sumifs 等函数设置下单条件或者多条件求和?
❸ 是否是针对某个部门或者某些人、某个时间段等加了颜色,然后用相应的函数求和?
……
工作中,可以根据实际情况,找出其中的规律,加以分析判断,并做出选择。
好了,大家如果有其他好的方法,也可以分享出来,一起讨论,一起学习,一起进步!
如果喜欢我的文章,请点个赞呗!
私信回复关键词【2020】~
获取100 套高颜值图表模板!