废话不说了，直接上代码。
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的编辑界面中点击插入，选择模块，将刚才定义的两个函数粘贴进去，直接将界面关闭即可
自定义函数的使用方法：
参考动画演示就行了
对于大部分没有编程基础的职场人士来说，在学习VBA时往往会有很大的畏难情绪。
想学习VBA的朋友推荐 《人人学点VBA》 这款基础教程：
这个教程看了下还不错，浅显易懂的语言和生动形象的比喻，对Excel中看似复杂的概念和代码，从简单的宏录制、VBA编程环境和基础语法的介绍，到常用对象的操作与控制、执行程序的自动开关—对象的事件、设计自定义的操作界面、调试与优化编写的代码，都进行了形象的介绍。适合那些希望提高工作效率的职场人士，特别是经常需要处理和分析大量数据的用户，也适合财经专业的高校师生阅读。
想学习一整套完整Excel课程的，可以去这里拍：
office软件PPT Word Excel办公教程 入门到精通全套自学视频教学 赠送全套Office软件
赠送全套正版OFFICE软件：Office 2003、2007、2010。 全自动安装、安装过程自动激活、永久使用
转载请注明：日记男孩的博客 » 【VBA实用案例】给你两个自定义函数，按颜色统计从此不再发愁！
赞赏
微信赞赏
支付宝赞赏