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/
Nenhum comentário:
Postar um comentário