SaberExcel VBA Estudos®
Essa macro do Aplicativo Microsoft Excel VBA, insere um comentário formatado em vermelho, na célula ativa da folha de planilha, o retorno do comentário é auxiliado por uma inputbox,

Option Explicit

Sub Comentario_Celula()
Dim rnCell As Range
Dim SbNome As String
Dim vlr_Comentario As Variant
Dim iEventos As Integer
Dim resposta As String
SbNome = Application.UserName

Set rnCell = ActiveCell

With rnCell
'Caso nao exista comentario na celula
resposta = MsgBox("Deseja inserir um comentario na célula ativa?", vbYesNo, "Saberexcel - site das macros")
If resposta = vbYes Then
If .Comment Is Nothing Then
'Comentario digitado pelo usuario
vlr_Comentario = Application.InputBox _
("Digite seu comentario:", "Comentario na celula e formata", Default:="Saberexcel.com", Type:=2)

'fecha a caixa de dialogo com o botao cancelar
If vlr_Comentario = False Then Exit Sub

'Aqui é o nome do usuario e o comentario da celula
.AddComment Text:=SbNome & ":" & vbLf & vlr_Comentario

'Aqui formata a celula do comentario
With .Comment.Shape.TextFrame
With .Characters.Font
.Size = 11
.ColorIndex = 3
.Name = "Arial"
End With
.AutoSize = True
'o nome do usuario em negrito
.Characters(Start:=1, Length:=Len(SbNome)).Font.Bold = True
End With

Else
'verifica se a celula já tem comentario
iEventos = MsgBox("Deseja remover a célula comentário ?", vbYesNoCancel, "Excluir Comentario")
Select Case iEventos
Case vbYes
.Comment.Delete
Exit Sub
Case vbCancel
Exit Sub
Case vbNo
vlr_Comentario = Application.InputBox _
("Digite o texto comentar aqui :", "Inserir / Editar célula comentário ", Default:="Saberexcel.com", Type:=2)
If vlr_Comentario = False Then Exit Sub
.Comment.Delete
.AddComment Text:=SbNome & ":" & vbLf & vlr_Comentario
End Select
End If
End If
End With

Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

Aprenda tudo sobre Aplicativo Microsoft Excel VBA com Saberexcel


Baixe o exemplo de planilha contendo a macro acima



Publicidade:
Compre com segurança, garantia e preços baixos nas lojas submarino

Saberexcel - o site das macros
Inserir um comentário com texto formatação fonte e tamanho predefinido

Esta macro do aplicativo Microsoft Excel VBA, insere um comentario personalizado, com formatação, e texto pre-determinado:
Determinar a fonte da formatação
Determinar a cor da fonte
Inserir (autofit) para ajustar ajuste de tamanho do comentário ao texto

Sub inserir_comentario()
Dim x As Range
Set x = ActiveCell

x.ClearComments
x.AddComment.Text _
Text:="Aprender excel vba é fundamental (Saberexcel)"
x.Comment.Visible = True
x.Comment.Shape.Select True

With Selection.Font
.Name = "Tahoma"
.FontStyle = "Regular"
.Size = 12
End With

With Selection.Interior
x.Interior.ThemeColor = xlThemeColorAccent3 '2007 se testar outra versão, desabilite a linha
End With

With Selection
.Placement = xlFreeFloating
.PrintObject = False
.Locked = True
.LockedText = True
.AutoSize = True
End With

Application.DisplayCommentIndicator _
= xlCommentIndicatorOnly
End Sub


Aprenda Microsoft Excel VBA (SaberExcel)

Saberexcel - o site das macros
Formatando a fonte do comentário em negrito as quatro primeiras letras

Essa macro adiciona e formata as primeira 4 letras em negrito de um comentário
Macro formata de acordo com o números de letras desejado, observe a linha de código Selection.Characters(1, 4).
Esta macro formata o comentário as 4 primeiras letras, formata a fonte em negrito e se na célula já um houver comentário mostra um erro, manda selecionar outra célula.

Sub comentario_4_primeira_letra_Negrito()

On Error GoTo sbError

If Not ExisteCommentaire Then
ActiveCell.AddComment
End If

ActiveCell.Comment.Visible = True
ActiveCell.Comment.Text Text:="Saberexcel - Comentário para teste!"
ActiveCell.Comment.Shape.Select
Selection.Characters(1, 4).Font.FontStyle = "Bold"
ActiveCell.Comment.Visible = False
Exit Sub
sbError: MsgBox ("Comentário Existente!, selecione outra célula!"): Exit Sub

End Sub

Aprenda Microsoft Excel VBA (Saberexcel)
em casa, sozinho, a custo muito baixo. (esforço e vontade)

Saberexcel - o site das macros
Esta macro do aplicativo Microsoft Excel VBA, formatam o tamanho da fonte
dos comentarios em uma determinada folha de planilha

Sub Tamanho_fonte_comentario()
On Error Resume Next
Dim sbComentario As Comment
For Each sbComentario In ActiveSheet.Comments
sbComentario.Shape.TextFrame.Characters.Font.Size = 9
Next
End Sub

'Esta macro também formata o tamanho da fonte dos comentarios, porém, age
'como uma auxiliar para testes.
Sub Tamanho_fonte_comentario()
On Error Resume Next
Dim sbComentario As Comment
For Each sbComentario In ActiveSheet.Comments
sbComentario.Shape.TextFrame.Characters.Font.Size = 18
Next
End Sub

Aprenda Microsoft Excel VBA com qualidade Saberexcel
sozinho em casa, com baixo custo

Compre com segurança numa das maiores lojas do pais, tem de tudo a bons preços.

Saberexcel - site das macros

Macro do Aplicativo Microsofoft Excel VBA, formata o comentário em uma determinada planilha com a cor verde de fundo e a fonte em azul é.

Sub formata_cores_comentario()
Dim Wsh As Worksheet, vComentario As Comment
For Each Wsh In Worksheets
For Each vComentario In Wsh.Comments

vComentario.Shape.OLEFormat.Object.AutoSize = True
With vComentario.Shape.OLEFormat.Object.Font
.Name = "Tahoma"
.Size = 10
.ColorIndex = 5 'cor número cinco refere-se a cor Azul
End With
vComentario.Shape.OLEFormat.Object.ShapeRange.Fill _
.ForeColor.SchemeColor = 42 '
Next vComentario

Next Wsh
End Sub

Aprenda Microsoft Excel VBA (( SaberExcel ))