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

iammantoo

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

changxuegu

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

1. 
   
2. Sub 连续打印()
   
3.     With ActiveSheet
   
4.         pages = .HPageBreaks.Count + 1
   
5.         For i = 1 To pages
   
6.         .PageSetup.CenterFooter = "第" & Format(i, "0000") & "页，共" & Format(pages, "0000") & "页"
   
7.         .PrintOut from:=i, To:=i
   
8.         Next i
   
9.     End With
   
10. End Sub

复制代码

iammantoo

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

iammantoo

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


要不你再修改修改？

changxuegu

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

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

iammantoo

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

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

iammantoo

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

changxuegu

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

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

iammantoo

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

附件更新过了。

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

changxuegu

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

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

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