[已解决]请教有关统计的自定义函数

yizhih

请教有关统计的自定义函数。谢谢！
请教有关统计的自定义函数.rar (6.69 KB, 下载次数: 8)

2016-7-5 12:09 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

ghostjiao

2016-7-5 13:20

1. Function myCountif(rng As Range, criteria As Variant)
   
2.     Dim rg As Range
   
3.     For Each rg In rng
   
4.         If rg.EntireRow.Hidden = False Then
   
5.             If rg.Value = criteria Then
   
6.                 myCountif = myCountif + 1
   
7.             End If
   
8.         End If
   
9.     Next
   
10. End Function

复制代码

dddddd

跳转到最佳答案楼层

ghostjiao

1. Function myCountif(rng As Range, criteria As Variant)
   
2.     Dim rg As Range
   
3.     For Each rg In rng
   
4.         If rg.EntireRow.Hidden = False Then
   
5.             If rg.Value = criteria Then
   
6.                 myCountif = myCountif + 1
   
7.             End If
   
8.         End If
   
9.     Next
   
10. End Function

复制代码

dddddd

yizhih

ghostjiao 发表于 2016-7-5 13:20
dddddd

非常感谢您，函数写的非常棒！