【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的编辑界面中点击插入，选择模块，将刚才定义的两个函数粘贴进去，直接将界面关闭即可
自定义函数的使用方法：
参考动画演示就行了
对于大部分没有编程基础的职场人士来说，在学习VBA时往往会有很大的畏难情绪。
想学习VBA的朋友推荐 《人人学点VBA》 这款基础教程：
《人人学点VBA，Excel VBA的基础入门教程》
这个教程看了下还不错，浅显易懂的语言和生动形象的比喻，对Excel中看似复杂的概念和代码，从简单的宏录制、VBA编程环境和基础语法的介绍，到常用对象的操作与控制、执行程序的自动开关—对象的事件、设计自定义的操作界面、调试与优化编写的代码，都进行了形象的介绍。适合那些希望提高工作效率的职场人士，特别是经常需要处理和分析大量数据的用户，也适合财经专业的高校师生阅读。
想学习一整套完整Excel课程的，可以去这里拍：
office软件PPT Word Excel办公教程 入门到精通全套自学视频教学 赠送全套Office软件
赠送全套正版OFFICE软件：Office 2003、2007、2010。 全自动安装、安装过程自动激活、永久使用
转载请注明： 日记男孩的博客 » 【VBA实用案例】给你两个自定义函数，按颜色统计从此不再发愁！
赞赏
微信赞赏
支付宝赞赏
与本文相关的文章
- Excel工作表误删后恢复的方法 误删除的文件怎么恢复正常？
- 分享一组实用的WPS小技巧，一般人我不告诉他！
- Excel 如何筛选出位数不够的行
- excel中怎样删除重复项 怎样删除重复数据
- Excel2010如何批量替换文本颜色
- 批量取消excel中的超链接（超简便）
- 怎么转变Excel表格中英文字母大小写
- Excel如何使用筛选功能进行模糊查询
- 怎样在excel中搜索当前 多个工作表的A列数据中的指定值？
- excel中怎么把生日/ 转换为 生日-的格式？
- Excel教程：3秒，批量取消隐藏工作表！
- Excel 筛选技巧 分享
- Excel 快速跳转 快速选择单元格 快捷键
- Excel 快速使用 选择性粘贴 的快捷键
- Excel表格如何实现鼠标滚轮一次只滚动一行
- 如何快速删除Excel单元格内的空行、换行符
