En este post enseñaré un par de formas de trabajo para ver las fórmulas de un archivo Excel. En primer lugar veremos como mostrar las fórmulas en vez de resultados de manera general y luego mostrar las fórmulas como comentarios de aquellas celdas que si contienen fórmulas, para ello emplearé algunas rutinas de VBA.

1. Ver Fórmulas en vez de Valores
Para ver fórmulas en vez de valores, debemos activar la opción fórmulas, para ello en Excel 2010 en el ribbon Fórmula, hacemos click en Mostrar Fórmulas como se muestra en la siguiente figura.

Luego las celdas se verán como sigue:

Vista de las fórmulas en las celdas

2. Ver fórmulas como comentarios de celda

Para esto emplearemos la propiedad HasFormula que tienen las celdas, pero antes de ello determinaremos la fila y columna más alejadas para definir el rango donde buscar las celdas que tienen fórmula. Esto se determinará con el siguiente función:

[code language=”vb”]
Function UltimaCelda() As String
Dim nf As Integer ‘numero de fila
Dim nc As Integer ‘numero de columna
nf = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
nc = ActiveSheet.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
UltimaCelda = Cells(nf, nc).Address
End Function
[/code]

Las líneas 4 y 5 determinan las últimas filas y columnas con contenido. Puedes hacer =UltimaCelda() en cualquier celda para que veas el resultado.

Luego desde el rango A1:UltimaCelda se busca aquellas celdas con fórmulas y las fórmulas pasan a ser los comentarios. Esto se consigue con este código:

[code language=”vb”]
Sub ComentarioFormula()
Dim rgLoop As Range
Set rgLoop = Range("$A$1:" & UltimaCelda())
‘Bucle
For Each cell In rgLoop
If cell.HasFormula Then
cell.AddComment (cell.Formula)
End If
Next cell
‘Libera memoria
Set rgLoop = Nothing
End Sub
[/code]

En la línea 6 se comprueba con la propiedad HasFormula si posee fórmula la celda, si es así se añade como comentario con el método AddComment. El archivo Excel con estos códigos lo puedes descargar aquí.

Ver las fórmulas como comentarios de celda

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *