Excel根据颜色求和与计数

文章目录

      • 一、需求
      • 二、实现方法
        • 1.代码
        • 2.创建自定义函数
        • 3.使用函数
      • 三、参考资料

一、需求

一个Excel中有不同颜色标记的单元格,统计的时候,需要按照颜色进行统计。

人工来做肯定是不可能了,借助Excel的功能好像也没有思路,其实这种情况可以通过使用vba自定义函数来实现。

二、实现方法

1.代码

根据颜色求和函数代码

' 根据颜色求和
Function SumColor(i As Range, ary1 As Range)
Dim icell As Range
Application.Volatile
For Each icell In ary1
If icell.Interior.ColorIndex = i.Interior.ColorIndex Then
SumColor = Application.Sum(icell) + SumColor
End If
Next icell
End Function

根据颜色计数函数代码

' 根据颜色计数
Function CountColor(x As Range, ary2 As Range)
Application.Volatile
For Each i In ary2
If i.Interior.ColorIndex = x.Interior.ColorIndex Then
CountColor = CountColor + 1
End If
Next
End Function

在这里我们定义了SumColor与CountColor两个自定义函数,

SumColor:对指定颜色的单元格求和

第一参数:想要求和的单元格颜色

第二参数:求和的数据区域

CountColor:对指定颜色的单元格计数

第一参数:想要计数的单元格颜色

第二参数:想要计数的单元格区域

2.创建自定义函数

打开开发工具标签页–>点击Visual Basic–>点击插入-模块–>把代码复制到窗口中–>保存

如果你也是Mac版本的Excel,发现没有开发工具这个标签页,可以按如下方法设置。
点击左上角Excel,找到偏好设置->视图,勾选"开发工具"选项卡

3.使用函数

函数使用方法和使用其他Excel内置函数没有什么区别,也是类似于=SumColor(H3,A1:F9)这种形式即可,不过要注意这里是两个参数,第一个参数是一个单元格,第二个参数是一个范围。具体如图所示:
这里我就不自己截图了,使用网上现成的动图吧

三、参考资料

https://wenku.so.com/d/e776b4fd732883a47b03fe22f7c1a360
https://baijiahao.baidu.com/s?id=1654264602680369970&wfr=spider&for=pc

本文链接:https://my.lmcjl.com/post/12951.html

展开阅读全文

4 评论

留下您的评论.