梦见车内物品被盗:如何在Excel工作表的任意单元格中插入页码-EXCEL应用技巧

来源:百度文库 编辑:偶看新闻 时间:2024/05/02 18:09:52

如何在Excel工作表的任意单元格中插入页码
日期:2009-9-23 17:19:25 人气:1269 标签:
  如何在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.在函数栏使用应用即可得到需要的页码
本文来自办公与PDF网 http://oapdf.com