最新消息:

【VBA实用案例】给你两个自定义函数,按颜色统计从此不再发愁!

Excel admin 342浏览 0评论

废话不说了,直接上代码。

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实用案例】给你两个自定义函数,按颜色统计从此不再发愁!

发表我的评论
取消评论

表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址