根据颜色求和与计数,你用了1天,我使用自定义函数1分钟就搞定了
Hello,今天有粉丝遇到这样的一个问题,就是老板给他很多带有颜色的表格,想让他根据颜色求和以及计数,他一个一个做了很久也没做出来,问我有没有什么简单的方法,当然有了,我们觉得最快捷的方法就是使用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
2.根据颜色计数代码
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:对指定颜色的单元格计数
第一参数:想要计数的单元格颜色
第二参数:想要计数的单元格区域
二、设置自定义函数
我们先点击开发工具,然后点击visal basic,然后在vba的编辑界面中点击插入,选择模块,将刚才定义的两个函数粘贴进去,直接将界面关闭即可
三、使用函数
自定义函数与内置函数的使用方法是一摸一样的,我只需输入函数对应的名称,然后填写相应的参数即可
怎么样,使用这种方法就统计带颜色的单元格是不是非常的简单呢?
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 2305938578@qq.com 举报,一经查实,本站将立刻删除。本文网址:https://www.excelwordppt.com/word-excel-ppt/6470.html