Excel工作表的任意单元格中设页码

王朝学院·作者佚名  2009-06-06
窄屏简体版  字體: |||超大  

方法一,用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.在函数栏使用应用即可得到需要的页码。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航