【Excel2007】解决按字体颜色计数问题
袁怀宾 发表于 2009-11-24 18:32 | 来源： | 阅读 1,018 views
实际情况下我们可能会遇到这样一种情况，就是按照字体的不同颜色进行计数统计等等，目前包括2007版本的excel还没有现成的函数予以支持，所以这个问题处理起来就比较麻烦，目前的想法主要有两种
第一种方法：
使用按照字体颜色排序的功能，将被统计列按照字体颜色进行排序，然后使用辅助列将相同颜色的打上相同的数值，然后针对辅助列使用countif函数予以统计，这是一种取巧的方法
第二种方法：使用宏
alt-f11 ->插入新模块 ->复制代码 ->使用函数即可
Function colorcount(y As Range, rng)
Application.Volatile
Dim c As Double
Dim x As Range
For Each x In rng
If x.Font.ColorIndex = y.Font.ColorIndex Then
c = 1
Else
c = 0
End If
colorcount = colorcount + c
Next x
End Function
我创建模块成功了，使用函数时怎么操作哈！请师傅指点下