Blog Archive

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2005-03-17
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