EXCELer

Dave Peterson, deu a conhecer uma UDF (Função definida pelo utilizador) que mostra, numa célula, o conteúdo de um comentário de outra célula.

No exemplo, a Função chama-se GetComment():



O Código:

Public Function GetComment(FCell As Range) As Variant
    Application.Volatile
    
    Set FCell = FCell(1)
    
    If FCell.Comment Is Nothing Then
        GetComment = ""
    Else
        GetComment = FCell.Comment.Text
    End If
    
End Function