投稿
  1. excel,word,ppt使用教程网首页
  2. Word Excel PPT教程

根据颜色求和与计数，你用了1天，我使用自定义函数1分钟就搞定了

Word Excel PPT爱好者 • • Word Excel PPT教程 • 阅读 67

Hello，今天有粉丝遇到这样的一个问题，就是老板给他很多带有颜色的表格，想让他根据颜色求和以及计数，他一个一个做了很久也没做出来，问我有没有什么简单的方法，当然有了，我们觉得最快捷的方法就是使用vba自定义函数来计算，操作也非常的简单，下面就让我们来一起操作下吧

根据颜色求和与计数，你用了1天，我使用自定义函数1分钟就搞定了插图1

一、代码展示

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的编辑界面中点击插入，选择模块，将刚才定义的两个函数粘贴进去，直接将界面关闭即可

根据颜色求和与计数，你用了1天，我使用自定义函数1分钟就搞定了插图3

三、使用函数

自定义函数与内置函数的使用方法是一摸一样的，我只需输入函数对应的名称，然后填写相应的参数即可

根据颜色求和与计数，你用了1天，我使用自定义函数1分钟就搞定了插图5

怎么样，使用这种方法就统计带颜色的单元格是不是非常的简单呢？

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 2305938578@qq.com 举报，一经查实，本站将立刻删除。本文网址：https://www.excelwordppt.com/word-excel-ppt/6470.html

赞 (0)
Word Excel PPT爱好者Word Excel PPT爱好者
0 0
上一篇 2024年1月13日 pm1:00
下一篇 2024年1月13日 pm1:24

相关推荐

发表评论

登录后才能评论