VBA ใส่เลขหน้าระบุ cell ที่ต้องการ

[supphareuk.onnoo]

สวัสดีครับอาจารย์
โจทย์ : ต้องการแสดงเลขหน้าที่ cell A1 เป็น Page 1 of xxx ผมของรัน code vba แล้วมันฟ้อง debug ตรง For Each xHPB In ActiveSheet.HPageBreaks รบกวนอาจารย์ชี้แนะครับผม ขอบคุณครับ

Code: Select all

Sub pagenumber()
'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 = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

[snasui]

กรุณาแนบไฟล์ที่เขียน Code นี้เอาไว้แล้วมาด้วย เพื่อนสมาชิกจะได้ช่วยดูให้ได้ครับ