期待已久的函数：根据单元格的颜色自动计算

本期定制化需求，来自付费训练营的@暖羽 小伙伴

如果表中有几千项，有的标了红色底色，有的标了蓝色，有的标了黄色，有没有什么方法可以快速计算每种颜色有多少个？

来，我们先看看效果：

是的，Excel可以做到根据颜色，自动统计：

细心的小伙伴一定会问：

=颜色求和

这是什么函数？？？

嘻嘻嘻~~这是表姐用VBA编写的自定义函数

根据单元格的颜色，自动甄别并计算。

函数参数：=颜色求和（参照颜色区，求和区域）

同理，也可以做计数哟：=颜色计数（参照颜色区，技数区域）

VBA代码

简单翻译一下这段代码的意思：

根据自定函数中输入的两个参数：①参照颜色区域；②求和区

遍历求和区中每个单元格的颜色色值，是否=参照颜色区域的色值

如果相等，把单元格的数值MARK上，作为汇总的数据值之一

然后逐个累加

并将最后累计的结果，输出

如果没有找到满足条件的单元格，自定义函数输出的结果为：无此背景色

VBA代码如下：

Function 颜色求和(参照颜色区 As Range, 求和区 As Range)

    Dim cell As Range, Colors, Data1, Data2 As Integer

    Application.Volatile

    Colors = 参照颜色区(1).Interior.Color

    For Each cell In 求和区

        If cell.Interior.Color = Colors Then

            Data2 = Data2 1

            Data1 = WorksheetFunction.Sum(cell) Data1

        End If

    Next cell

    If Data2 = 0 Then 颜色求和 = '无此背景色': Exit Function

    颜色求和 = Data1

End Function

工具获取方式

①已付费学员，直接在相应社群中获取

②转发本文至朋友圈，截图到公众号后台，24小时内获取

PS：表姐没有及时回复时，再喊我一下哈~~抱歉抱歉~~因为超过48小时后，表姐不能主动在后台给您发消息了哈~~

 

如果您认为@表姐凌祯的分享

对您有所启发

欢迎帮助我们转发朋友圈

[个人微信：lingzhen08300925   QQ:348902122]

苹果金主爸爸  赞赏专用通道

提高桌面生产力

如果您期待系统学习Excel技能，与几百位小伙伴一同：获得表姐私房服务、系统化提高个人office技巧、实现职场晋升，那么欢迎您加入我们。