作者:乔山办公网日期:
返回目录:excel表格制作
在Excel中设置第几页共几页,e799bee5baa6e79fa5e98193e4b893e5b19e333绝大部分人会想道用“页面设置”,但你是否想过将“第N页/总M页”放到任意单元格中?而不仅仅是置于页眉页脚中?下面我们来介绍两种方法实现这一功能:
方法一用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.在函数栏使用应用即可得到需要的页码
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.选中需要显示页码的单元格,并在单元格输入这个公式:="第"&IF(横当页=1,纵当页,横当页+纵当页)&"页/共"&总页&"页",即可得到需要的页码。
可以在EXCEK表中做如下操zd作:1.在要引用的表中,例如:sheet1表中所要引用的单元格如B1单元格设: =IF(ROW()>36,ROW()/36,"1")2.在目标表中,例如:"目录"表中的回目标单元格中设: "第"&ROUNDUP(sheet1!B1,0)&"页"即可说明:36是一页所需的行数,可以根据自己预览表时一页的实际行数修改,即你的答一页是45行就改成45行