Jackie hỏi liệu có cách nào để đưa các số 0 đứng đầu vào số trang được đặt ở chân trang không. Cô ấy cần số trang của mình luôn dài năm ký tự, với các số 0 ở đầu, nếu cần, để điền vào độ dài. Do đó, số trang sẽ là 00001, 00002, v.v.

Excel không cung cấp định dạng rất tốt cho số trang của nó. Một giải pháp (có lẽ là khả thi nhất) là in từng trang trong trang tính của bạn, từng trang một, thay đổi số trang khi bạn tiếp tục. Macro này thực hiện cách tiếp cận đó:

Sub FormattedPageNums()

Dim iPages As Integer     Dim J As Integer     Dim sFormat As String

sFormat = "00000"

' Get count of pages in active sheet     iPages = ExecuteExcel4Macro("Get.Document(50)")



With ActiveSheet         For J = 1 To iPages             .PageSetup.CenterFooter = Format(J, sFormat)

.PrintOut From:=J, To:=J         Next J     End With End Sub

Macro phát hiện có bao nhiêu trang trong toàn bộ bản in, sau đó chuyển qua từng trang của bản in đó. Trước khi in từng trang, thuộc tính .CenterFooter được đặt bằng một chuỗi được định dạng đại diện cho số trang với các số 0 ở đầu.

Bạn có thể sửa đổi macro, như mong muốn, để đặt các thông tin khác nhau vào chân trang. Bạn cũng có thể thay đổi khu vực chân trang bị thay đổi bằng cách sử dụng .LeftFooter hoặc .RightFooter thay vì .CenterFooter.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (3055) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: