Excel VBA共用表头固定单元格设置页码问题？

liucharles2000 · 发表于 2018-9-21 22:56

最近工作碰到一个问题，一个Excel文件共用表头，同时需要在表头固定单元格内设置第？页/共？页，同时可能有几个表单，还有一个封面，哪个高人有此方面的好的方法？（页眉页脚法已经试过，无法调到指定位置）

tylsj740320 · 发表于 2018-9-21 23:53

参考这个https://zhidao.baidu.com/question/584681707.html

微笑12345 · 发表于 2018-9-22 00:39

你的附件呢？

微笑12345 · 发表于 2018-9-22 00:43

你的附件呢?

微笑12345 · 发表于 2018-9-22 00:48

附件？附件？附件？

yaozong · 发表于 2018-9-22 10:37

Sub aa()''顶端标题行中插入分页页码
Dim i%, k%
i = Application.ExecuteExcel4Macro(("Get.Document(50)"))
For k = 1 To i
Range("G2") = "第" & k & "页/共" & i & "页"
'ActiveSheet.PrintOut from:=i - (i - 1), to:=i - (i - 1)
ActiveSheet.PrintOut from:=k, to:=k
Next
End Sub

yaozong · 发表于 2018-9-22 10:39

确切的话，应根据附件编写。

liucharles2000 · 发表于 2018-9-22 23:24

谢谢高人分享，到时我到公司试试

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

[求助] Excel VBA共用表头固定单元格设置页码问题？