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)


猜你喜欢
- 本切换而来的,你一定是很念旧情的那个。这四个定是你远行时,鞋里那几粒令你抓狂不以的沙子。尤其是关闭工作簿Excel跟着退出,各种不适应的有木
- 咱们在 操纵WPS演示文稿 停止 一样平常办公时, 常常 需求 建造 林林总总的幻灯片, 凡是也会给幻灯片 傍边的 笔墨 大概图片 增加 各
- 许多win7系统用户都喜欢将手机连接电脑来进行一些操作,可是有时候会碰到一些问题,比如有不少win7系统用户在连接手机的时候,弹出adb.e
- 赛博朋克2077是目前非常火热的游戏,游戏中有着海量的任务系统,其中猎杀任务可以分为三个部分,每个部分都是不同的,那么赛博朋克2077猎杀获
- 最近有用户的chrome浏览器出现了问题,于是将其卸载了,但是重装的时候发现总是安装失败,并出现错误代码0x80070057的提示,对此我们
- 现在很多人都在使用无线鼠标,不过有的小伙伴们会遇到无线鼠标底部灯不亮,遇到这种情况要怎么修复呢?小编来教你,希望有帮助到有需要的小伙伴。无线
- Win11系统有时候需要连接一些外部设备,蓝牙音箱可以随连随用,十分的便捷。那么怎么连接windows11蓝牙音箱呢?今日为你们带来的文章是
- 尽管 Touch Bar 一直被吐槽没有什么实用,但不得不承认,有了它,高级氛围感增强了。比如说, Touch Bar 和歌词的组合就很养眼
- 近来不少升级了Win10 1909的PC用户表示,他们遇到了显卡驱动安装失败、不兼容的情况。值得一提的是,这种情况多数是驱动数字签名导致的!
- 在做业绩统计时,经常要对一列业绩数据进行分档并统计每个档次的个数,如果一个一个进行判断计算,则效率非常低。今天我们来学习频率分布函数 Fre
- win11玩游戏掉帧严重怎么办?很多小伙伴都安装了新的win11系统,但是对于新的win11系统大部分用户很容易出现各种问题,最近就有小伙伴
- PPT该怎样设置背景使幻灯片更美观呢,一起来学习一下吧。首先我们在幻灯片处单击右键,选择【设置背景格式】 在右侧选择选项框,可以选
- Excel中有一项引用(VLOOKUP),这个功能非常强大,对于有相同数据的整理再也不需要复制粘贴这么笨拙的方法了今天,小编就教大家在Exc
- 最近有使用爱普生打印机的用户反映说,爱普生打印机打印时提示错误代码2147500037,无法正常打印,该如何解决这个问题?电脑连接爱普生打印
- 当电脑越来越普及之后,使用win10系统的用户也越来越多,平常遇到的问题也会越来越多,当我们的win10桌面不全屏有黑边时,我们该如何解决这
- 大部分用户在享受音乐的同时,也会使用耳麦进行通话,除了通讯以外,耳麦也常常被用于游戏交流所用,时间长了耳麦会出现故障,或者干脆没有声音,让不
- 一早有人在Windows7优化大师群里面咨询这个问题,他用的是32位的Windows7系统,绿色版(就是硬盘版)的英雄无敌3。这个问题很好解
- 有时我们想要打印字帖,或者标注重点,就需要为为文字加方框突出一下,下面为大家介绍WPS怎么用圆圈圈住文字方法,不会的朋友可以参考本文,来看看
- win11怎么更改盘符?win11系统中默认的磁盘想要换一个名称,该怎么修改磁盘的名称呢?比如把E盘改成F盘,下面我们就来看看Win11系统
- 开篇总要交代一下,DIY大神请忽略:9年前Intel推出了Tick-Tock策略,以两年为一个周期,一年提升工艺,另一年改进架构。凭借着研发