EXCELer

Há uns tempos atrás, apresentei algum código relacionado com a inserção de comentários em determinadas células.


Hoje, apresento mais uma peça de Código, vista em Office Tips and Hints Blog que, pelo seu interesse aqui deixo e que funciona para a célula previamente seleccionada :



O Código:

Sub InsereComentario()
    Dim cell As Range
    On Error Resume Next
    Selection.ClearComments
    On Error GoTo 0
    For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
        If cell.Formula <> "" Then
            cell.AddComment
            cell.Comment.Visible = False
            On Error Resume Next
            cell.Comment.Text Text:=" Address:  " & cell.Address(0, 0) & Chr(10) & _
                                    " Value:  " & cell.Value & Chr(10) & _
                                    " Format:  " & cell.NumberFormat & Chr(10) & _
                                    " Formula: " & cell.Formula
            On Error GoTo 0
        End If
    Next cell
End Sub