Dear trithietke,trithietke đã viết:
Tôi có cách chỉ giúp bạn rất đơn giản như sau:
Sub DSTrang()
Dim i As Byte, j As Byte
Dim cp As Byte
Dim trangdau As Variant
Dim Sh As Worksheet
Application.ScreenUpdating = False
lai:
trangdau = InputBox(Prompt:="Danh so trang", Title:="Nhap trang dau tien!", Default:="0")
If trangdau <= 0 Or IsNumeric(trangdau) = False Then
MsgBox "Nhap lai trang dau"
GoTo lai
End If
For Each Sh In ActiveWorkbook.Worksheets
Sh.Activate
With ActiveSheet.PageSetup
'.LeftFooter = ""
.CenterFooter = "&P"
'.RightFooter = ""
.FirstPageNumber = trangdau
'.PrintErrors = xlPrintErrorsDisplayed
End With
trangdau = trangdau + ExecuteExcel4Macro("Get.Document(50)")
Next
MsgBox "OK"
Application.ScreenUpdating = True
End Sub
hihi. cảm ơn bạn nhiều. mình làm được thành công rồi. chỉ cần 1 cái click chuột là tất cả các sheet sẽ được đánh số trang 1 cách tự động theo trình tự trong 1 workbook.
Trong diễn đàn có chuyên mục về lập trình đó bạn. Nói chung vọc mãi rồi cũng biết. Nếu muốn học bài bản thì bạn đăng ký tham gia các lớp học về VBA, trên diễn đàn cũng có đấy. Nếu muốn tự nghiên cứu thì mua sách về tự vọc thôi (gi gỉ gì gi cái gì về excel trên GPE có hết)
