Muchas de las macros que grabamos en un idioma de Excel “truenan” cuando las corremos en otro idioma. Por ejemplo: una tabla din\u00e1mica al agrupar fechas en ingl\u00e9s le pone el nombre “years” al a\u00f1o, mientras que en espa\u00f1ol le dice: “a\u00f1os”. El problema se complica porque no es suficiente buscar una versi\u00f3n de ingl\u00e9s y otra de espa\u00f1ol, sino que hay un mont\u00f3n de cada una.<\/p>\n
Aqu\u00ed les paso un c\u00f3digo que revisa si estamos en ingl\u00e9s o espa\u00f1ol, y si no es ninguno de los dos, muestra un mensaje de aviso.<\/p>\n
Dim v_Idioma As String
\n Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI)
\n ‘ Revisa si est\u00e1 en ingl\u00e9s
\n Case 1033, 3081, 10249, 4105, 9225, 14345, 6153, 8201, 5129, 13321, 7177, 11273, 2057, 1033, 12297
\n v_Idioma = “Ingl\u00e9s”
\n ‘ Revisa si est\u00e1 en espa\u00f1ol
\n Case 1034, 2058, 3082, 11274, 16394, 13322, 9226, 5130, 7178, 12298, 17418, 4106, 18442, 19466, 6154, 15370, 10250, 20490, 14346, 8202
\n v_Idioma = “Espa\u00f1ol”
\n Case Else
\n MsgBox “Lenguaje no reconocido como ingl\u00e9s ni espa\u00f1ol. Puede que la macro no despliegue el a\u00f1o correctamente.”
\n v_Idioma = “Sabr\u00e1 Dios cu\u00e1l es el ” & Application.LanguageSettings.LanguageID(msoLanguageIDUI)
\n End Select<\/p>\n","protected":false},"excerpt":{"rendered":"
Muchas de las macros que grabamos en un idioma de Excel “truenan” cuando las corremos en otro idioma. Por ejemplo: una tabla din\u00e1mica al agrupar fechas en ingl\u00e9s le pone el nombre “years” al a\u00f1o, mientras que en espa\u00f1ol le …<\/p>\n