俗话说，生活需要仪式感，而学习，是需要扩展的，在职场，有很多白领丽人都会用到Excel，对于Excel的大部分功能，可能很多人都已经很熟悉
当用到一定程度，就会发现，原来函数公式，这么不人性化，我想弄个按照颜色计数的，可视化函数却不支持，那么多的单元格，一个一个数，来自于歇斯底里的悲愤油然而生，别怕，今天就给大家介绍一种当发现系统自带的函数公式，不够用的时候，如何解决，以颜色求个数为例
领导喜欢的精美图表，很多人都在学
1 打开工作表的代码编辑界面
-
在Excel工作表名称处，右键选项卡里面有这么一个工具，就是查看代码，代码是什么意思，因为Excel本身是支持VBA的，用代码，就可以对很多函数公式无法实现的功能，重新进行设计
-
很多WPS可能没有这个查看代码，这里演示的是Excel
2在代码编辑窗口，我们插入模块
-
这里插入模块的目的，就是为了对全局应用我们写的自定义函数，因为我们的代码，必须写入道模块中，才能后面应用
3 复制代码到模块
-
双击我们上一步新建的模块，而后就出现了模块的编辑窗口，我们在窗口里面，直接将我们的代码粘贴进去，而后保存即可
4 成品应用效果
-
当我们保存代码后，返回到工作表界面，像常规公式一样，在编辑栏输入=cun，只要输入一般，我们新建的自定义函数，就是直接跳转出来，应用即可，这样当我们删除或是添加单元格颜色后，就会自动更新
5
Function CountByColor(Ref_color As Range, CountRange As Range) Application.Volatile Dim iCol As Integer Dim rCell As Range iCol = Ref_color.Interior.ColorIndex For Each rCell In CountRange If iCol = rCell.Interior.ColorIndex Then CountByColor = CountByColor + 1 End If Next rCell End Function
说了这么多，职场的你学会了吗？如有不明白的，欢迎评论区讨论，关注我
本文已取得今日头条原作者【老余Excel】授权 禁止转载 原文链接为https://www.toutiao.com/item/6708935402792681987/
