根据分表模板以每13条记录为一页拆分总表，总表数据与分表数据一一对应

9.17 · 发表于 2013-3-9 09:59

本帖最后由 9.17 于 2013-3-9 09:59 编辑

先上图：
问.gif

我想拆分总表的数据，根据分表模板以每13条记录为一页进行拆分，拆分的表名为第几页。。我不懂怎么写可以做到每13条记录为一页？~可以做到吗？

还有，这张表的数据记录的都是真实情况的，
我做的全部工程资料中只有一张是可以比较随便的，所以不要再误会我做什么假资料的了。。

拆分汇总.rar (115.04 KB, 下载次数: 16)

qy1219no2 · 发表于 2013-3-9 10:29

本帖最后由 qy1219no2 于 2013-3-9 10:34 编辑

1、先将分表最后一行删除
2、设置分表页脚为自定义型，设置页脚
3、调整分表行距，使每页刚好打印下13行数据
4、选择分表A12：AM1000，取消网格线，再设置条件格式——采用公式设置条件——公式为：=len($a12)>0——设置格式——边框
5、直接将总表数据复制到分表下或者在分表A12输入 =汇总表!A7 然后填充公式到AB1000

9.17 · 发表于 2013-3-9 10:34

qy1219no2 发表于 2013-3-9 10:29
1、先将分表最后一行删除
2、设置分表页脚为自定义型，设置页脚
3、调整分表行距，使每页刚好打印下13行数 ...

有想过这种，不过我最后一行的整理时间是等于最后一条记录的时间，所以这点设置页脚的话有点不方便

qy1219no2 · 发表于 2013-3-9 10:44

本帖最后由 qy1219no2 于 2013-3-9 10:45 编辑

9.17 发表于 2013-3-9 10:34
有想过这种，不过我最后一行的整理时间是等于最后一条记录的时间，所以这点设置页脚的话有点不方便

由于最后一页不一定是满页，所以，整理日期在最后一页还是会出现问题的。
既然资料员需要手工签字，整理日期手工填也不是不可以。为了这么一个小问题，路就绕远了。
如果非得这样，只有使用VBA才能实现。或者使用专业资料管理关软件

9.17 · 发表于 2013-3-9 10:56

qy1219no2 发表于 2013-3-9 10:44
由于最后一页不一定是满页，所以，整理日期在最后一页还是会出现问题的。
既然资料员需要手工签字，整理 ...

资料员不用再签名了。。
我就是想VBA能实现的话就尽量用VBA，不能的话就只能采用这种办法了。。。

9.17 · 发表于 2013-3-9 16:20

{:soso_e150:} 没有人可以帮下吗

№①布鲑鲑 · 发表于 2013-3-9 18:01

9.17 发表于 2013-3-9 16:20
没有人可以帮下吗

拆分汇总.rar (124.46 KB, 下载次数: 141)

9.17 · 发表于 2013-3-9 21:35

№①布鲑鲑发表于 2013-3-9 18:01

很感谢，省了很多的工作谢谢...

lzqlaj · 发表于 2013-3-9 21:54

建议加上 Application.ScreenUpdating = False
。。。 Application.ScreenUpdating = true

9.17 · 发表于 2013-3-10 13:08

lzqlaj 发表于 2013-3-9 21:54
建议加上 Application.ScreenUpdating = False
。。。 Application.ScreenUpdating = true

请问有什么作用？

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

[求助] 根据分表模板以每13条记录为一页拆分总表，总表数据与分表数据一一对应

评分