VBA Excel - Como converter texto das células em comentários - How to convert Excel Text to Comments using VBA

| Blog Office VBA | Blog Excel | Blog Access |

Documentar o conteúdo de algumas células torna-se muito útil para direcionar o que os usuários estão analisando num relatório, Scorecard, Dashboard.

Sub ConvTxt2Comment()

    Dim sText As String     ' Comment String

    Dim i1 As Long          ' Counter

    Dim sUser As String     ' User Name

    Let sUser = Application.UserName

For i1 = 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

    

    Let sText = ActiveSheet.Cells(i1, 5).Value

       

    'Deletes Existing Comments

    Cells(i1, 3).ClearComments

    

    ' Creates Comment

    Cells(i1, 3).AddComment

    Cells(i1, 3).Comment.Text Text:=sUser & Chr(10) & sText

    

Next i1

End Sub

Caso já existam comentários nas células, um erro ocorrerá. Então, antes de acrescentar os comentários é bom que todas as células estejam sem quaisquer deles.

Reference: http://vbadud.blogspot.com.br/

Tags: VBA, Excel, Add Comments in Excel VBA, Comments.Add in Excel VBA, Delete Comments using VBA