欢迎来到天天文库
浏览记录
ID:34722930
大小:72.68 KB
页数:6页
时间:2019-03-10
《excel中按单元格颜色求和的实现》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、在excel2003中按单元格背景颜色求和2008-11-2215:13今天应一网友要求:按颜色求和,在网上一查还真找到了这一方法,经过测试(在Excel2003和2007中),非常好用,整理出来,与大家分享:Excel本身没有这个功能,可用以下办法实现:打开你的工作表:点工具--宏--VisualBasic编辑器,在左边最上一行点右键--插入--模块,然后在打开的编辑框中粘贴以下代码:FunctionCountColor(colAsRange,countrangeAsRange)AsInteger Dimicell
2、AsRange Application.Volatile ForEachicellIncountrange Ificell.Interior.ColorIndex=col.Interior.ColorIndexThen CountColor=CountColor+1 EndIf NexticellEndFunctionFunctionSumColor(colAsRange,sumrangeAsRange)AsInteger DimicellAsRange A
3、pplication.Volatile ForEachicellInsumrange Ificell.Interior.ColorIndex=col.Interior.ColorIndexThen SumColor=Application.Sum(icell)+SumColor EndIf NexticellEndFunction然后关闭,反回到工作表,点击--工具-选项--安全性--宏安全性--安全级选--低--确定保存关闭工作表,然后再打开,这时就可以用了用法:按颜
4、色求和:sumcolor(颜色示列格,求和区域或列);按颜色计数:countcolor(颜色示列格,求和区域或列)例如:要求和从a1到a10这个区域内的红色格,=sumcolor($a$1,$a$1:$A$10)计数:countcolor($a$1,$a$1:$A$10)注意:$a$1必须是红色格,这是定义颜色的,你也可以设成其它格,但必须是你要求和的颜色ok!有问题可以留言。在excel2007中按单元格背景颜色求和一、在“开发工具”选项卡的“代码”组中,单击“宏安全性”。 提示 如果未显示“开发工具”选项卡,请单
5、击“Office按钮”,单击“Excel选项”,然后在“常用”类别中的“使用Excel时采用的首选项”下单击“在功能区显示‘开发工具’选项卡”。二、在“宏设置”类别中的“宏设置”下,单击所需的选项。打开要进行分背景颜色计算的工作簿,点击开发工具---VISUALBASIC—插入—模块—复制以下内容FunctionSumColor(colAsRange,sumrangeAsRange)AsInteger DimicellAsRange Application.Volatile ForEachicellInsum
6、range Ificell.Interior.ColorIndex=col.Interior.ColorIndexThen SumColor=Application.Sum(icell)+SumColor EndIf NexticellEndFunction到打开的模块范围内,即会自动产生SUMCOLOR()函数;然后点击该VB的窗口保存图标---会显示“另存为”窗,在保存类型选项选择“excel启用宏的工作簿”,保存即可---在该工作簿中建立数据表格,在点击要放汇总的单元
7、格—公式—f(x)函数—选择类别--全部—即会在下拉中看到sumcolor()函数---格式为sumcolor(操作颜色示例单元格例如A12,求和范围例B13:B78)---按出现的顺序操作即可。操作颜色示例单元格最好在图表旁边另建(颜色模板),防止因数据表中颜色调整而影响到计算结果;此处颜色不是字体颜色,而是背景颜色。建完后要进行保存,最好也保存为“excel启用宏的工作簿”。另外应将宏安全级别降低或改为提醒:开发工具—宏安全--选择禁用所有宏,并发出通知或者启用所有宏(不推荐)关于countcolor()和sumco
8、lor()的变更求助按填充颜色或字体颜色求和及计数自定义函数语法:Countcolor(countrange,colorrange,fontorinterior)Sumcolor(countrange,colorrange,fontorinterior)countrange:要计算的单元格区域colorrange:要
此文档下载收益归作者所有