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.在函數欄使用應用即可得到需要的頁碼