按颜色求和计数

2背景色:无背景色

2计数:#NAME?#NAME?#NAME?#NAME?

2求和:#NAME?#NAME?#NAME?#NAME?

2

2

2

2

3

2

2

Next icell

End Function

Function SumColor(col As

Dim icell As Range

Application.Volatile

For Each icell In sum

If icell.Interior

SumColor = Ap

End If

Next icell

End Function

EXCEL教学视频下载：http:/

系统安装原文链接：http://

办公软件下载链接：http://

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

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

EXCEL教学视频下载：https://www.360docs.net/doc/bb6478661.html,/30852253/2

系统安装原文链接：https://www.360docs.net/doc/bb6478661.html,/30852253/blog/1394507628办公软件下载链接：https://www.360docs.net/doc/bb6478661.html,/30852253/blog/1385881237