giúp insert pagenumber đến 1 cell trong sheet (1 người xem)

[levanto]

mình không muốn hiện số trang trong header page
bây giờ muốn đánh số trang trong 1 cell trên sheet thì dùng hàm gì?
rất mong các bác giúp đỡ.

 

[tintam7251]

Yêu cầu của bạn mà dùng hàm thì hơi bất tiện. Bạn có thể dùng sub sau:

Sub danhso_trang()
   Dim nPage As Integer
   Dim varRow As Variant
     nPage = 1
     Cells(1, "A") = 1
        Do
        varRow = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & nPage & ")")
            If IsError(varRow) Then
               Exit Do
            Else
               nPage = nPage + 1
               Cells(varRow, "A") = nPage
            End If
        Loop
End Sub

-Số trang sẽ được đánh vào cột A. Bạn có thể tùy biến.
-Có thể đặt vào một sự kiện của worksheet để dùng.

 

[keke355992]

Dùng VBA Này có thể áp dụng trong trường hợp chỉ thao tác trên Page 1, nhưng in ra thi Số nhảy theo thứ tự của trang được không nhỉ, Mình có 1 ORDER muốn in từ số 01 --> 1000 mà fair copy 1000 Page thì die mất

 

[meo_excell]

Yêu cầu của bạn mà dùng hàm thì hơi bất tiện. Bạn có thể dùng sub sau:

Sub danhso_trang()
   Dim nPage As Integer
   Dim varRow As Variant
     nPage = 1
     Cells(1, "A") = 1
        Do
        varRow = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & nPage & ")")
            If IsError(varRow) Then
               Exit Do
            Else
               nPage = nPage + 1
               Cells(varRow, "A") = nPage
            End If
        Loop
End Sub

-Số trang sẽ được đánh vào cột A. Bạn có thể tùy biến.
-Có thể đặt vào một sự kiện của worksheet để dùng.

Mình hơi gà lắm, nên cho mình hỏi là những mã code trên là làm sao mình có, bây giờ mình ứng dụng thế nào đây. Chỉ mình với!

 

[ducbacgt]

Mong các Anh Giúp em Nhé , cảm ơn bác tôpc

Mong các pro giải giúp em mở FIle đinh kèm bên, em là thành viên nếu em gửi sai mong mod thông cảm và chuyên cho em nhé. thanhks!