錦子老師

楚嫣然：錦子老師您好，我的問題如下：我是要在儲存格顯示(第?頁，共?頁)

錦子老師：嫣然，將頁碼插入頁眉或頁腳很容易，但是，如果您需要將頁碼插入工作表儲存格，以前版本可以使用巨集函數「=GET.DOCUMENT(50)」利用定義名稱方法來完成，但由於微軟在新版本停了巨集函數故無法使用，現在只能用VBA代碼幫助您解決此問題。

步驟1：點取要在其中顯示該工作表頁碼的儲存格。

步驟2：按ALT + F11鍵，然後打開Microsoft Visual Basic for Applications視窗。

步驟3：點取「插入 > 模組」指令，新增一張空白模組表。

步驟4：輸入下列代碼。

Sub TEST3828()

'updateby Extendoffice 20160506

    Dim xVPC As Integer

    Dim xHPC As Integer

    Dim xVPB As VPageBreak

    Dim xHPB As HPageBreak

    Dim xNumPage As Integer

    xHPC = 1

    xVPC = 1

    If ActiveSheet.PageSetup.Order = xlDownThenOver Then

        xHPC = ActiveSheet.HPageBreaks.Count + 1

    Else

        xVPC = ActiveSheet.VPageBreaks.Count + 1

    End If

    xNumPage = 1

    For Each xVPB In ActiveSheet.VPageBreaks

        If xVPB.Location.Column > ActiveCell.Column Then Exit For

        xNumPage = xNumPage + xHPC

    Next

    For Each xHPB In ActiveSheet.HPageBreaks

        If xHPB.Location.Row > ActiveCell.Row Then Exit For

        xNumPage = xNumPage + xVPC

    Next

    ActiveCell = "第" & xNumPage & "頁,共" & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") & "頁"

End Sub

步驟5：按F5鍵以運行此代碼，並且該儲存格的頁碼顯示在所選儲存格中，請參下圖：

以上就是今天主要學習的知識點，希望對大家有所幫助~~有什麼問題歡迎留言，我會儘量及時的給大家答覆~~

更多相關影片教學：請點我

更多相關文章：請點我