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.WorksheetFunction.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。

RomanPageNums宏中的代码可在所有最新版本的Excel中使用。如果您使用的是Excel 2000或更高版本，还可以用以下代码替换设置页脚的实际行：

.PageSetup.CenterFooter = Application.Roman(J)

注意：

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

点击此处在新的浏览器标签中打开该特殊页面。

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

本技巧（2518）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

罗马数字的页码。