如何在excel中实现按单元格背景颜色求和或计数

如何在excel中实现按单元格背景颜色求和或计数

ID:20249161

大小:313.00 KB

页数:4页

时间:2018-10-11

如何在excel中实现按单元格背景颜色求和或计数_第1页
如何在excel中实现按单元格背景颜色求和或计数_第2页
如何在excel中实现按单元格背景颜色求和或计数_第3页
如何在excel中实现按单元格背景颜色求和或计数_第4页
资源描述:

《如何在excel中实现按单元格背景颜色求和或计数》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、EXCEL进阶如何在EXCEL中实现按单元格背景颜色求和或计数我们在EXCEL工作表中,如果要对多个单元格的数值进行求和,一般都会用到SUM函数,SUM函数的计算结果可以根据各个对象单元格数值的变化而发生变化,满足了大多数EXCLE用户的需求。但是,在SUM函数中,当被求和单元格的位置发生变化时,SUM函数是无法进行自动求和的,这就需要用到SUMCOLOR函数,它能根据单元格的背景颜色进行求和,无论是单元格的位置发生了变化还是单元格数值发生变化,只要被求和单元格的背景颜色一致,SUMCOLOR函数都可

2、以实现对她们的求和。如果要对相同颜色单元格进行计数,也可以运用COUNTCOLOR函数实现。可是,EXCLE本身并没有这两项功能,我们必须要通过宏与VBA才能实现,方法很简单,以EXCEL2003为例:首先,打开你的EXCEL2003工作表,点工具--宏--VisualBasic编辑器,得到以下界面:在界面左上角Sheet1点右键--插入--模块,打开以下编辑界面:然后在打开的编辑框中输入以下代码:(有需要的朋友可以找作者索取此代码直接粘贴即可)FunctionCountColor(colAsRang

3、e,countrangeAsRange)AsInteger   DimicellAsRange   Application.Volatile   ForEachicellIncountrange       Ificell.Interior.ColorIndex=col.Interior.ColorIndexThen           CountColor=CountColor+1       EndIf   NexticellEndFunctionFunctionSumColor(colAsRan

4、ge,sumrangeAsRange)AsInteger   DimicellAsRange   Application.Volatile   ForEachicellInsumrange       Ificell.Interior.ColorIndex=col.Interior.ColorIndexThen           SumColor=Application.Sum(icell)+SumColor       EndIf   NexticellEndFunction然后关闭此界面,返回到

5、工作表。点击工具--宏--安全性--安全级--低--确定。保存并关闭工作表,再打开工作表就可以使用SUMCOLOR和COUNTCOLOR函数了。现在我们再来根据单元格的背景颜色进行求和与计数,方法如下:按颜色求和公式为:sumcolor(颜色示列格,求和区域或列);按颜色计数公式为:countcolor(颜色示列格,求和区域或列)。如下图,要对A1到A11这个区域内的蓝色格进行求和,在E1单元格中编辑公式=sumcolor(D1,$A$1:$A$11);要对A1到A11这个区域内的蓝色格进行计数,在E

6、6单元格中编辑公式=countcolor(D6,$A$1:$A$11),一定要在半角模式下编辑公式哦!如果A1到A11这个区域内单元格背景颜色发生变化,只需双击E1单元格,再按回车键,E列单元格中的数值就会随着颜色的改变而变化过来。如下图:请注意,只有在EXCEL表中对宏进行设置之后,才能使用SUMCOLOR和COUNTCOLOR函数,如果不做任何宏设置,直接输入这两个函数,EXCEL是无法识别的。希望能够帮助到对这方面有需求的同事们!芜湖购物人力资源部方琴2012-7-17

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。