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

13782671637

lss001 发表于 2018-9-12 18:46
少了Then见楼上！

老师：经测试，显示正确。

  既然可作为加载宏使用，今到明天，我仔细整个尽可能涵盖各种特殊情况的附件，就以4楼的最新代码为基础，增加一些经常用到的功能上传，麻烦您帮忙编写个代码。

另外：感觉http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1434768&pid=9651095里的代码您又作了修改，
Application.ScreenUpdating = True
End Sub
Function COUNTIFZQ(qy As Range, zq, tj, Optional x)
     Application.Volatile
     arr = qy: ReDim brr(1 To UBound(arr), 1 To 1)
     k = qy.Find("*", , , , xlByRows, xlPrevious).Row
      For i = 1 To UBound(arr)
         If i = k - qy.Row + 2 Then Exit For
         If arr(i, 1) = "" Then arr(i, 1) = "#"
         If i Mod zq = 1 Then j = j + 1
         If arr(i, 1) = tj Then brr(j, 1) = brr(j, 1) + 1
    Next
    If (k - 4) / zq = Int((k - 4) / zq) And x = 0 Then t = j + 1 Else t = j + x
    For i = t To UBound(arr): brr(i, 1) = "": Next
    COUNTIFZQ = brr
End Function

里面的：
Application.ScreenUpdating = True
End Sub       这两句是后加的？复制了以后，出现了错误。

lss001

Application.ScreenUpdating = True
End Sub
这两行是复制时带上的另一代码结尾
应删掉！！！

13782671637

lss001 发表于 2018-9-12 19:15
Application.ScreenUpdating = True
End Sub
这两行是复制时带上的另一代码结尾

我说呢，去掉了这两行显示的结果就正确了！
下一步不再考虑《使代码能够忽略数据区域中间的空白单元格进行计算》，全力以赴解决15楼里的最后一个问题：选择框里的项目还可以精简一些，改为两列：1，需要进行统计的数据源所在位置：如在《总表》G5:G100000里，可以写成 -- 总表!G  吗？    2.输出结果的最左列标   

lss001

13782671637 发表于 2018-9-12 19:32
我说呢，去掉了这两行显示的结果就正确了！
下一步不再考虑《使代码能够忽略数据区域中间的空白单元格进 ...

4楼代码已修改！

玉阳山人

lss001 发表于 2018-9-12 22:56
4楼代码已修改！

老师：怎样在选择框里输入？恳请老师以1楼附件为例，作个范例。

lss001

玉阳山人 发表于 2018-9-12 23:19
老师：怎样在选择框里输入？恳请老师以1楼附件为例，作个范例。

4楼代码有举例

玉阳山人

lss001 发表于 2018-9-13 07:39
4楼代码有举例

选择框举例说明.zip (386.9 KB, 下载次数: 1)

2018-9-13 10:37 上传

点击文件名下载附件

老师：这是别人写的一个过程，里面选择框的设置就非常简洁方便。当然《按指定间隔行号进行条件计数的sub过程》的选择框里的设置和格式，要复杂得多。这个附件里的选择框可以参考和借鉴。

《按指定间隔行号进行条件计数的sub过程》的表格正在重新设计中，这个表格更接近实际需要。预计下午可以上传。

玉阳山人

lss001 发表于 2018-9-13 07:39
4楼代码有举例

老师：上传重新设计的表格：请看截图：感觉有了《总表》第二行的不重复数据个数，有了统计表《1》、《2》里H1:H3，和第二行的数据源所在表名，第三行的数据源所在列标。是不是不需要选择框就能编写过程代码了？
    附件在最下边。


    老师：如果条件计数项目在几个工作表【如附件的《1》、《2》】里，宏按钮是不是需要放在《总表》中？点击一次，就能自动更新《1》、《2》......《5》里面的计算结果？


    按指定周期进行条件计数的代码.zip (1.05 MB, 下载次数: 10)

2018-9-13 14:35 上传

点击文件名下载附件

  

13782671637

lss001 发表于 2018-9-13 07:39
4楼代码有举例

麻烦您看一下我最新上传的帖子http://club.excelhome.net/thread-1435699-1-1.html