按指定间隔行号进行条件计数的sub过程

玉阳山人

lss001 发表于 2018-9-12 09:04
把代码复制到1楼提供的附件里试试！

唉。我太笨。刚才下载了一楼的附件，把代码复制进去后，在《总表》里点击按钮，没反应；试着在《统计》里点击按钮，OK！具体感觉得反复试过后再给您反馈。
   但有了过程，自定义函数不能丢。麻烦您按54、55楼的反馈，解决 http://club.excelhome.net/forum. ... 1434768&pid=9651095 代码存在的问题。觉得一句if就能解决，恨自己水平太次。只能再次麻烦您了！

玉阳山人

lss001 发表于 2018-9-12 01:48
Sub COUNTIFZQ()
Application.ScreenUpdating = False
Dim arr(), brr(), i&, j&, k&, m&, n&, p&, q&, s ...

把4楼的代码复制进实际工作簿后，里面十来万行数据，按钮一点，瞬间显示计算结果！速度爽爆了！谢谢老师！我再多试几次，然后给您反馈！

lss001

玉阳山人 发表于 2018-9-12 09:58
把4楼的代码复制进实际工作簿后，里面十来万行数据，按钮一点，瞬间显示计算结果！速度爽爆了！谢谢老师 ...

考虑到跟自定义函数同样情况
4楼代码也作了相应改动！！！

玉阳山人

lss001 发表于 2018-9-12 11:47
考虑到跟自定义函数同样情况
4楼代码也作了相应改动！！！

sub就是快！不足之处是：无法像自定义函数，加载宏后能够在所有工作簿里召之即来来之能用，需要一次次输入需要的工作簿，各个工作表还不通用。怎样才能扬长避短呢？

玉阳山人

lss001 发表于 2018-9-12 11:47
考虑到跟自定义函数同样情况
4楼代码也作了相应改动！！！

老师：试用反馈：1.最好在代码里直接标明用作指定变量的单元格地址【列标&行号 如G2 看起来更一目了然些】。
                          2.必须按要求在指定的行号范围内计算和显示结果。如《总表》G2指定为100000，则需要计算数据区域就是限定在各列的5:100000行号内，行号100001以下开始另有他用；如《统计》指定G2为20000，则需要显示的结果就是限定在各列的5:20000行号内，行号20001开始以下另有他用。
                          3.《统计》里结果输出列的开始到最后一个有数据的周期内，没有数据时必须显示0，用以区分下边那些由于整个周期无数据而显示的空白。


   最难的是：事先不清楚有几列数据源需要进行计数统计，输出的结果应该存放在哪里？
  

老师：您看这样行不行？
      点击一次【计数统计】按钮，弹出选择框，里面是上次保存的各项任务【最多可以设定十项任务】，1.点击“修改”按钮，可以临时修改里面的参数；检查无误后，点击“确定”就可以关闭选择框。再次点击【计数统计】按钮，就开始执行修改过参数的计算和显示；2.再次直接点击【计数统计】按钮，默认为执行与上次相同的参数的计算和显示。

    这样，可以最大限度地扩展过程代码的使用功能，类似于可以自定义参数的过程。你看能不能实现？

lss001

玉阳山人 发表于 2018-9-12 16:09
老师：试用反馈：1.最好在代码里直接标明用作指定变量的单元格地址【列标&行号 如G2 看起来更一目了然些 ...

4楼已经更正，可作为加载宏使用
对于其它的功能可发附件说明问题！

玉阳山人

lss001 发表于 2018-9-12 17:06
4楼已经更正，可作为加载宏使用
对于其它的功能可发附件说明问题！

sub过程很强大！速度杠杠的！我正在熟悉使用。真是太感谢老师了！

lss001

玉阳山人 发表于 2018-9-12 17:36
sub过程很强大！速度杠杠的！我正在熟悉使用。真是太感谢老师了！

对不显示"0"的问题已更正
请重新复制代码！！！

玉阳山人

lss001 发表于 2018-9-12 17:45
对不显示"0"的问题已更正
请重新复制代码！！！

lss001

玉阳山人 发表于 2018-9-12 18:07

少了Then见楼上！