Excel工作表的任意单元格中设页码(共2篇)
篇1:Excel工作表的任意单元格中设页码
在Excel中设置第几页共几页,绝大部分人会想道用“页面设置”,但你是否想过将“第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.在函数栏使用应用即可得到需要的页码
篇2:Excel工作表的任意单元格中设页码
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.在函数栏使用应用即可得到需要的页码,
Excel工作表的任意单元格中设页码
【Excel工作表的任意单元格中设页码】相关文章:
为Excel工作表单元格命名的两种方法04-24
excel怎么在单元格中插入勾字符excel办公/数码05-16
巧用宏 随意提取Excel单元格的批注内容EXCEL基本教程08-04
Excel中制作有色立体感的单元格04-27
《excel工作表的基本操作》教学设计04-22
Excel教程:固定域内单元格的快速切换08-16
excel打印时自动分页打印,一个单元格打印出一页09-01