La función `WorksheetFunction.Arabic` en VBA de Excel se utiliza para convertir números romanos a su equivalente en números arábigos. Por ejemplo, si tienes el número romano «XII», la función devolverá el número árabe 12.

Aquí hay un ejemplo de cómo usar la función `WorksheetFunction.Arabic` en VBA:

Sub ConvertirRomanoAÁrabe()
    ' Declarar la variable para el número romano
    Dim numeroRomano As String
    ' Declarar la variable para el resultado en árabe
    Dim resultadoArabe As Integer
    
    ' Asignar el valor del número romano
    numeroRomano = "XII"
    
    ' Usar la función WorksheetFunction.Arabic para convertir
    resultadoArabe = Application.WorksheetFunction.Arabic(numeroRomano)
    
    ' Mostrar el resultado en una ventana de mensaje
    MsgBox "El número romano " & numeroRomano & " en árabe es " & resultadoArabe
End Sub

Este código define una subrutina llamada `ConvertirRomanoAÁrabe`. Primero declara dos variables: una para almacenar la cadena del número romano y otra para el valor resultante después de la conversión. Luego, utiliza la función `WorksheetFunction.Arabic` para convertir el número romano en su equivalente arábigo y finalmente muestra el resultado en un cuadro de mensaje.

Puedes ejecutar esta subrutina directamente desde el editor VBA, y verás un mensaje con el resultado de la conversión. Si deseas aplicarlo a datos de una hoja de cálculo, puedes modificar la variable `numeroRomano` para que tome el valor de una celda específica, como se muestra a continuación:

Sub ConvertirCeldaRomanoAÁrabe()
    ' Declarar la variable para la celda que contiene el número romano
    Dim celdaRomano As Range
    ' Declarar la variable para el resultado en árabe
    Dim resultadoArabe As Integer
    
    ' Establecer la referencia a la celda con el número romano (por ejemplo, A1)
    Set celdaRomano = ThisWorkbook.Sheets("Sheet1").Range("A1")
    
    ' Usar la función WorksheetFunction.Arabic para convertir
    resultadoArabe = Application.WorksheetFunction.Arabic(celdaRomano.Value)
    
    ' Mostrar el resultado en una ventana de mensaje
    MsgBox "El número romano " & celdaRomano.Value & " en árabe es " & resultadoArabe
End Sub

En este ejemplo, la subrutina obtiene el valor del número romano de la celda A1 de la hoja «Sheet1» del libro de trabajo actual y luego realiza la conversión y muestra el resultado.

Recuerda adaptar el código para que se ajuste a tus necesidades específicas, incluyendo los nombres de las hojas y las referencias de las celdas.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto