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

Inline image 4
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.

Inline image 2

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.

Inline image 3


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



Nenhum comentário:

Postar um comentário

diHITT - Notícias