关于EXCEL页码统一位数,如0001、0099、0100、1155格式

iammantoo · 发表于 2013-6-21 12:31

本人有一EXCEL表，共有2000多页，在设置页码时发现是按1、2、3...9、10...99、100...999、1000...的格式编码的，即页码的位数是有一位、二位、三位、四位的。现在我想将页码统一设置成四位数。如001、002...0010、0011...0099、0100...0999、1000...2100样的格式。经咨询度娘、谷哥，都没找到解决方法。特在此提问求助。

changxuegu · 发表于 2013-6-21 12:54

用VBA可以做到，参考下面代码：

Sub 连续打印()
With ActiveSheet
pages = .HPageBreaks.Count + 1
For i = 1 To pages
.PageSetup.CenterFooter = "第" & Format(i, "0000") & "页，共" & Format(pages, "0000") & "页"
.PrintOut from:=i, To:=i
Next i
End With
End Sub

复制代码

iammantoo · 发表于 2013-6-21 13:46

不管对错，先谢了。谢了之后再回去测试

iammantoo · 发表于 2013-6-21 13:49

本帖最后由 iammantoo 于 2013-6-21 13:51 编辑

第一页直到最后一页，显示的都是同样的页码呀。

要不你再修改修改？

changxuegu · 发表于 2013-6-21 14:32

本帖最后由 changxuegu 于 2013-6-21 14:34 编辑

iammantoo 发表于 2013-6-21 13:49
第一页直到最后一页，显示的都是同样的页码呀。

我测试过，都正常的。我是用Microsoft Office Document Image Writer打印机测试的，把打印结果传给你。（顺便说一句，如果你是横向分页的，那么把pages = .HPageBreaks.Count + 1改成pages = .VPageBreaks.Count + 1）

iammantoo · 发表于 2013-6-21 16:11

本帖最后由 iammantoo 于 2013-6-21 16:18 编辑

changxuegu 发表于 2013-6-21 14:32
我测试过，都正常的。我是用Microsoft Office Document Image Writer打印机测试的，把打印结果传给你。 ...

对哦，你处可以，我处咋就不行呢？我这儿操作时只打印第一页，连第二页都不打印

iammantoo · 发表于 2013-6-21 16:17

本帖最后由 iammantoo 于 2013-6-21 18:18 编辑

麻烦你帮我处理一下呗。另外要求，这个页码最后显示在右下方。格式是“页码0001”、“页码0010”等

changxuegu · 发表于 2013-6-21 18:07

iammantoo 发表于 2013-6-21 16:17
麻烦你帮我处理一下呗。另外要求，这个页码最后显示在右下方。格式是“页码0001”、“页码0010”等

你的附件解压不开。你试试把你的Excel文件手动分页一下。

iammantoo · 发表于 2013-6-21 18:20

changxuegu 发表于 2013-6-21 18:07
你的附件解压不开。你试试把你的Excel文件手动分页一下。

附件更新过了。

手动分页没有可操作性，因为我的文档一共有2155页。所附件已被我删去一部分

changxuegu · 发表于 2013-6-22 12:24

iammantoo 发表于 2013-6-21 18:20
附件更新过了。

手动分页没有可操作性，因为我的文档一共有2155页。所附件已被我删去一部分

让你手动分页一下只是为了查找原因而已。

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