按颜色求和及单元格个数(自定义)函数

yfox · 发表于 2005-3-29 10:48

我知道怎么做了,谢谢大家,

实在是太感谢了!!!

yhhou123 · 发表于 2005-3-29 15:15

好贴呀，解决了困扰我许久的一个疑问~~~，TKS

趙雲 · 发表于 2005-4-4 09:33

谢谢版主,前几天一直在为这个问题犯愁呢...VBA又不会.....谢谢了

Bellen · 发表于 2005-4-4 12:06

正需要这个东西。

csi · 发表于 2005-4-6 00:52

以下是引用gvntw在2005-2-8 15:21:00的发言：
给大家拜年了！并奉上自己做的根据单元格颜色汇总求和及求个数的自定义函数。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.Calculate End Sub 我在sheet1的Worksheet_SelectionChange事件中加了Application.Calculate代码，改变单元格输入值后，回车或选中其他单元格，函数计算结果会相应改变，无需按F9,您是否可以进一步修改这两个函数。谢！

[此贴子已经被作者于2005-4-7 20:49:44编辑过]

gvntw · 发表于 2005-4-9 00:17

TO csi ：

加入Calculate就OK了，可以不用Application。

[此贴子已经被作者于2005-4-9 0:17:57编辑过]

yhcyd · 发表于 2005-4-9 16:16

按字体颜色计数没有这么简单吧？

anniewoo · 发表于 2005-4-24 22:51

以下是引用gvntw在2005-4-9 0:17:00的发言：
TO csi ：

加入Calculate就OK了，可以不用Application。

按单元格填充颜色计数求和很好用啊，多谢！！

请教一下，按文字颜色是否有类似方法呢？

qbggg · 发表于 2005-4-25 09:04

真的很有用，支持

gvntw · 发表于 2005-4-25 18:07

以下是引用anniewoo在2005-4-24 22:51:00的发言：

按单元格填充颜色计数求和很好用啊，多谢！！

请教一下，按文字颜色是否有类似方法呢？
以下是引用yhcyd在2005-4-9 16:16:00 的发言：按字体颜色计数没有这么简单吧？

把icell.Interior.ColorIndex改为icell.Font.ColorIndex就行了。

		自动登录	找回密码
密码			免费注册

[分享] 按颜色求和及单元格个数(自定义)函数