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-02-20
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