自定义函数代码里指定的变量不起作用【问题已解决】

玉阳山人

老师们：下边的代码用于计算指定间隔行数的周期为K1【变量】时，对各个周期数据源里符合指定条件的数型进行计数统计的公式：就是按K1指定的间隔行数，对所在对应数据区域内的各个数型出现次数进行统计--当K1为36时，每隔36行进行一次各数型的计数统计；当K1为9时，则每隔9行进行一次各数型的计数统计......以此类推。

Public Function COUNTIFZQ(qy As Range, zq, tj, Optional x = 0)
    Application.Volatile
    arr = qy
    ReDim brr(1 To UBound(arr), 1 To 1) As Variant

    j = 0
     For i = 1 To UBound(arr)
     brr(i, 1) = 0
     Next

    For i = 1 To UBound(arr)
    If arr(i, 1) = "" Then Exit For
    If (i Mod 36) = 1 Then j = j + 1
        If arr(i, 1) = tj Then
            brr(j, 1) = brr(j, 1) + 1
        End If
    Next
         For i = j + x To UBound(arr)
     brr(i, 1) = ""
     Next
    COUNTIFZQ = brr
End Function


   按说，当K1里指定的数字发生变化时，计算结果也应该随之改变才对；但实际上，修改K1的数字，I:K列显示的结果却没有发生变化。恳请大神们看看问题出在哪里了，怎么修改？
一夜苦思冥想【因为对VBA不懂】，早上起来，还是没有回帖。死马当作活马医，把If (i Mod 36) = 1 Then j = j + 1 这一句修改为：If (i Mod zq) = 1 Then j = j + 1  没想到问题就这么轻松地解决了！

玉阳山人

坐等正确的代码急用。恳请大神们帮忙！

玉阳山人

恳请大神们帮忙！

ivccav

都使用VBA了，还搞个自定义函数，不仅多此一举，还效率低。

直接用vba把结果输出到工作表，K1值用change事件监测即可。
总是脱离不了工作表公式的思维模式，那还不如直接用公式好了。

玉阳山人

ivccav 发表于 2018-9-7 20:00
都使用VBA了，还搞个自定义函数，不仅多此一举，还效率低。

直接用vba把结果输出到工作表，K1值用change ...

老师：我原本就是对函数公式学的多一些，对自定义函数和过程只是一知半解。因为数据量太大，函数公式计算起来太慢，自己又不会编写VBA代码【这个代码还是别人帮忙写的】。今天下午因为需要，改动K1数值后，才发现显示的计算结果不随K1改变而改变。

麻烦老师诊治一下代码里的毛病。先谢谢老师了！

玉阳山人

就是想不通为什么指定的K1在公式里不起一点作用。是什么原因造成的，怎么修改？

玉阳山人

ivccav 发表于 2018-9-7 20:00
都使用VBA了，还搞个自定义函数，不仅多此一举，还效率低。

直接用vba把结果输出到工作表，K1值用change ...

老师：恳请您按您的想法写个代码呗。

lss001

Function COUNTIFZQ

玉阳山人

恳请大神们帮忙！

玉阳山人

lss001 发表于 2018-9-8 04:05
Function COUNTIFZQ(rng As Range, rn, r,Optional x = 0)
Application.Volatile
    ar = rng: ReDim br ...

刚刚看到您写的代码，结构更紧凑、凝练。很好！今天又遇到一个新问题：如 http://club.excelhome.net/thread-1434768-1-1.html  里描述的情况。当数据源G5开始至最后数据G20002之间存在空格时，I:K列的计算结果就全部变成了空白。

   怎样才能使代码能够忽略数据中间的空格【公式需要统计的数据区域是G5:G100000,其中G5:G20002已输入数据；但如果G5:G20002之间存在若干空格，而这些空格不在统计范围内】进行计算，显示正确的计算结果？
条件统计 lss001 .zip (344.92 KB, 下载次数: 1)

2018-9-8 12:44 上传

点击文件名下载附件