Chữ số La Mã cho Số trang (Microsoft Excel)
Excel bao gồm một hàm trang tính (ROMAN) cho phép bạn chuyển đổi số Ả Rập thành chữ số La Mã. Bạn có thể tự hỏi liệu có bất kỳ chức năng nào như vậy cho phép bạn in các chữ số La Mã dưới dạng số trang trên một bản in hay không.
Không có tính năng tích hợp nào cho phép bạn làm điều đó, nhưng bạn có thể tạo macro để thực hiện thủ thuật. Hãy xem xét macro sau:
Sub RomanPageNums()
Dim iPages As Integer Dim J As Integer
' 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 = _ Application.WorksheetFunction.Roman(J)
' Print page J .PrintOut From:=J, To:=J Next J End With End Sub
Macro này đầu tiên tính toán có bao nhiêu trang trong bản in của bạn và gán giá trị cho biến iPages. Sau đó, nó sẽ bước qua từng trang, thay đổi số trang ở phần chính giữa của chân trang trước khi in từng trang. Số trang được đặt bằng cách chuyển đổi số trang hiện tại (J) thành số La Mã bằng cách sử dụng chức năng trang tính ROMAN.
Nếu bạn muốn các chữ số La Mã xuất hiện ở các phần khác của chân trang, bạn có thể thay thế thuộc tính .CenterFooter bằng .LeftFooter hoặc .RightFooter. Bạn cũng có thể sử dụng .LeftHeader, .CenterHeader hoặc .RightHeader, nếu muốn.
Mã trong macro RomanPageNums hoạt động trong tất cả các phiên bản Excel gần đây. Nếu bạn đang sử dụng Excel 2000 hoặc cao hơn, bạn cũng có thể thay thế dòng thực đặt chân trang bằng mã sau:
.PageSetup.CenterFooter = Application.Roman(J)
_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 (2518) á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: