Copiar fórmulas en comentarios de celda

Cuando tenemos una hoja de cálculo compleja, a menudo es necesario comprobar las fórmulas para asegurarnos de que todo funciona correctamente y los resultados son los que deseamos. Esto puede hacerse mirando las celdas implicadas en cada fórmula haciendo clic en cada una de ellas. Si se trata de una hoja con muchas fórmulas, esta operación puede ser muy larga y tediosa.

Una manera más fácil de hacerlo es copiar la fórmula en el comentario de la celda. De esta forma sólo tenemos que situar el cursor del ratón encima de la celda y la fórmula aparecerá como si la hubiésemos escrito en un comentario. Podremos verlo al instante sin tener que hacer clic en la celda, solamente con pasar el cursor por encima.

El siguiente código agrega cualquier fórmula como comentario. Si hay un comentario existente en alguna celda, se conserva y si hay una fórmula en el comentario, ésta se actualizará. El símbolo | se utiliza para separar los comentarios de la fórmula:

Sub note()
For Each window In Windows
    For Each Worksheet In window.SelectedSheets
        For Each cell In Application.Selection
            addr = Worksheet.Name & "!" & cell.Address      
            temp = ""      
            On Error Resume Next  
            temp = Range(addr).Comment.Text    
            If InStr(temp, "|") Then    
                temp = Mid(temp, InStr(temp, "|") + 1)
            End If
            Range(addr).ClearComments
            If Range(addr).HasFormula = True Then
                 Range(addr).AddComment (cell.Formula & "|" & temp)
            Else
                 If temp <> "" Then Range(addr).AddComment temp
            End If
        Next cell
    Next worksheet
Next window
End Sub