[已解决]求助，如何实现按背景色分类求和？

biaobiaow

说明：
主要就想实现对填充背景色的单元格按不同色进行分类求和。

附件如下： 如何实现按背景色求和？.rar (3.77 KB, 下载次数: 27)

2012-3-17 05:28 上传

点击文件名下载附件

不知能否实？还望高手前来帮助，谢谢！

最佳答案

月排行榜 / 总排行榜

TTTTT

2012-3-17 09:54

也搞了一个自定义函数

跳转到最佳答案楼层

hongqiqqq

第一次看到这样的问题，帮你顶一下
期待最佳答案

曹洪峰

不会，还是请高人指点。

zjcat35

函数的话就用宏表函数,定义名称加辅助列
    不然的话就只能用VBA了

bb75308973

VBA 自定义函数
然后表里就可以用这个公式
代码放到VBA的一个模块里,这样整个工作薄都可以用这个函数

1. Function color(rg As Range)
   
2. Dim nrow As Integer, ncolumn As Integer, x As Integer, y As Integer
   
3. Dim arr()
   
4. nrow = rg.Rows.Count: ncolumn = rg.Columns.Count
   
5. If nrow = 1 And ncolumn = 1 Then
   
6. color = rg.Interior.ColorIndex
   
7. Else
   
8. ReDim arr(1 To nrow, 1 To ncolumn)
   
9. For x = 1 To nrow
   
10.     For y = 1 To ncolumn
    
11.     arr(x, y) = rg.Cells(x, y).Interior.ColorIndex
    
12.     Next
    
13. Next
    
14. color = arr
    
15. End If
    
16. End Function

复制代码

下面是计算公式
=SUM($A$1:$D$6*(color($A$1:$D$6)=color($A9)))
CTRL+SHIFT+ENTER,数组公式 ,然后下拉OK了
如何实现按背景色求和？.zip (37.68 KB, 下载次数: 33)

2012-3-17 09:19 上传

点击文件名下载附件

TTTTT

也搞了一个自定义函数

biaobiaow

bb75308973 发表于 2012-3-17 09:19
VBA 自定义函数
然后表里就可以用这个公式
代码放到VBA的一个模块里,这样整个工作薄都可以用这个函数

太谢谢了，又学了一招！

biaobiaow

辛苦了！高手们。
受益匪浅啊，小弟不才，觉得6楼最方便！谢谢6楼，谢谢所有上面的朋友！

谢谢！

小雨饰品