本文介绍如何按颜色求和与计数函数 。
【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（指定颜色的单元格，统计区域）,

猜你喜欢

• 利用excel宏命令完成财务指标的计算
• Excel下拉选择项怎么设置多选？
• Excel怎么设置筛选条件 Excel怎么按条件筛选
• Excel窗体控件【滚动条】和【微调项】的运用实例教程
• Excel 控件【ActiveX控件】基础教程
• 怎么取消excel中宏安全提示框
• 怎么利用Excel页脚批量设置每页内容？
• 怎么在Excel中将科学记数法转换为x10格式？
• excel2007函数的输入方法详解
• 在excel利用INFO函数获取当前目录和文件夹路径