Excel工作表的页码设置在任意单元格中
发布时间：2010-06-16 19:41
在线咨询重要提醒：本网站所发布内容为转载资讯，供您浏览和参考之用，请您对相关内容自行辨别及判断，本网站对此不承担任何责任。凡私自告知添加联系方式、保证无条件入职、收取各种费用等信息，请保持高度警惕，防止上当受骗造成各种损失。
方法一，用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.在函数栏使用应用即可得到需要的页码。
