excel实现按指定的单元格颜色进行计数或求和实例教程
发布时间：2022-10-15 12:07:30
如果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)
0
投稿猜你喜欢
如果你的图片中有一些不满意的瑕疵，比如旅游照片中乱入的游客？照片中烦人的水印？想修复多年前的老照片？不必动用庞大ps来兴师动众，只需使用In- 行政通知的企业单位常用的文档之一，通过制作通知模板，既可以提高制作通知的效率，同时也能统一公司通知文档的风格和格式。首先，单击“Micros
- Excel中经常需要使用到表单的功能，表单具体该如何插入呢?下面是由小编分享的excel2003插入表单的教程，以供大家阅读和学习。exce
- 如果Win7系统回收站无法清除文件，我该怎么办？当我们使用计算机时，有时我们会遇到无法清理回收站文件的情况。我们如何解决这个问题？ 以下小编
- Win8系统连接蓝牙鼠标时提示“输入码无效 请在试一次，并且确保可以检测到你的鼠标”。这是因为支持蓝牙的服务运行不正确引起的，下面就来给大家
- 一般我们在办公过程中，需要使用到投影仪设备，将内容投放到大屏幕展示，这个时候需要对微软win10系统进行些设置。那么微软win10如何设置投
- Access中确实具备直接导出Excel的功能，就日常使用来讲，将Access中的表、查询这两种对象导出Excel文件比较常见。首先打开Ac
- 利用Excel对象自带的方法来操作文件是最方便，也是最简单的。我们主要利用Workbooks集合和Workbook对象的方法来操作文件。1、
- 把word文档设置成只读是为了保护文档不被修改，只能阅览的一种模式，而要实现这种功能，有以下两种方法Word 2003设置为“只读”步骤1
- 在下面表中，显示了不同部门的业绩考评结果，现在我们利用rank函数来显示只满足条件的排名情况，即只对1部门的业绩考评结果进行排名。
- 电脑用户最讨厌的就是出现乱码的现象，下面小编就为大家讲解WinXP电脑U盘文件出现乱码的教程，需要的朋友快来试试吧U盘是我们最常使用的存储文
- win7系统如何添加扫描仪？扫描仪可将影像转换为计算机可以显示、编辑、存储和输出的数字格式，经常配合打印机一起使用，那么在win7系统中，要
- 锤子胶囊怎么用？锤子胶囊是一款非常好用的语言软件，锤子胶囊可以将语言转成文字，有些刚下载锤子胶囊的用户，还不知道要怎么用这款软件，下面就给大
- 对于字符串的截取，在Excel日常使用中非常的频繁，也非常的有用，因此，office在新版本更新中也增加了更为便捷的方式。但是可能更多的人，
- ① 选择要设置的单元格区域，单击“数据”选项卡，单击“有效性”命令。② 在弹出的“数据有效性”对话框中，单击“允许”右侧的下拉三角形，选择“
- 我们在使用系统的过程经常会遇到一些不好解决的问题，我们如果无法解决的话可以从网上查找解决方法进行解决，最近有的用户遇到了系统开机显示无信号的
- 我们在使用win10操作系统的时候，大家使用的win10系统版本各有不同。那么这些版本其实在实质上没有很大的区别，主要是各自针对的功能和使用
- Windows 10 November 2019功能更新已经开放下载，在修复诸多BUG和改善后台性能的同时微软也移除了很多过时，或者使用频率
- WPS文档怎么保存？WPS2019如何保留文档 文档若何保留，更新了WPS2019之后，良多老用户暗示不知道该若何利用了，最根基的操作也不知
- excel2016如何制作表格？excel制作表格的步骤毕业生写毕业论文时必须使用excel表格。论文中通常使用三行表格。以三行表格为例。下
