excel实现按颜色求和与计数函数
时间:2017-05-09 09:46来源:Office教程学习网 www.office68.com编辑:麦田守望者
|
本文介绍如何按颜色求和与计数函数。
1、求相同颜色单元格个数CountColor()
Function CountColor(col As Range, countrange As Range) As Integer
Dim icell As Range
Application.Volatile
For Each icell In countrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
CountColor = CountColor + 1
End If
Next icell
End Function
2、求相同颜色单元格数值和SumColor()
Function SumColor(col As Range, sumrange As Range) As Integer
Dim icell As Range
Application.Volatile
For Each icell In sumrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
SumColor = Application.Sum(icell) + SumColor
End If
Next icell
End Function
具体操作过成是：
1、工具－－宏－－输入宏名CountColor－－创建－－进入vb编辑页面
2、删除所有内容－－将以上代码复制后粘贴到vb编辑页面－－保存为.xla（加载宏文件）
3、输入函数＝CountColor（指定颜色的单元格，统计区域）, |
|
------分隔线----------------------------
标签(Tag):
excel
excel2003
excel复制公式
------分隔线----------------------------
