[已解决]如何VBA进行颜色求和？

隐身

一些excel工具上有这功能，就不知道VBA怎么写，谁给个代码看看。
自定义函数，按指定颜色进行求和。

如果是07/10，有颜色筛选就方便了，就是03不方便。

最佳答案

月排行榜 / 总排行榜

zjcat35

2012-4-20 10:42

1. Function Sumcolor(col As Range, sumrange As Range)
   
2.   For Each icell In sumrange
   
3.       If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
   
4.          Sumcolor = icell+ Sumcolor
   
5.       End If
   
6.   Next icell
   
7. End Function

复制代码

跳转到最佳答案楼层

zjcat35

1. Function Sumcolor(col As Range, sumrange As Range)
   
2.   For Each icell In sumrange
   
3.       If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
   
4.          Sumcolor = icell+ Sumcolor
   
5.       End If
   
6.   Next icell
   
7. End Function

复制代码