[已解决]自定函数统计个数

excelpxfans001

统计有颜色单元格数据个数。

最佳答案

月排行榜 / 总排行榜

excel助手

2016-1-8 14:10

Public Function tt(rng As Range, txt As String)
Dim c As Range
tt = 0
For Each c In rng
    If c.Interior.Color = 255 And c = txt Then tt = tt + 1
Next c
End Function
统计颜色单元格中数据个数.zip (15.36 KB, 下载次数: 8)

2016-1-8 14:10 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Function tt(rng As Range, char) As Integer
    Dim x
    For Each x In rng
        If x = char And x.Interior.ColorIndex = xlNone Then tt = tt + 1
    Next
End Function

excel助手

Public Function tt(rng As Range, txt As String)
Dim c As Range
tt = 0
For Each c In rng
    If c.Interior.Color = 255 And c = txt Then tt = tt + 1
Next c
End Function
统计颜色单元格中数据个数.zip (15.36 KB, 下载次数: 8)

2016-1-8 14:10 上传

点击文件名下载附件