统计单元格颜色数量的自定义函数.doc

《统计单元格颜色数量的自定义函数.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