Khi bạn in một trang tính, bạn có thể để Excel bao gồm nhiều mục khác nhau trong đầu trang hoặc chân trang của bản in. Một trong những thứ bạn có thể bao gồm số trang của trang đang được in. Số trang này khá nhàm chán — nó là giá trị tiếng Ả Rập của trang đang được in, như trong 1, 2, 3, v.v.

Một số người có thể khao khát cách in các chữ cái trang (A, B, C) thay vì số trang (1, 2, 3). Không có cách nội tại nào để làm điều này trong Excel. Tuy nhiên, bạn có thể phát triển một macro sẽ tìm ra ký tự cần được liên kết với một trang, rồi sử dụng ký tự đó ở chân trang. Macro sau thực hiện điều đó:

Sub LetterPageNums()

Dim sArr(27 * 26) As String     Dim iPages As Integer     Dim J As Integer, K As Integer

' Fill page letter array     ' "A", "B", "C", ...,"AA", "AB", etc.

For J = 0 To 26         For K = 1 To 26             If J > 0 Then                 sArr((J * 26) + K) = Chr(J + 64) & Chr(K + 64)

Else                 sArr(K) = Chr(K + 64)

End If         Next K     Next J

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



' Print worksheet, page by page     With ActiveSheet         For J = 1 To iPages             ' Set page letter             .PageSetup.CenterFooter = sArr(J)

' Print page(J)

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

Đầu tiên, macro tìm ra ký tự tương đương với số trang và đặt chúng vào một mảng. Trong trường hợp này, có tới 702 trang chữ cái được tính toán, quá đủ cho bất kỳ lệnh in nào. Các chữ cái là A đến Z, sau đó AA đến AZ, BA qua BZ, và tất cả các cách lên đến ZA đến ZZ.

Sau đó, iPages được đặt thành số trang trong trang tính. Cuối cùng, mỗi trang được in riêng lẻ, với ký tự trang được đặt vào chân giữa của trang tính. Nếu bạn muốn ký tự trang ở một số nơi khác, hãy sử dụng .LeftFooter hoặc .RightFooter thay vì thuộc tính .CenterFooter. (Bạn cũng có thể sử dụng .LeftHeader, .CenterHeader và .RightHeader, nếu muốn.)

_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 (12930) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: