按单元格颜色汇总实例

xinbao · 发表于 2004-8-4 08:37:00

Good!, Download!!

djkl3 · 发表于 2004-9-2 02:07:00

能作一下说明吗？

wbjjzhu · 发表于 2005-1-3 23:26:00

我在win98，Excle2002中打开文件计算错误：!VALUE

yongliangw · 发表于 2005-5-15 03:17:00

有这个函数吗，为什么换了一台电脑就变样了

红池坝 · 发表于 2005-5-15 04:20:00

看了一下代码，应该正确执行，可在我这里同样显示错误，我的系统是WinXP＋Excel2003。

没有发现问题所在

wtusever · 发表于 2005-5-24 02:00:00

#value!

醒虎 · 发表于 2005-6-26 20:38:00

无色（或称白色）单元格的数字怎么没有合计呢？

晓月清风 · 发表于 2005-6-26 21:57:00

Dim iColor, iTemp As Integer '不知道定义iTemp有何用?

With sCells

If .Cells(i).Interior.ColorIndex = iColor Then

'应该是在这一句出错吧：使用了单元格的数值的底色，应该是单元格的底色

晓月清风 · 发表于 2005-6-26 22:27:00

Function C_sum(ref As Range, rng)

'这是我根据楼主的思路所改写的函数

'参数REF：任一单元格作为引用单元格

'参数RNG：计算范围

'格式：=C_sum(A1,A1:A10)  计算出在A1：A10之间底色与单元格A1相同的单元格的数值总和

      Application.Volatile

      Dim num As Double, xcell As Range

      C_sum = 0

      For Each xcell In rng

         If xcell.Interior.ColorIndex = ref.Interior.ColorIndex Then

            num = xcell.Value

         Else

            num = 0

         End If

         C_sum = C_sum + num

      Next xcell

End Function

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)
Excel VBA (122204306)

主题相关群

地区相关群[您还没设置居住地]

按单元格颜色汇总实例

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)