按照背景颜色求个数,EXCEL函数公式投降了,多亏这种方法 图文

2019年8月13日21:18:56按照背景颜色求个数,EXCEL函数公式投降了,多亏这种方法 图文已关闭评论 2,869 views
微信公众号 【EXCEL880】 QQ群【341401932】
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com

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

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

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

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

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

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

按照背景颜色求个数,Excel函数公式投降了,多亏这种方法

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

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

按照背景颜色求个数,Excel函数公式投降了,多亏这种方法

3 复制代码到模块

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

按照背景颜色求个数,Excel函数公式投降了,多亏这种方法

4 成品应用效果

  1. 当我们保存代码后,返回到工作表界面,像常规公式一样,在编辑栏输入=cun,只要输入一般,我们新建的自定义函数,就是直接跳转出来,应用即可,这样当我们删除或是添加单元格颜色后,就会自动更新

按照背景颜色求个数,Excel函数公式投降了,多亏这种方法

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/

表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页