俗话说，生活需要仪式感，而学习，是需要扩展的，在职场，有很多白领丽人都会用到Excel，对于Excel的大部分功能，可能很多人都已经很熟悉

当用到一定程度，就会发现，原来函数公式，这么不人性化，我想弄个按照颜色计数的，可视化函数却不支持，那么多的单元格，一个一个数，来自于歇斯底里的悲愤油然而生，别怕，今天就给大家介绍一种当发现系统自带的函数公式，不够用的时候，如何解决，以颜色求个数为例

领导喜欢的精美图表，很多人都在学

1 打开工作表的代码编辑界面

1. 在Excel工作表名称处，右键选项卡里面有这么一个工具，就是查看代码，代码是什么意思，因为Excel本身是支持VBA的，用代码，就可以对很多函数公式无法实现的功能，重新进行设计

2. 很多WPS可能没有这个查看代码，这里演示的是Excel

2在代码编辑窗口，我们插入模块

1. 这里插入模块的目的，就是为了对全局应用我们写的自定义函数，因为我们的代码，必须写入道模块中，才能后面应用

3 复制代码到模块

1. 双击我们上一步新建的模块，而后就出现了模块的编辑窗口，我们在窗口里面，直接将我们的代码粘贴进去，而后保存即可

4 成品应用效果

1. 当我们保存代码后，返回到工作表界面，像常规公式一样，在编辑栏输入=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/