[已解决]这个东西要加个什么函数才能实现啊(附建筑检验批及保证资料统计管理表)

cy9934303

我在做一个查询函数的时候借用的学良的函数

Function MyStr(Rng As Range, Page As Range, FVal) As String
  Dim SM()
For i = 1 To Rng.Count
  If Rng(i) = FVal Then
   ReDim Preserve SM(s)
  SM(s) = Page(i): s = s + 1
  End If
Next
MyStr = Join(SM, Chr(10))

End Function

其中MYSTR中的三个变量分别指的是： 要查询的数据；要显示的数据；查询的条件。

我吧这个函数用在我自己做的表中了，

但是我还想再查询中加入一个 统计符合条件的函数有多少组

于是我自己根据上面的写了一段：

Function zs(Rng As Range, FVal) As String
 Dim k 
 If FVas.count = 0 Then
     zs = ""
 Else
 For i = 1 To Rng.Count
     If Rng(i) = FVal Then
        k = k + 1
     End If
 Next
     zs = k
End If
End Function

在这个里面FVas.count 是值得统计所选区域单元格的个数有多少，而不是类似于count（）这个检查所选区域里是否是空值的函数

所以请大侠们帮我看看这里要用什么函数啊？是不是类似于count（）这个函数的函数啊

下面是我做的这个表格，搞建筑的资料员可以用得到

[ ide] xXehMxUK.rar (303.98 KB, 下载次数: 15)

2009-11-28 23:24 上传

点击文件名下载附件
请VBA大侠帮菜鸟看看这个东西要加个什么函数才能实现啊(附建筑检验批及保证资料统计管理表)

 

[/hide]

[此贴子已经被作者于2009-11-29 0:30:57编辑过]

最佳答案

月排行榜 / 总排行榜

雨狐

2009-11-28 23:10

看了一下，估计是countif的自定义版本

Function zs(Rng As Range, FVal) As String
 Dim k%, i%
 If Rng.Count = 0 Then '这里应该改一下
     zs = ""
 Else
 For i = 1 To Rng.Count
     If Rng(i) = FVal Then
        k = k + 1
     End If
 Next
     zs = k
End If
End Function

如果是这样的，直接用countif不是更省事[em01]

跳转到最佳答案楼层

雨狐

看了一下，估计是countif的自定义版本

Function zs(Rng As Range, FVal) As String
 Dim k%, i%
 If Rng.Count = 0 Then '这里应该改一下
     zs = ""
 Else
 For i = 1 To Rng.Count
     If Rng(i) = FVal Then
        k = k + 1
     End If
 Next
     zs = k
End If
End Function

如果是这样的，直接用countif不是更省事[em01]

terryzhc

刚好我是资料员。。

cy9934303

这表我又做了改动，我根据我实际需要在不停的变化在

cy9934303

你说的改下的那个地方是改什么啊

zwb1982

我也是资料员，一定能用得到

tzyweb

谢谢楼主分享,看哈子啊

wearthyl

看看
是不要是好东西啊

稚男

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。