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

發布時間：2010-06-16 19:41 來源：會計基礎查看：次打印關閉

銀行招聘網(www.0594zp.com)溫馨提示：凡告知“加qq聯系、無需任何條件、工作地點不限”，收取服裝費、押金、報名費等各種費用的信息均有欺詐嫌疑，請保持警惕。

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

分享到:

更多 >>