Macro para pasar de números Romanos a arabigos

[Visor]

Estimados amigos del foro. para pasar de numeros a arabigos a romanos en codigo macro me han sugerido usar evaluate(=

En realidad quiero que lo que esta en un combobox CbxRoman pueda mostrarse en numeros arabigos 

Asi:

Sub GetNumeroRomano()
    Dim d As Long
    d = 22 'CbxArabigo.value
    MsgBox Evaluate("=ROMAN(" & d & ")")
End Sub

pero a la inversa para pasar de romano a arabigo no encuentro el modo

he probado así:

Sub GetNumeroArabe()
    Dim d As String
    d = "II" 'CbxRoman.value
    MsgBox Evaluate("=NUMERO.ARABE(" & d & ")")
End Sub

Pero no funciona

Tienen alguna sugerencia?

Gracias

[AlexanderS]

Hola, de forma nativa excel no tiene forma de pasar números romanos a arabico, hice esta función para que cumpla con el cometido:

Sub Num_RoM()
 Dim x As String
 Dim valor() As Variant
 Dim total() As Variant
 ReDim total()
 ReDim valor()
 
 x = "mdcccxxvi" 'CbxArabigo

 For i = 1 To Len(x)
    y = rom_Ara(Mid(Trim(UCase(x)), i, 1))
    valor(i - 1) = y: y = ""
    ReDim Preserve valor(UBound(valor) + 1)
 Next i

For r =  To UBound(valor) - 1

    If valor(r) >= valor(r + 1) Then total(h) = Val(valor(r)) + Val(valor(r + 1)) _
    Else: total(h) = Val(valor(r + 1)) - Val(valor(r))
    
    ReDim Preserve total(UBound(total) + 1)
    
    r = r + 1: h = h + 1

Next r

MsgBox Application.Sum(total)
End Sub

Function rom_Ara(num As String)
Select Case num
Case "I": dig = 1
Case "V": dig = 5
Case "X": dig = 10
Case "L": dig = 50
Case "C": dig = 100
Case "D": dig = 500
Case "M": dig = 1000
Case "G": dig = 5000
End Select

rom_Ara = dig
End Function

Solo debes copiar todo en un modulo o en tu formulario.

 

Salu2

[Antoni]

Para que funcionara, he tenido que cambiar:

ReDim total()
ReDim valor()

'por

ReDim total(0)
ReDim valor(0)

[Visor]

Hace 1 hora, Riddle dijo:

de forma nativa excel no tiene forma de pasar números romanos a arabico

Saludos

Gracias estimados Riddle y Macro Antonio

Comento, si se refieres a formulas, en excel 2013 tengo  =NUMERO.ARABE(A1) que hace que el numero romano que este en A1 se vea en arabigo. Grabando la macro resulta lo siguiente

Sub Macro2()
'
' Macro2 Macro
'Otro intento
    Range("B1").FormulaR1C1 = "=ARABIC(R[-1]C[-1])"
    Range("C1").Select
End Sub

Que funciona de cierto modo pues cuando quiero usar en userform por ejemplo para un msgbox con Evaluate(, 

no funciona. 

si esto puedes verlo de otro modo para que existe otra opción te lo hago saber.

Sin embargo al parecer no hay otro modo que el uso de Case como lo has hecho.

 

Estimado Macro Antonio, efectivamente al colocar el 0 en paréntesis paso de rojo a negro, lo que no paso es    For r =  To UBound(valor) - 1, no se la razon, y no deja ejecutar

Saludos

[AlexanderS]

Si Macro Antonio, no se porque cuando copie el código se borraron los ceros.

[AlexanderS]

Hace 3 minutos , Visor dijo:

Comento, si se refieres a formulas, en excel 2013 tengo  =NUMERO.ARABE(A1) que hace que el numero romano que este en A1 se vea en arabigo. Grabando la macro resulta lo siguiente

Bueno esa formula solo es validad para versiones de office 2013 en adelante, sinceramente no la conocía...

[AlexanderS]

Hace 7 minutos , Visor dijo:

Estimado Macro Antonio, efectivamente al colocar el 0 en paréntesis paso de rojo a negro, lo que no paso es    For r =  To UBound(valor) - 1, no se la razon, y no deja ejecutar

La forma correcta es esta:  For r =  0 To UBound(valor) - 1

Perdona por eso cuando publique la respuesta no se porque razón se borraron los ceros en el código.

[Visor]

Hace 7 minutos , Riddle dijo:

sinceramente no la conocía...

Ya,... y siendo asi como lo haria funcionar en una macro para ya sea variable para mostrar en un label? que seria lo mismo en en un msgbox de un userform

Con Evaluate (,... no me ha funcionado

[AlexanderS]

Hace 11 minutos , Visor dijo:

Ya,... y siendo asi como lo haria funcionar en una macro para ya sea variable para mostrar en un label? que seria lo mismo en en un msgbox de un userform

Con Evaluate (,... no me ha funcionado

Mmm tal vez así:

x="XX"
c=WorksheetFunction.ARABIC(x)
msgbox c

No puedo probar ya que tengo office 2010 y esa formula no funciona en esta versión.

Comentas.

[Visor]

Hola Riddle funcionó a la perfección es mas pude usarlo dentro de las etiquetas labels concatenado con el dato de un combobox 

La duda que me queda es que si es necesario declarar la variable x y siendo así como sería?

pues es un numero o es una letra

 

Parece ser que han quitado lo de valorar en los temas lo que había aquí a la izquierda, no han quitado el corazón y el me gusta.

Gracia por todo tu apoyo

[AlexanderS]

Hace 21 minutos , Visor dijo:

La duda que me queda es que si es necesario declarar la variable x y siendo así como sería?

pues es un numero o es una letra

No es necesario, pero de ser así seria como texto: Dim x as string

Salu2

[Visor]

Gracias Riddle

Fue un éxito la macro, ademas,.. en caso de que alguien no tenga esta funcion en su version de excel, funciona la macro que hiciste con CASE

Tema solucionado