如何在指定单元格插入页码

我使用宏命令 在单元格中插入页码 但是 该页码只能在电脑上显示 没有办法打印啊？

方法一，用VBA　　

　　Function page()

　　page = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)

　　Application.Volatile

　　End Function　　

　　用VBA本人只知道总页码的方法，当前页码就难倒我了，还请VBA高手指教　　

　　方法二，用宏表函数与公式　　

　　1. 首先：点CTRL+F3打开定义名称，再在上面输入“纵当页”，在下面引用位置处输入：

　　=IF(ISNA(MATCH(ROW(),GET.DOCUMENT(64))),1,MATCH(ROW(),GET.DOCUMENT(64))+1)　　

　　2.然后再继续添加第二个名称：“横当页”，在下面引用位置处输入：

　　=IF(ISNA(MATCH(column(),GET.DOCUMENT(65))),1,MATCH(column(),GET.DOCUMENT(65))+1)

　　3.再输入“总页”；引用位置处输入：

　　=GET.DOCUMENT(50)+RAND()*0　　

　　4.最后再定义“页眉”，引用位置：

　　="第"&IF(横当页=1,纵当页,横当页+纵当页)&"页/共"&总页&"页"　　

　　5.在函数栏使用应用即可得到需要的页码

或者：CTRL+F3打开定义名称
定义：“当前页”
=IF(ISNA(MATCH(ROW(),GET.DOCUMENT(64),1)),1,MATCH(ROW(),GET.DOCUMENT(64),1)+1)+NOW()*0

再定义：“总页数”
=GET.DOCUMENT(50)+NOW()*0

然后在你想要输入页码的单元格输入：="第"&当前页&"页共"&总页数&"页"
显示效果：第1页共9页

第一种是在页眉页脚处设置页码 第二种是在任意单元格中插入页码 . 首先：点ctrl+f3打开自定义名称，新建几个名称。 1，“纵当前页”，在下面引用位置（通常引用的是单元格位置，我们要做的是直接输这段代码）处输入： =if(isna(match(row(),get.document(64))),1,match(row(),get.document(64))+1) 2.，“横当前页”，在下面引用位置处输入： =if(isna(match(column(),get.document(65))),1,match(column(),get.document(65))+1) 3.，“总页数”；引用位置处输入： =get.document(50)+rand()*0 4.最后再定义“页眉”，引用位置： ="第"&if(横当前页=1,纵当前页,横当前页+纵当前页)&"页/共"&总页数&"页" 定义好名称后就可以在任意单元格中输入 =纵当前页 ***得出纵向当前页 =横当前页 ****不解释了 ="第" & 纵当前页 & "页，共" & 总页数 & "页" ***应该知道这是显示 第*页，共*页 了。 =页眉

视图 分页预览 将光标放在蓝色的线上向下或者向右拉 视图 分页预览 选中要插入的单元格 右键 插入分页

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息