Traducir fórmulas al inglés o al idioma local de Excel

[pegones1]

Estando de vacaciones comparto fórmulas con los ingleses y me gusta traducirlas al vuelo con una pequeña macro:

Sub Traduce_Formulas()

    ' Escribe en las celdas de la columna A un signo de apóstrofo (') seguido

    ' por la fórmula en ingles o en el idioma local (por ejemplo: en español)

    ' y con formato de VBA y selecciona esas celdas.

    Dim celda As Range


    On Error Resume Next

    For Each celda In Selection.Cells

        celda.Offset(0, 3).Formula = celda.Formula

        If Err.Number <> 0 Then

            Err.Clear

            celda.Offset(0, 3).FormulaLocal = celda.Formula

        End If

        If Err.Number <> 0 Then

            Err.Clear

            celda.Offset(0, 1).Formula = ""

            celda.Offset(0, 2).Formula = ""

        Else

            celda.Offset(0, 1).Formula = "'" & celda.Offset(0, 3).FormulaLocal

            celda.Offset(0, 2).Formula = "'" & celda.Offset(0, 3).Formula

        End If

    Next celda

End Sub[/CODE]

La idea la he sacado de este tema:

[DBOX]Solucionado Traducción de fórmulas para programar[/DBOX]

Os dejo el programa para si lo queréis mejorar (especialmente para MacroAntonio)

Si se escribe la fórmula en inglés la traduce al español, si se escribe la fórmula en español o en el idioma local de Excel, la traduce al inglés. Espero que os sirva para hacer más amigos internacionales.

TraduceFormulas.zip

[Antoni]

Hola Pedro:

Veo que has vuelto en forma de las vacaciones.

Yo ya domino al ingles, sobre todo si es pequeñito y se deja,....jajaja

Me ha gustado mucho tu procedimiento, y además como decía Einstein, "Las fórmulas además de efectivas, han de ser simples y bonitas".

Saludos

[pegones1]

Hola Macro,

Realmente aún estoy de vacaciones aunque veo que tú ya debes estar de vuelta porque he visto que te ofreces como "profe" avanzado, en edad y sabiduría, se entiende...

La verdad es que al inglés no se le domina ni aún "si es bajito y se deja", con lo revueltos que están ahora.

Si es bajito y se deja - Paperblog

Aunque no lo creas, en la carátula del Portal Inglés escribí la coletilla:

"Para dominar el inglés, si es bajito y se deja"

English Portal - Portal Inglés

[pegones1]

Este tema lo abrí hace tiempo y ahora he podido incluirlo en mi blog, explicando cómo hacía las traducciones de las fórmulas antes de usar este traductor y lo fácil que es usar esta nueva versión.

[DBOX]Cómo traducir localmente fórmulas Excel | Pedro Wave for Excel Guys[/DBOX]

[ATTACH]37074.vB[/ATTACH]

[Gerson Pineda]

Pedro! excelente trabajo, en horabuena...

Saludos