Función WorksheetFunction.Roman

El WorksheetFunction contiene funciones integradas que se pueden usar de la misma manera que las funciones de una hoja hoja de Excel.

Para poder usar cualquier función WorksheetFunction, se debe nombrar primero al objeto Application.

Ejemplo: Application.WorksheetFunction.Roman

La función WorksheetFunction.Roman(arg1, [arg2]) es equivalente a “=NUMERO.ROMANO(número, [formal])” que se usa en las celdas de Excel para convertir un número arábigo (1,2,3,..) en un número romano (I,V,X, ...). La diferencia radica en que la primera se puede incluir en el lenguaje VBA para programar una macro. La notación de esta función en VBA es:

Las restricciones de la función WorksheetFunction.Roman son las mismas que para Numero.Romano, por lo tanto los números que convierte solo pueden ser mayores a cero y menores a 4000 (0< x < 4000).

Ejemplo:

Cuando hablamos de ciclos o semestres en la universidad se usan números romanos en vez de los arábigos, por tanto:

 

Sub Ejemplo()

Arabigo = Worksheets("Hoja1").Range("D4")

Romano = Application.WorksheetFunction.Roman(Arabigo)

Range("E4") = Romano

End Sub

 

 

Descargar ejemplo: Función WorksheetFunction.Roman

Por: María Alejandra Ceballos Valencia