excel实现按颜色求和与计数函数

excel实现按颜色求和与计数函数

本文介绍如何按颜色求和与计数函数。

1、求相同颜色单元格个数CountColor() FunctionCountColor(colAsRange,countrangeAsRange)AsInteger DimicellAsRange Application.Volatile ForEachicellIncountrange Ificell.Interior.ColorIndex=col.Interior.ColorIndexThen CountColor=CountColor+1 EndIf Nexticell EndFunction 2、求相同颜色单元格数值和SumColor() FunctionSumColor(colAsRange,sumrangeAsRange)AsInteger DimicellAsRange Application.Volatile ForEachicellInsumrange Ificell.Interior.ColorIndex=col.Interior.ColorIndexThen SumColor=Application.Sum(icell)+SumColor EndIf Nexticell EndFunction 具体操作过成是： 1、工具－－宏－－输入宏名CountColor－－创建－－进入vb编辑页面 2、删除所有内容－－将以上代码复制后粘贴到vb编辑页面－－保存为.xla（加载宏文件） 3、输入函数＝CountColor（指定颜色的单元格，统计区域）,

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。