能否用邮件合并的方式解决按户分页打印户口册？

xsy我可以很好 · 发表于 2011-8-9 09:17

前几天时间紧，没做好，今天花了几个小时修改完善到你要的效果，由于文件太大上传不了，我删除了许多资料，白色部分复制，黄色部分有公式下拉填充。如果有新要求或不能使用请联系QQ：973497538。（另外：点“查看”工作表的数据部分会在“打印”工作表生成所有数据，自己填好表头添加边框再设置打印页数就可以批量打印了）。
我没有时间看贴，谢谢。

[ 本帖最后由 xsy我可以很好于 2011-8-10 16:21 编辑 ]

醉爱 · 发表于 2022-3-4 21:22

xsy我可以很好发表于 2011-8-3 10:48
重新更改了一下，绝对没有毒，放心使用

可否取消保护和VBA密码让我们一起学习学习，让我们这些菜鸟可以根据实际情况稍微修改修改

xsy我可以很好 · 发表于 2022-3-5 11:29

醉爱发表于 2022-3-4 21:22
可否取消保护和VBA密码让我们一起学习学习，让我们这些菜鸟可以根据实际情况稍微修改修改

For r = [A65536].End(xlUp).Row To 1 Step -1
      If Cells(r, 1) = "户主" Then
         ActiveSheet.HPageBreaks.Add Cells(r, 1)
         Cells(r, 1).Offset(x + 1, 0).Resize(9 - x Mod 10, 1).EntireRow.Insert
         x = 0

         Else
         x = x + 1
      End If
Next

xsy我可以很好 · 发表于 2022-3-5 11:39

和平文化册.rar (295.9 KB, 下载次数: 10)

andysky · 发表于 2022-3-5 13:59

本帖最后由 andysky 于 2022-3-5 19:08 编辑

视频教材：
https://www.bilibili.com/video/av806526793

假设表中有若干家庭的数据，本工具可以拆分报表生成新的报表，可自定义格式。每一户的信息放在一个新表中。普通的工作表拆分工具是按行拆分，本工具是按户拆分。插件下载地址：
https://www.excelbbx.net/download.htm

通用于一切格式的按家庭建表，不需要每种格式写一次代码

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

[求助] 能否用邮件合并的方式解决按户分页打印户口册？