掃碼下載APP
及時接收最新考試資訊及
備考信息
方法一,用VBA
Function page()
page = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
Application.Volatile
End Function
用VBA本人只知道總頁碼的方法,當前頁碼就難倒我了,還請VBA高手指教
方法二,用宏表函數(shù)與公式
1. 首先:點CTRL+F3打開定義名稱,再在上面輸入“縱當頁”,在下面引用位置處輸入:
=IF(ISNA(MATCH(ROW(),GET.DOCUMENT(64))),1,MATCH(ROW(),GET.DOCUMENT(64))+1)
2.然后再繼續(xù)添加第二個名稱:“橫當頁”,在下面引用位置處輸入:
=IF(ISNA(MATCH(column(),GET.DOCUMENT(65))),1,MATCH(column(),GET.DOCUMENT(65))+1)
3.再輸入“總頁”;引用位置處輸入:
=GET.DOCUMENT(50)+RAND()*0
4.最后再定義“頁眉”,引用位置:
="第"&IF(橫當頁=1,縱當頁,橫當頁+縱當頁)&"頁/共"&總頁&"頁"
5.在函數(shù)欄使用應用即可得到需要的頁碼。
Copyright © 2000 - m.jnjuyue.cn All Rights Reserved. 北京正保會計科技有限公司 版權所有
京B2-20200959 京ICP備20012371號-7 出版物經(jīng)營許可證 京公網(wǎng)安備 11010802044457號