Traducir fórmulas al inglés o al idioma local de Excel
publicado
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]
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.
Estando de vacaciones comparto fórmulas con los ingleses y me gusta traducirlas al vuelo con una pequeña macro:
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.zipFetching info...