Đánh số trang cho tất cả các Sheet trong 1 file excel để đóng tập. (1 người xem)

[chaudinhphuc]

Em có 1 file excel gồm các Sheet như sau:
Sheet 1 (co 2 trang) đặt tên là "Bao cao quy"
Sheet 2 ( co 1 trang) đặt tên là "Bao cao ton"
Sheet 3 ( co 3 trang) đặt tên là "Thong ke"
Bây giờ em muốn đánh số trang cho 3 Sheet này từ trang 1 đến trang 8 để đóng tập (mà không đánh số trang thủ công cho từng Sheet một). Vậy có cách nào nhanh nhất không.
Các anh giúp đỡ dùm. Vì mỗi lần đánh số trang khi có nhiều sheet em tháy mất công lắm.
Em cảm ơn.

 

[thepdaoson]

Lập macro:

'Macro
Sub SetPageNumbers()
Dim counter
Sheets(1).PageSetup.FirstPageNumber = 1
For i = 2 To ActiveWorkbook.Sheets.Count
counter = counter + (Sheets(i - 1).VPageBreaks.Count + 1) *
(Sheets(i - 1).HPageBreaks.Count + 1)
Sheets(i).PageSetup.FirstPageNumber = counter + 1
Next i
End Sub

'Usage
Private Sub Workbook_BeforePrint(Cancel As Boolean)
SetPageNumbers
End Sub

 

[chaudinhphuc]

Cảm ơn anh thepdaoson nhiều.
Vậy để sử dụng macro nay, trình tự mình làm như thế nào anh, và cả khi chèn số trang nữa mình thao tác như thế nào.

 

[bbc]

Mình bị báo lỗi .......................

 

[cuonghoa176]

Cứ đưa code này vào VBA là xong thôi...