UDF para obtener la fórmula de una celda como una cadena de texto en versiones previas a Excel 2013
Como anteriormente vimos en este artículo, Excel 2013 incluyó, entre otras, una nueva función llamada FORMULATEXTO, que según la ayuda en línea de Office, se describe como: Devuelve la fórmula en una cadena.
Qué quiere decir lo anterior. Significa que cualquier fórmula que tengamos en una celda, podremos extraerla textual y mostrarla como una cadena de Texto, como lo vemos en la Figura 1.
Figura 1. Usando la función FORMULATEXTO en Excel 2013.
Qué sucede si tengo Excel 2010 o anteriores.
Como siempre digo, si Excel no lo tiene, haz una macro. Esto aplica si quieres usar la función FORMULATEXTO, pero tu versión de Excel es 2010 o anterior.
Para esto, realizamos una función personalizada (UDF) media macros de Excel y le pondremos el nombre de ObtenerFormula.
Si estás interesado en el tema de la cración de Funciones (UDF) en Exce y vba, revisa estos artículos de este mismo Blog.
La función ObtenerFormula tiene el mismo comporamiento que FORMULATEXTO y puede ser perfectamente en versiones de Excel previas a 2013.
Figura 2. Usando ObtenerFormula (UDF).
Código vba de la función
Ubicación: Módulo1
Function ObtenerFormula(Celda As Range) As String ' Application.Volatile ' If Celda.HasArray Then ObterFormula = "{" & Celda.FormulaLocal & "}" Else ObtenerFormula = Celda.FormulaLocal End If ' End Function
