Excel工作表的頁碼設(shè)置在任意單元格中

方法一，用VBA
    Function page()
    page = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
    Application.Volatile
    End Function
    用VBA本人只知道總頁碼的方法，當(dāng)前頁碼就難倒我了，還請VBA高手指教
    方法二，用宏表函數(shù)與公式
    1. 首先：點CTRL+F3打開定義名稱，再在上面輸入“縱當(dāng)頁”，在下面引用位置處輸入：
    =IF(ISNA(MATCH(ROW(),GET.DOCUMENT(64))),1,MATCH(ROW(),GET.DOCUMENT(64))+1)
    2.然后再繼續(xù)添加第二個名稱：“橫當(dāng)頁”，在下面引用位置處輸入：
    =IF(ISNA(MATCH(column(),GET.DOCUMENT(65))),1,MATCH(column(),GET.DOCUMENT(65))+1)
    3.再輸入“總頁”；引用位置處輸入：
    =GET.DOCUMENT(50)+RAND()*0
    4.最后再定義“頁眉”，引用位置：
    ="第"&IF(橫當(dāng)頁=1,縱當(dāng)頁,橫當(dāng)頁+縱當(dāng)頁)&"頁/共"&總頁&"頁"
    5.在函數(shù)欄使用應(yīng)用即可得到需要的頁碼。