[原创]按颜色进行条件求和（自定义函数）

糖僧

感谢楼主分享，高手啊！

yoka

感谢andysky版主分享

zhujunyun

luo159老大,能不能在你那些代码的每句后面加个注解,我看不懂.谢谢.

luo159

QUOTE:

以下是引用zhujunyun在2008-2-11 17:07:48的发言：
luo159老大,能不能在你那些代码的每句后面加个注解,我看不懂.谢谢.

问楼主本人吧

最好的办法还是自己学VBA

zhujunyun

通过感兴趣的实例可以学得更快,说实话,我学了几回了,每次看不了几分钟就想睡觉了.唉.....

wzx0935

QUOTE:

以下是引用水冰清在2008-2-6 11:19:45的发言：

按颜色进行条件合和的自定义函数大多是用背景色做为条件

但是我个人在使用进程中总觉得受到条件格式所产生的颜色的干扰

如果是按字体颜色来作为条件,也许更好!

Function SumByFontColour(rngSum As Range, varColour As Variant) As Variant

Dim rngCell As Range

For Each rngCell In rngSum.Cells
If rngCell.Font.ColorIndex = varColour Then
SumByFontColour = SumByFontColour + rngCell.Value
End If
Next rngCell

End Function

wzx0935

QUOTE:

以下是引用水冰清在2008-2-6 11:19:45的发言：

按颜色进行条件合和的自定义函数大多是用背景色做为条件

但是我个人在使用进程中总觉得受到条件格式所产生的颜色的干扰

如果是按字体颜色来作为条件,也许更好!

Function SumByFontColour(rngSum As Range, varColour As Variant) As Variant

Dim rngCell As Range

For Each rngCell In rngSum.Cells
If rngCell.Font.ColorIndex = varColour Then
SumByFontColour = SumByFontColour + rngCell.Value
End If
Next rngCell

End Function

andysky

QUOTE:

以下是引用wzx0935在2008-5-15 22:17:42的发言：

Function SumByFontColour(rngSum As Range, varColour As Variant) As Variant

Dim rngCell As Range

For Each rngCell In rngSum.Cells
If rngCell.Font.ColorIndex = varColour Then
SumByFontColour = SumByFontColour + rngCell.Value
End If
Next rngCell

End Function

1.想要程序通用，就不要用ColorIndex，它可能会产生错误结果

2.第二参数不能这样用。这会给用户带来操作上的不便。因为大多数用户不知道颜色代码。例如红色用哪一个数字来表示。

funfunlai

非常有用

zz5151353

多謝ANDYSKY版主提供分享 !!!
[em23][em23][em23]
[em24][em24][em24]
[em27][em27][em27]