如何利用VBA代码统计相同格式的excel单元格数量
发布时间：2023-07-06 09:08:43
标签：如何,利用,VBA,代码,统计,相同,格式,的,excel
Excel 中经常要做数量统计，比如 COUNT 统计数字单元格，COUNTA 统计非空单元格，COUNTIF 单条件统计等等。那么如果要统计区域中有多少个填充绿色的单元格，有多少个字体为红色的单元格，如何实现呢？
接下来介绍如何通过简单的VBA代码实现自编函数，统计相同填充色和字体颜色的单元格数量。以下代码以填充色和字体色为例（代码稍作修改，还能统计各种格式包括字体加粗/倾斜/字号/边框等的单元格数量）
第一步：单击【开发工具】→【查看代码】→【插入】→【模块】
第二步：输入以下代码（不区分大小写）
※代码含义提示
CountFormat 可自己命名，但不可与系统函数或关键字同名
X和Y分别表示此函数的第1、2个参数
Font.Color 指字体颜色，Interior.Color 指填充颜色
※用户操作
在Excel中输入函数 =CountFormat($A$2:$B$11,$D2)
结果：在A2:B11区域中有多少个单元格的填充色和字体色与D2单元格一样
第1个参数：要统计的区域，例如上图的 A2:B11 区域
第2个参数：指定格式的单元格，例如上图的 D2 单元格
※扩展
有兴趣的同学可以在 IF 代码处增加多个条件，例如字体是否加粗、倾斜、边框、字号等，然后统计出满足这些条件的单元格数量。
0
投稿猜你喜欢
平常编辑好的Word2007文档往往还需要发给别人看或是携带到其它电脑中使用。而在其它电脑中打开word文档时又经常会碰到页面显示效果不同，- 如何给视频文件添加字幕？Arctime是一款可以跨平台使用的字幕创作软件，功能不少、使用也方便。下面我们就来讲讲使用Arctime给视频文件
- Win11是最近发布的操作系统，其中很多方便用户进行操作的功能还没被用户开发出来，我们也需要慢慢使用才能慢慢探索它的新功能，有的用户在问怎么
- 注意看小伙伴下图框中的部分，需要相同字段的不同数据进行合并求和，汇总成一条记录。如何批量来搞定呢？其实有很多方法，这里推荐最快的一种方法，利
- 全新的Win10系统给CMD命令提示符带来一些新功能，新技巧，Windows10的CMD命令提示符能够让用户通过发送指令的方式对系统及软件进
- Win11如何重装系统？随着Win11系统的推出，现在已经有很多用户都下载体验了，但是在使用过程中难免会出现需要重装系统的情况，相信还有不少
- win11高分辨率字体模糊怎么办？有的win11用户发现自己把电脑屏幕设置成高分辨率之后，字体就变得有些模糊了，像这种情况要怎么办呢？很简单
- 新建文件夹时卡死怎么办？有些用户会遇到在新建文件夹的时候系统卡死假死的问题，那么该如何解决呢？本文就给大家介绍电脑新建文件夹时出现卡死假死的
- 在Word里面摄氏度符号怎么打，这下子把人给难住了。平常最多也只是输入些平方米、立方米、直径符号等，这次还真不知道该如何输入这个摄氏度符号了
- VBA代码设置Word表格属性。Dim i As Table， N As IntegerOn Error Resume Next ’忽略错误
- pano2vr怎样做全景图？pano2VR可以将您的全景或360°照片和视频转换为交互式虚拟体验，同时还能将全景图像转换成的QuickTim
- PowerPoint2007在“幻灯片”中新建幻灯片方法PowerPoint20071.在“普通”视图下，在“幻灯片”窗格中单击新幻灯片应接
- 腾讯会议是款当下很受欢迎的线上会议软件，其拥有高清且稳定的画质，可以为用户带来最佳的线上会议体验。近期有用户在使用腾讯会议进行线上会议时，需
- PPT中的图片在制作PPT的过程中已经被修改过，直接导出为图片不能得到原图，一个技巧让你秒速得到PPT中的所有图片。操作步骤：1、将PPT的
- 工作表excel中，如何对单元格内多个数据求和？请看下面方法。方法1、打开数据表格。选中需要求和的区域。2、点击公式。3、点击自动求和。4、
- 最近有用户反映在使用的Win10系统，然后在Win10系统的新通知中提Win10当前版本即将终止服务的信息，这是什么原因呢？该怎么解决呢？这
- 大家在使用电脑的过程中有遇到这样一种情况吗？电脑屏幕上的所有图标都变成英文了，甚至连菜单都变成英文了，这该怎么办？不要着急，下面我们就来一起
- Win10更新Win11会清除数据吗？Win11系统是目前非常火热的操作系统，新版功能发生了很多的变化，很多用户也想升级体验一下。很多小伙伴
- 日前，Intel悄然做出调整，将7代Kaby Lake奔腾桌面处理器（Pentium desktop processors）改名为Penti
- 通过下面的方法，可以将数字设置成比初号还大。方法一：在字号框中设置1、选中需要设置的文字；2、选择开始选项卡，在字号处输入所需要的磅值，如输
