Excel incluye una función de hoja de trabajo (ROMANO) que le permite convertir números arábigos en números romanos. Quizás se pregunte si existe una función de este tipo que le permita imprimir números romanos como números de página en una copia impresa.

No hay una función incorporada que le permita hacer eso, pero puede crear una macro que hará el truco. Considere la siguiente macro:

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

Esta macro primero calcula cuántas páginas hay en su impresión y asigna el valor a la variable iPages. Luego recorre cada página, cambiando el número de página en la parte central del pie de página antes de imprimir cada página. El número de página se establece convirtiendo el número de página actual (J) a un número romano usando la función de hoja de trabajo ROMANO.

Si desea que los números romanos aparezcan en otras partes del pie de página, puede reemplazar la propiedad .CenterFooter con .LeftFooter o .RightFooter. También puede utilizar .LeftHeader, .CenterHeader o .RightHeader, si lo desea.

El código de la macro RomanPageNums funciona en todas las versiones recientes de Excel. Si está utilizando Excel 2000 o superior, también puede reemplazar la línea real que establece el pie de página con el siguiente código:

.PageSetup.CenterFooter = Application.Roman(J)

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2518) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posteriores) aquí:

enlace: / excelribbon-Roman_Numerals_for_Page_Numbers [Números romanos para números de página].