Excel中_按单元格颜色求和的实现
需积分: 42 153 浏览量
2011-12-07
00:02:07
上传
评论
收藏 20KB DOCX 举报
在 excel2003 中按单元格背景颜色求和
2008-11-22 15:13
今天应一网友要求：按颜色求和，在网上一查还真找到了这一方法，经过测试
(在 Excel2003 和 2007 中)，非常好用，整理出来，与大家分享：
Excel 本身没有这个功能，可用以下办法实现：
打开你的工作表：点工具--宏--Visual Basic 编辑器，在左边最上一行点右键--
插入--模块，然后在打开的编辑框中粘贴以下代码：
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
然后关闭，反回到工作表，点击--工具-选项--安全性--宏安全性--安全级选--
低--确定
保存关闭工作表，然后再打开，这时就可以用了
用法：
按颜色求和：sumcolor（颜色示列格，求和区域或列）；按颜色计数：
评论0
最新资源