前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
社区首页 >专栏 >VBA根据单元格底色统计个数

VBA根据单元格底色统计个数

作者头像
xyj
发布2020-07-28 11:20:10
发布2020-07-28 11:20:10
1.1K00
代码可运行
举报
文章被收录于专栏:VBA 学习VBA 学习
运行总次数:0
代码可运行

1、需求:

有1个表格,每一行都标注了不同的底色,现在需要统计各种底色出现的个数:

2、代码实现

要实现这种功能,比较好的方法是把它做成1个Function,然后做成1个加载宏,这样就可以在任意打开的Excel里使用了。

要做这个Function,我们需要传递2个参数:

  • RngSrc:要统计的单元格范围
  • RngCriteria:标有要统计的颜色的单元格

第1个参数肯定是必须的,设置第2个参数的目的是因为,单元格底色所代表的数字我们正常是记不住的,传入1个设置了底色的单元格参数是比较方便的,实现的代码很简单:

代码语言:javascript
代码运行次数:0
运行
复制
'RngSrc         要统计的单元格范围
'RngCriteria    标有要统计的颜色的单元格
Public Function CountColor(RngSrc As Range, RngCriteria As Range) As Long
    Application.Volatile True
    
    Dim lColor As Long
    lColor = RngCriteria.Interior.Color
    Dim rng As Range
    For Each rng In RngSrc
        If rng.Interior.Color = lColor Then
            CountColor = CountColor + 1
        End If
    Next
End Function

如果做成了加载宏的,这个和使用普通的Excel内置函数是没有什么区别的。

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2020-04-27,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 VBA 学习 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档