在EXCEL单元格内插入页码、总页数的完美解决方案（2010-7-12）

cbtaja

先请大家如同电视购物频道中的导购员一样情绪激昂、声情并茂地念下面这一段广告词：
许许多多的人，在本论坛中发贴、求助，想要实现在单元格中（而不是在页眉或页脚中）插入当前页码和总页码数，却一直未能如愿，现在好了，有了本人原创的“ThisPageNo”和“PagesCount”两个名称定义，你将能梦想成真！
请看——

更新：解决10楼所发现的问题。（2010-7-12）

[ 本帖最后由 cbtaja 于 2010-7-12 15:01 编辑 ]

cbtaja

为了便于大家使用，我把定义名称的过程录制成宏代码，帮助你快速、正确地添加这些名称定义：
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

[ 本帖最后由 cbtaja 于 2010-7-12 13:15 编辑 ]

cbtaja

竟然无人识得此宝，就让它沉到东海龙宫去做根定海神针吧，且看孙大圣何时到来。

yzcyzc1023

谢谢分享。

youliqi

谢谢，好东西总会有得上的

cbtaja

原帖由 youliqi 于 2010-5-22 23:18 发表
谢谢，好东西总会有得上的

谢谢你顶贴。 有人能用得上，就不算白忙活了。
可能我发这贴时没选对版块：这种在单元格内插入页码、总页数的方法，只在一些特殊方面，如做财务帐页或一些固定总页数的台帐表格时会有用的，
而大多数人只使用页眉页脚内插入页码的功能。

自己最后顶一次。不想再去别的版块发重复主题了，如果哪位版主觉得本方法或有少许价值，就请您把它移到合适的版块。
以后再能翻看本贴的人，那是与本贴有缘了。

[ 本帖最后由 cbtaja 于 2010-5-26 20:12 编辑 ]

simple666

收藏楼主此帖，留着慢慢消化

bgqwert

谢谢分享。

593531183

好东西不会用呀，怎么办，能说下怎么用吗？

19720205

先顶再下.
发现一个问题:
在没有垂直分页符的时候,好像会出错.

[ 本帖最后由 19720205 于 2010-7-4 10:53 编辑 ]