excel工作簿工作表页码设置.docVIP

excel工作簿工作表页码设置在EXCEL单元格内插入页码、总页数的完美解决方案（2010-7-12） 先请大家如同电视购物频道中的导购员一样情绪激昂、声情并茂地念下面这一段广告词：许许多多的人，在本论坛中发贴、求助，想要实现在单元格中（而不是在页眉或页脚中）插入当前页码和总页码数，却一直未能如愿，现在好了，有了本人原创的“ThisPageNo”和“PagesCount”两个名称定义，你将能梦想成真！请看—— /viewthread.php?tid=573264pid=3828670page=1extra= 为了便于大家使用，我把定义名称的过程录制成宏代码，帮助你快速、正确地添加这些名称定义：Sub 定义页码及总页数名称() 定义页码及总页数名称 Macro 宏由 cbtaja 录制，时间: 2010-5-12? ? ActiveWorkbook.Names.Add Name:=ColFirst, RefersToR1C1:= _? ?? ???=GET.DOCUMENT(61) 判断打印顺序的设置类型? ? ActiveWorkbook.Names.Add Name:=lstRow, RefersToR1C1:= _? ?? ???=GET.DOCUMENT(10) 本工作表已用到的最大行数? ? ActiveWorkbook.Names.Add Name:=lstColumn, RefersToR1C1:= _? ?? ???=GET.DOCUMENT(12) 本工作表已用到的最大列数? ? ActiveWorkbook.Names.Add Name:=hNum, RefersToR1C1:= _? ?? ???=IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),Row())),0,FREQUENCY(GET.DOCUMENT(64),Row())) hNum为本单元格上方的水平分页符个数? ? ActiveWorkbook.Names.Add Name:=vNum, RefersToR1C1:= _? ?? ?? ?? ?? ? =IF(ISERROR(FREQUENCY(GET.DOCUMENT(65),Column())),0,FREQUENCY(GET.DOCUMENT(65),Column())) 本单元格左边的垂直分页个数? ? ActiveWorkbook.Names.Add Name:=hSum, RefersToR1C1:= _? ?? ???=IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),lstRow)),0,FREQUENCY(GET.DOCUMENT(64),lstRow)) 本工作表最后一个单元格上方的水平分页符个数? ? ActiveWorkbook.Names.Add Name:=vSum, RefersToR1C1:= _? ?? ?? ?? ?? ? =IF(ISERROR(FREQUENCY(GET.DOCUMENT(65),lstColumn)),0,FREQUENCY(GET.DOCUMENT(65),lstColumn)) 本工作表最后一个单元格左边的垂直分页个数? ? ActiveWorkbook.Names.Add Name:=ThisPageNo, RefersToR1C1:= _? ?? ???=IF(ColFirst,(hSum+1)*vNum+hNum+1,(vSum+1)*hNum+vNum+1)*ISNUMBER(NOW()) 单元格所在页码? ? ActiveWorkbook.Names.Add Name:=PagesCount, RefersToR1C1:= _? ?? ???=GET.DOCUMENT(50)*ISNUMBER(NOW()) 本工作表的总页数End Sub打印Excel工作表连续页码方法 有时，需要打印Excel工作表连续页码。那么如何打印Excel工作表连续页码呢？打印Excel工作表连续页码的方法很简单。本文就来介绍一下打印Excel工作表连续页码的方法。 ????默认情况下，打印Excel表格时，每个工作表中的表格页码都是从1开始编号的。若要将多个工作表的表格页码连续排列，怎么操作呢？ ????首先查看第一个工作表的总页数，并切换到第二个工作表。依次点击“文件”→“页面设置”，选择“页眉/页脚”选项卡，点击“自定义页眉”（或“自定义页脚”）调出对话框。根据需要点击其中的“左”、“中”或“右”框，再点击带有“#”字样的按钮，即可将“［页码］”放入框中。 ????若要让第二个工作表的首页码接着第一个工作表的尾页码，只须在“［