点击宏按钮后，代码不能计算并显示《总表》Q列以后数据的统计结果

lss001 · 发表于 2018-9-26 23:40

WYS67 发表于 2018-9-26 22:01
老师：还得再麻烦您一下：

在→ Range(.Cells(5, 5), .Cells(.Cells(1, 8) - 4, 10)) = "" 前面
加一行→ If x = 1 Then br(.Cells(3, 5) - 4, 5) = k Mod Sheets("总表").Cells(3, "c")

注意→是一行！！！

WYS67 · 发表于 2018-9-27 00:41

lss001 发表于 2018-9-22 18:06
最好把各表的条件格式都清除，然后保存重启！
之后再设置条件格式！
其实处理数据中，不必设置各种无关 ...

老师：是不是应该去掉里面的Mod函数呢？
If x = 1 Then br(.Cells(3, 5) - 4, 5) = k Mod Sheets("总表").Cells(3, "c")

lss001 · 发表于 2018-9-27 07:15

WYS67 发表于 2018-9-27 00:41
老师：是不是应该去掉里面的Mod函数呢？
If x = 1 Then br(.Cells(3, 5) - 4, 5) = k Mod Sheets("总表 ...

If x = 1 Then br(.Cells(3, 5) - 4, 5) = Sheets("总表").Cells(2, "c")

WYS67 · 发表于 2018-9-27 08:39

lss001 发表于 2018-9-27 07:15
If x = 1 Then br(.Cells(3, 5) - 4, 5) = Sheets("总表").Cells(2, "c")

谢谢老师！这次可以了！

WYS67 · 发表于 2018-10-9 15:02

本帖最后由 WYS67 于 2018-10-9 15:06 编辑

lss001 发表于 2018-9-22 18:06
→_→→_→

老师：附件后三个工作表，是对《总表》以H2指定间隔行数为周期进行条件计数的。您写的代码计算结果都很正确。

但是在实际统计中，发现用得最多的却是：忽略数据区域中间的空格，以指定数据个数为周期进行条件计数。

以下面附件里您写的代码为基础，其它所有参数、要素，计算结果显示格式都不变，只是把后三个统计表里H2的指定周期行数，修改为：忽略数据区域中间的空格，以指定数据个数为周期进行条件计数的过程。您看需要修改哪些代码？麻烦您作个附件传上来！

修改H2为指定数据个数的条件计数.zip (1.1 MB, 下载次数: 5)

lss001 · 发表于 2018-10-9 20:57

本帖最后由 lss001 于 2018-10-9 23:21 编辑

WYS67 发表于 2018-10-9 15:02
老师：附件后三个工作表，是对《总表》以H2指定间隔行数为周期进行条件计数的。您写的代码计算结果都很正 ...

修改H2为指定数据个数的条件计数.zip (761.45 KB, 下载次数: 13)

WYS67 · 发表于 2018-10-9 22:27

lss001 发表于 2018-10-9 20:57

老师：怪我没有说清楚，直接把按指定间隔行数进行计数统计的附件传了上去。
我的本意是：保留原代码的所有统计功能，显示格式等，只是把原来H2指定的每个周期间隔行数，修改为H2指定的每个周期的数据个数。
以下面截图举例说明:如《2 中位数型》指定H2为84，原代码是按每隔84个连续行号进行计数统计；现在是忽略数据列中间的空格【如《总表》的K:S列中间就有许多空格】，每隔84个数据，进行各个分类的条件计数统计；《2 中位数型》中J:O列是用于对总表!M列中位号1~6的出现次数，分别进行计数统计的，其和P5 =SUM(J5:O5) 必须等于84才符合数据个数这个规则。每个满额周期【即P5:P63】应该都是84才对。

再比如：《3 结构》所要统计的总表！J列内因为没有空格，所以和指定间隔函数的统计结果肯定相同。

如果H2指定为84个数据，而数据列中间有空格，那么需要统计的数据范围肯定会大于84行，甚至有可能好几百行才能凑够84个指定数据。

除此之外，和原附件完全一样，就只是改变了指定周期的定义而已！

WYS67 · 发表于 2018-10-9 22:48

lss001 发表于 2018-10-9 20:57

老师：只修改H2指定的，以间隔行数为周期，变成以数据个数为周期。如H2为84，则对本周期合成84的各个数据的出现次数进行计数统计。

其它自定义参数和运算规则、显示公式都不需改动。

WYS67 · 发表于 2018-10-10 00:21

lss001 发表于 2018-10-9 20:57

老师：是不是遗漏了统计表里H3指定的周期选择参数？

lss001 · 发表于 2018-10-10 01:04

WYS67 发表于 2018-10-10 00:21
老师：是不是遗漏了统计表里H3指定的周期选择参数？

去掉第18行→If k Mod ZQ = 0 Then x = 1
在倒数第16行上面增加→If e Mod ZQ = 0 Then x = 1

		自动登录	找回密码
密码			免费注册

[求助] 点击宏按钮后，代码不能计算并显示《总表》Q列以后数据的统计结果

评分

评分

评分