[开_145-1]数据按日期分页打印[已总结]

zmnyu · 发表于 2013-11-26 08:30

本帖最后由 delete_007 于 2014-1-6 17:56 编辑

竞赛日期：2013-11-26至2013-12-20
题目要求：
一、按A22:A33的日期，每一天单独打印一页。
二、每页都要有如图所示的表头。
三、打印预览时，表头的Page No有对应的页数和总页数显示，格式如：1 of 6
四、每页底部应有如图所示内容，包括一条黑色分隔线和公司相关信息。
五、数据为模拟三天的数据，实际数据量较大，请勿使用手动插入分页符的方法。

答题注意：此为操作题，请简述操作步骤，重要步骤详细描述。

评分标准：此题总分2分，按要求完成自动按日期分页和表头得1分，Page No项和底部内容全部设置正确可得满分。

附件：竞赛题按日期分页打印.rar (104.47 KB, 下载次数: 215) 2013-11-26 09:54 上传点击文件名下载附件
效果如下图：

being117 · 发表于 2013-11-26 15:05

不知道还有没有简单的方法，我的方法好复杂了

安全为主 · 发表于 2013-11-26 21:52

本帖最后由安全为主于 2013-11-26 22:31 编辑

看上去这个题会做的，{:soso_e112:}

副本Xl0000108.rar (103.08 KB, 下载次数: 46)

ctp_119 · 发表于 2013-11-27 08:26

本帖最后由 ctp_119 于 2013-11-27 14:24 编辑

呵呵，我也做了一下，第一次参加竞赛，不知是否满足题意！！！Sub 添加分页符()
Sub 添加分页符()
Dim rng As Range
For Each rng In Sheet1.Range("a23:a" & Sheet1.[a65536].End(xlUp).Row)
If rng.Value = rng.Offset(-1, 0).Value Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=rng
End If
Next

little-key · 发表于 2013-11-27 16:05

一、按A22:A33的日期，每一天单独打印一页。
选择A21:I33单元格区域
在【数据】选项卡单击【分类汇总】按钮
弹出【分类汇总】对话框
【分类字段】选择“DATA”
【汇总方式】选择“求和”
【选定汇总项】勾选“Credits SGD”
勾选【每组数据分页】复选框
最后单击【确定】按钮
筛选，将带有汇总的行取消选项
并将总汇总的行隐藏

二、每页都要有如图所示的表头。
在【页面布局】选项卡中单击【打印标题】
弹出【页面设置】对话框
单击【工作表】选项卡
设置【打印区域】为A1:I21
设置【顶端标题行】为A1:I21
最后单击【确定】按钮

三、打印预览时，表头的Page No有对应的页数和总页数显示，格式如：1 of 6
按<CTRL+F3>组合键
弹出【名称管理器】对话框
单击【新建】按钮
在【名称】文本框中输入“页码”
【引用位置】编辑框中输入=IF(ISERROR(MATCH(ROW(),GET.DOCUMENT(64),1)),1,MATCH(ROW(),GET.DOCUMENT(64),1)+1)
单击【确定】按钮
用同样的方法
添加：
总页码
=GET.DOCUMENT(50) Type 64 An array of row numbers corresponding to rows that are immediately below a manual or automatic page break

在I7单元格输入="第"&页码&"页"&"/"&"总"&页码&"页"

四、每页底部应有如图所示内容，包括一条黑色分隔线和公司相关信息。
先做一条粗横线，可以借助画图工具来做
或者是用QQ等截图软件，截图出一条粗横线来
保存为本地图片格式
在【页面布局】选项卡中单击【打印标题】
弹出【页面设置】对话框
单击【页眉/页脚】选项卡
单击【自定义页脚】按钮
弹出【页脚】对话框
将光标定位在【中】列表框中
单击【插入图片】按钮
插入刚才截图或者是制作的粗横线文件
然后将C44:C47的字符串放在图片后面
最后单击【确定】按钮

kuangben8 · 发表于 2013-11-27 16:58

本帖最后由 kuangben8 于 2013-11-29 20:23 编辑

这题有意思，但是那个页码问题搞不定啊！
先完成一部分.gif

终于明白了！平时太不注意了！！！
完成.gif

关键一点：调试：不断调试后发现设置页眉高度为4.8，右边距不动，在设置页码格式后，按15次空格键。效果刚好！不知道页脚的设置对不对？等待高手出现。

cleverzhzhf · 发表于 2013-11-29 14:38

步骤描述：
1、最重要的一步：选择A22：J33区域——点击“数据”——“分类汇总”——分类字段选择“DATE”——注意勾选“每组数据分页”
2、F5定位——“公式”——按Delete删除
3、清除A列
4、设置打印区域：B1:J37，设置顶端标题行：$1:$21
5、J7单元格写入公式：="1 of "&MAX(B22:B35)-MIN(B22:B35)+1
6、做页脚：

1）在表格空白处，比如M48格写=TRIM(D48)&CHAR(10)&TRIM(D49)&CHAR(10)&TRIM(D50)&CHAR(10)&TRIM(D51)

2）复制M48，粘贴值到M49，全选M49的文字内容并复制

3）“插入”——“页眉页脚”——粘贴文字

4）在页脚的文字开头处，设置文字格式为：加粗、下划线、48号字，然后输入“_”（0旁边那个），约20个

7、完成，看打印预览~~

开放区竞赛题按日期分页打印-小翟.zip (120.73 KB, 下载次数: 32)

补充内容 (2013-12-20 16:07):
已经不能编辑了，其中第5步做修改。
5、设置右侧页眉为，先输入n个回车，然后输入“&[页码] of &[总页数]———————”，调整到合适位置，把后面的“——”设置为白色

补充内容 (2013-12-20 16:09):
修改附件在13楼。

补充内容 (2013-12-21 13:18):
发现还没开贴，就再补充一点，对于第5条还可以换种方法更改：
5、进入打印预览——“显示边距”——然后拖动边距的横线，把页眉拖动到相应的位置即可。

苍海拾贝 · 发表于 2013-12-3 16:49

1.每页相同的表头：设置顶端标题行$1:$21；
2.页码和页数：在页眉右区插入页码 of 页数，用换行符和空白字符调整到合适位置
3.日期自动分页：选中A21:A33,执行分类汇总，钩选“每组数据分页”,确定后，批量删除汇总行，清除分级显示，删除新生成的A列
4.底部黑线和信息：在页脚中区，插入黑色分割线的图片，并粘贴相关文字

不知高手还有没有更好的办法，盼开贴，呵呵~

笑眼晴天 · 发表于 2013-12-5 14:31

一、按A22:A33的日期，每一天单独打印一页。设置：
   选中A22：A22 点击数据分类汇总，每组数据分页。查找含有汇总和合计的行，删除工作表行。完成按日期汇总。
二、每页都要有如图所示的表头。
   页面设置：顶端标题行：$1:$21
三、打印预览时，表头的Page No有对应的页数和总页数显示，格式如：1 of 6
   页眉居中，输入多个空格+&[页码] / &[总页数] ，调整到合适的位置
四、每页底部应有如图所示内容，包括一条黑色分隔线和公司相关信息。
   原始数据中复制粗线为表格，保存为图表，在自定义页脚上设置为左边图片，三行空白行，中间部分插入页脚所需文字
五、数据为模拟三天的数据，实际数据量较大，请勿使用手动插入分页符的方法。
   数据分类汇总

PS：page no设置是个技术活