欢迎来到天天文库
浏览记录
ID:56718941
大小:69.00 KB
页数:1页
时间:2020-07-06
《统计单元格颜色数量的自定义函数.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、统计单元格颜色的函数:用VBA创建一个新模块,定义CountColour(x,y)X=所要统计的颜色所在单元格y=统计的区域以下为函数部分:FunctionCountColour(xRAsRange,yRAsRange)ForEachiInyRv=i.Interior.ColorIndexIfv=xR.Interior.ColorIndexThenCountColour=CountColour+1EndIfNextEndFunction用EXCEL来根据单元格的颜色来计数和求和步骤1:打开你的excel;步骤2:按Alt+F11键步骤3:Visua
2、lBasic编辑器菜单栏:插入-模块步骤4:粘贴下面这段函数FunctionCountcolor(colAsRange,countrangeAsRange)DimicellAsRangeApplication.VolatileForEachicellIncountrangeIficell.Interior.ColorIndex=col.Interior.ColorIndexThenCountcolor=Countcolor+1EndIfNexticellEndFunction步骤5:关闭VisualBasic编辑器。使用函数countcolor统计
3、单元格数量,其格式为:countcolor(所要统计的颜色所在单元格,统计的区域)注:括号内为参数,下同。使用函数sumcolor来求和(所要统计的颜色所在单元格,统计的区域)///若是字体颜色FunctionSumfontcolor(colAsRange,sumrangeAsRange)DimicellAsRangeApplication.VolatileForEachicellInsumrangeIficell.Font.ColorIndex=col.Font.ColorIndexThenSumfontcolor=Application.Sum
4、(icell)+SumfontcolorEndIfNexticellEndFunction
此文档下载收益归作者所有