作者：绿色风
分类：
时间：2022-08-17
浏览：98
楼主
BIN_YANG168 |
Q：怎样用自定义函数按单元格颜色求和、计数函数
A：按Alt+F11，插入→模块→在VBE窗口中输入以下代码：
- Function colorsum(y As Range, rng, z As Integer)
- Application.Volatile
- Dim c As Double
- Dim x As Range
- colorsum = 0
- For Each x In rng
- If x.Interior.ColorIndex = y.Interior.ColorIndex Then
- c = x.Offset(0, z).Value
- Else
- c = 0
- End If
- colorsum = colorsum + c
- Next x
- End Function
- Function colorcount(y As Range, rng)
- Application.Volatile
- Dim c As Double
- Dim x As Range
- For Each x In rng
- If x.Interior.ColorIndex = y.Interior.ColorIndex Then
- c = 1
- Else
- c = 0
- End If
- colorcount = colorcount + c
- Next x
- End Function
说明：
colorsum（符合条件颜色求和）：
=colorsum(引用单元格，引用区域，相对列数)
colorcount（符合颜色条件记数）：
=colorsum(引用单元格，引用区域)
 按单元格颜色求和、计数函数.rar
|
2楼
yncxxmj |
一个非常实用的技术。 |
3楼
omnw |
 |
4楼
ITALENTBOY |
很好的技术啊！谢了。 |
5楼
强业 |
好东西啊！ |
6楼
magicweimu |
我要怎样下载呀 |
7楼
安娜蜜 |
领走咯~备着以后用，谢谢啦 |
8楼
cool冷酷到底 |
感谢楼主分享！ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一