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

Ada_kuang · 发表于 2009-7-29 16:20

学会了，谢谢！

拳头 · 发表于 2009-7-31 14:55

感谢老大分享！非常实用！

excel-hunter · 发表于 2009-7-31 15:51

老大编的这段代码太实用啦！感谢分享！

sky0511 · 发表于 2009-7-31 15:58

Function 颜色计数(参照颜色区 As Range, 计数区 As Range, Optional Bl As Boolean = True) '第三参数决字按单元格背景还是字体色计数
Application.Volatile
Dim cell As Range, Colors, Count
   '如果第三参数是True则按背景色计数，否则按字体色计数
Colors = IIf(Bl, 参照颜色区(1).Interior.Color, 参照颜色区(1).Font.Color)
For Each cell In 计数区 '遍历计数区
      If Bl Then
         If cell.Interior.Color = Colors Then Count = Count + 1 '背景色相同则累加计数器
      Else
         If cell.Font.Color = Colors Then Count = Count + 1 '字体色相同则累加计数器
      End If
Next cell
If Count = 0 Then 颜色计数 = "无此背景色": Exit Function
颜色计数 = Count '将个数赋与函数，成为最终颜色计数结果
End Function

留名

excel-hunter · 发表于 2009-7-31 16:15

原帖由 dongmhyx 于 2009-7-25 21:16 发表

我遇到了同样的问题

需要启用宏呀！

zmr001 · 发表于 2009-7-31 18:39

好得很，希望能用

纤云 · 发表于 2009-8-3 09:57

谢谢楼主提供
下载了
在工作中很实用
谢谢

soren1102 · 发表于 2009-8-3 11:03

谢谢分享，正要解决的问题。

lmd0723 · 发表于 2009-8-6 23:47

学无止尽，收藏

阿尔萨司 · 发表于 2009-8-7 21:42

好贴

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

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

最新热点 /1