项目:如何统计标记黄色的项目数量

作者: ladeng6666 分类: Excel 发布时间: 2019-06-24 23:23 阅读: 28,415

今日学习目标

快速解决按照颜色计数的问题

在讲Excel的时候,我经常强调表格设计的重要性。

表格中的信息,一定要尽量保存到单元格中,用具体的数值、文本来记录信息。

一切麻烦的表格,都是不懂表格设计,自己给自己挖的坑。

比如下面这个表格:

黄色单元格,代表信息有误

我们的项目经理,对项目的每个环节,都做了详细的标记;「黄色」代表信息记录是有误的。

现在他的困扰是:

如何根据标记颜色,快速统计出每行错误的数量?

现在是手动数的,这个表一做就是一下午。

你说这不是造吗?如果…不就…

算了,事情都发生了,我们还是想想怎么帮他解决掉吧!

1- 问题描述

问题是非常简单的,就是按照颜色统计数量。

但是本质上,这个是一个记录不规范的问题,黄色实际代表的是一个字段名为「项目是否错误」的数据。。。bala bala。。。

2- 原因分析

我还是忍不住,要说一下:这个需求很简单,为什么不好统计呢?

原因有两个:

1- 非数值类数据

黄色本质上就是一个字段名为「项目是否错误」的数据,如果表格中有这样一列数据,那么直接用CountIf就可以轻松搞定了。

2- 没有CountByColor的函数

最主要的原因,其实就是因为Excel中没有根据颜色求和的函数。

既然没有,那我们就创造一个,名字就叫CountByColor函数,一个公式搞定这个难题。

接下来我们看看,这个CountByColor具体是怎么弄出来的。

3- 解决方法

在Excel中创造函数,就必须得用VBA了。

不懂没关系,下面是操作步骤,跟着做就好了。

1- 手写一个CountByColor函数

1- 打开VBE编辑器

在工作表上,点击右键,选择「查看代码」

2- 粘贴代码

在左边的项目管理器中,右键新建一个「模块」。

然后粘贴下面的代码。

Function CountByColor(ByVal countRange As Range, ByVal colorCell As Range)
Dim color As Long, result As Integer
color = colorCell.Interior.color
result = 0
For Each cel In countRange
If cel.Interior.color = color Then
result = result + 1
End If
Next
countByColor = result
End Function

这样,自定义的CountByColor函数就设计好了。函数的结构大概是这样的

CountByColor(countRange , colorCell)

1- countRange,要计数的单元格区域。

2- colorCell,要统计的颜色,选择有相同颜色的单元格即可。

接下来就是回到表格中,使用这个函数了。

2- 使用CountByColor统计

在公式中使用CountByColor函数,进行计数

4-总结

先给我3秒钟回味一下:CountByColor函数,真香!

用VBA自定义函数,简直像一扇女浴室大门,让我大开眼界。

想象一下,有了自定义公式,还能干什么?

一个公式提取中文

一个公式提取数字

一个公式计算时间

你猜对了,这些公式,我都给大家准备好了,而且都打包到了一起,我给他们起了一个很可爱的名字「公式Plus」,点击下面图片,了解详情。

后台回复「颜色计数」获取案例文件,自己动手练习一下

5- 聊5毛钱

今天的课,就到这里。

配合老师互动一下可以吗?

除了用颜色标记,你还想拥有哪些「一个公式搞定」的功能?

不要冷场,千万不要冷场啊!

评论区见!

我是拉小登,一个会设计表格的Excel老师

= = 推荐文章 = =

【公式Plus】P_KAOQIN,考勤计算不用写那么多IF函数了

【公式Plus】P_TIMEDIF,轻松计算时间差

【公式Plus】P_JIABAN,一个公式搞定加班统计

【公式Plus】用LEFT、MID函数截取字符,真的很low

公式plus开源,VBA还可以这么玩

【公式Plus】P_RMB 数字转中文大写金额

【公式Plus】汉字转拼音,提取首字母,统统满足你

【公式Plus】用VLOOKUP提取手机号,太搞笑了

【公式Plus】P_INDEX,搞定不连续取值

【公式Plus】P_ROW,史上最不厉害的公式

【公式Plus】函数帮助速查

【公式Plus】如何使用公式Plus

如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!

发表评论

电子邮件地址不会被公开。 必填项已用*标注