按指定周期对总表里的多列数据进行计数统计

WYS67 · 发表于 2018-9-15 19:42

本帖最后由 WYS67 于 2018-9-15 19:45 编辑

lss001 发表于 2018-9-15 12:57
上楼已有简化，请重新下载！

老师：玉阳山人先前发的截图看得更直观【可是还在审核中】。25楼的代码有两个问题：1.点击《总表》的宏按钮时，三个统计表中A5:D5以下原先输入不得变动的参照系数至H1指定的最大行号内，全部变成了空白；2.三个统计表中代码能够计算并显示的最大行号总比H1指定的少四行【是不是遗漏了表头占用的4行】？

lss001 · 发表于 2018-9-15 21:41

WYS67 发表于 2018-9-15 19:42
老师：玉阳山人先前发的截图看得更直观【可是还在审核中】。25楼的代码有两个问题：1.点击《总表》的宏按 ...

见21楼更改代码！

玉阳山人 · 发表于 2018-9-16 06:01

本帖最后由玉阳山人于 2018-9-16 08:27 编辑

lss001 发表于 2018-9-14 23:58
请重新下载附件!

老师：请看修改过的三个统计表截图：

老师：还得再麻烦您：昨天提的的A:D列问题已解决。后一个问题，无论H3指定为0还是1，从J列开始，右边最后周期的所在行号都非常正确！但是，左边E:I列却多出了4行，与右边的不同步。《总表》I列数据输入到15号，可是三个统计表的E:I却多出了16~19号，多出的4行应该在代码里去掉

还得恳请您解决为盼。

玉阳山人 · 发表于 2018-9-16 08:23

lss001 发表于 2018-9-14 23:58
请重新下载附件!

老师：麻烦您看看33楼截图里的问题怎么解决？

lss001 · 发表于 2018-9-16 08:36

把.Cells(5, i + 4).Resize(.Cells(3, 5), 1) = br
改为.Cells(5, i + 4).Resize(.Cells(3, 5) - 4, 1) = br
即减去4行！！！

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

[求助] 按指定周期对总表里的多列数据进行计数统计

评分