[原创]：按单元格颜色求和

随缘OK · 发表于 2004-7-5 01:08:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

按单元格颜色求和

dxh · 发表于 2004-7-5 09:54:41

贴个图看看，不然大家怎么下呀，主要是花了钱，怕买不到想要的东东，哈哈

xcajcj · 发表于 2004-7-5 10:24:14

Function C_sum(sCells As Range) As Double
Dim iColor, iTemp As Integer
iColor = [RC].Interior.ColorIndex
Application.Volatile True
For i = 1 To sCells.Count
      With sCells
         If .Cells(i).Interior.ColorIndex = iColor Then
            C_sum = C_sum + .Cells(i)
         End If
      End With
Next
End Function

随缘OK · 发表于 2004-7-5 13:31:04

回个帖子就可以得到1个爱心币呀，下载一个文件不就是1个爱心币吗

dellken · 发表于 2004-7-8 01:39:03

有点意思！支持！

johnjrh · 发表于 2004-7-9 23:59:08

佩服，作者应该是用了VBA嵌上去的吧

围棋 · 发表于 2004-7-17 20:35:01

好东东，我想很有用的，下次我会用到它的。感谢楼主提供。

2008xwd · 发表于 2004-7-18 07:55:42

怎么会出现#VALUE!错误呢?

20042005 · 发表于 2004-7-18 09:28:16

怎么计算不出结果？

随缘OK · 发表于 2004-7-18 16:14:40

2008xwd ：把您的文件穿上来，看看问题出在哪儿
20042005 ：您再重新打开文件试试

2008xwd · 发表于 2004-7-19 19:19:00

我直接下载你的附件,就没有显示计算结果,而是出现#VALUE!错误的.

随缘OK · 发表于 2004-7-19 21:13:19

工具－－选项－－常规－－R1C1引用样式（√）

2008xwd · 发表于 2004-7-19 21:29:03

结果是不正确的。

随缘OK · 发表于 2004-7-19 21:34:20

请问这位朋友，哪个结果不正确

xujipi · 发表于 2004-7-24 14:50:14

这倒是有点意思了。

账号		自动登录	找回密码
密码			立即注册

[原创]：按单元格颜色求和

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子