excel按指定的单元格颜色进行计数或求和
发布时间:2023-04-04 12:52:13
如果Excel工作表的某区域中包含不同的底纹颜色,我们可以用一个自定义函数对该区域按指定的单元格颜色进行计数或求和。方法是:
1.按Alt+F11,打开VBA编辑器。
2.单击菜单“插入→模块”,将插入名称为“模块1”的模块,在右侧的代码窗口中输入下列代码:
Function SumByColor(Ref_color As Range, Sum_range As Range)
Application.Volatile
Dim iCol As Integer
Dim rCell As Range
iCol = Ref_color.Interior.ColorIndex
For Each rCell In Sum_range
If iCol = rCell.Interior.ColorIndex Then
SumByColor = SumByColor + rCell.Value
End If
Next rCell
End Function
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
上述两个自定义函数,一个是SumByColor,可以对区域按指定单元格的颜色求和。另一个是CountByColor,可以统计区域中某种颜色的个数。这两个自定义函数都有两个参数,前一个参数指定包含某种颜色的单元格,后一个参数为求和或计数区域。 3.关闭VBA编辑器。 使用方法:假如要求和或计数的区域在A1:B10区域中。 求出该区域中单元格底纹颜色为红色的所有单元格数值之和,在单元格中输入公式: =sumByColor(A1,A1:B10) 求出该区域中单元格底纹颜色为红色的所有单元格的个数,在单元格中输入公式:
=CountByColor(A1,A1:B10)
猜你喜欢
- 我们在word文档中插入文本框,形状,图片等内容后,可以根据自己的实际需要设置三维旋转。比如我们可以为文本框设置平行旋转,角度旋转,倾斜旋转
- Excel中的斜线具体该如何输入呢?下面是由小编分享的excel2003中输入斜线的方法,以供大家阅读和学习。excel2003中输入斜线的
- 映像效果差不多就如同我们生活中常见的倒影,景物在水面形成倒立的虚线,远远看去连成一片整体,非常的美。那么具体要怎么设置呢?下面小编马上就告诉
- Word程序是制作word文档的工具,Word程序可以生成桌面快捷方式,也可以删除桌面快捷方式。区别Word程序的图标与word文档的图标不
- 一、文件操作1、为excel文件添加打开密码文件 – 信息 – 保护工作簿 – 用密码进行加密。2、为文件添加作者信息在该excel文件图标
- Excel表格内容填错怎么办结果拿到的却是这样的…… 你只能伏案工作,把不正确的改正,不清楚的还要各种连续一个一个
- 在打印excel文件信息的时候,往往由于excel内容中底纹会存在很多颜色和信息,所以往往需要打印的时候,进行去除,那么如何做到呢?今天,小
- WPS的功能十分强大,灵活使用这些技巧不仅可以提高我们的工作效率,对我们的日常生活也很有帮助。今天给大家分享一下如何使用PPT打印证件照,学
- Excel中具体该如何在图中加文字呢?接下来是小编为大家带来的excel2003在图中加字的方法,供大家参考。excel2003在图中加字的
- 今日凌晨,苹果向 iPhone 用户推送了 iOS 16.2 开发者预览版 Beta 3 更新!iOS 16.2 Bet
- 一、选择题,共60分(每题2分)。1、在打印文档之前可以预览,以下命令中正确的是( )A、选择文件菜单中的打印预览命令B、单击常用工具栏中的
- FinePrint是一款专业的打印增强软件,使用FinePrint可以实现双面打印Word文档。完成FinePrint的安装后会添加一台名为
- 我们常在excel公式里面看见双引号。对于初识excel的同学来说,可能会有些模糊。双引号在excel公式中无处不在,我们有必要了解它的用法
- Office 2013破解过程其实很简单,我们在教程将介绍Office 2013的安装过程和使用激活工具的方法,以此来破解Office,主要
- 本文介绍Microsoft Excel中REPT函数的语法和用法。REPT函数适用于:Excel2003、Excel2007、Excel20
- 使用win7系统的话用户们要怎么解除引用账户锁定,这个问题很多用户不知道要怎么操作,有的用户可能第一次经历过这个问题,所以不知道要怎么解决,
- Word 安全模式启动,点击“开始”在搜索栏中输入winword /safe并回车,测试问题是否依然存在?选择“Office按钮”—“wor
- 从2020年1月14日起,微软宣布正式停止对win7系统的支持,那么win7系统的安全补丁和升级就不会发生。而且,继续使用win7系统将大大
- 乱码是我们在使用win10电脑记事本经常出现的问题,这种问题比较讨厌,但解决起来并不难。只要弄懂乱码的原理,我们很快就能恢复过来的,那这个问
- Excel 2007提供了许多内置数字格式,但如果这些格式无法满足您的需要,您可以自定义内置数字格式以便创建自己的数字格式。创建自定义数字格