Excel包含一个工作表函数(ROMAN),可让您将阿拉伯数字转换为罗马数字。您可能想知道是否有任何这样的功能可以将罗马数字作为页码打印在打印输出上。

没有内置功能可让您执行此操作,但是您可以创建一个可以完成此操作的宏。请考虑以下宏:

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.Roman(J)

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

该宏首先计算出您的打印输出中有多少页,然后将该值分配给iPages变量。然后,它逐步浏览每页,在打印每页之前更改页脚中心部分的页码。通过使用ROMAN工作表功能将当前页码(J)转换为罗马数字来设置页码。

如果希望罗马数字出现在页脚的其他部分,则可以将.CenterFooter属性替换为.LeftFooter或.RightFooter。如果需要,还可以使用.LeftHeader,.CenterHeader或.RightHeader。

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(9362)适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较旧菜单界面找到此技巧的版本: