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)

O Site das Macros excel vba
Essa macro do Aplicativo Microsoft Excel VBA (Visual Basic Application) , insere o contéudo do comentário na célula, onde esta o comentário.

Option Explicit


Sub Salvar_comentario_na_celula()
Dim vCelula As Excel.Range
Dim vComentario As String
Dim vContador As Integer

With Sheets("Plan1")

On Error Resume Next

For Each vCelula In .UsedRange.Cells
vComentario = ""
vComentario = vCelula.Comment.Text
If vComentario <> "" Then
vContador = InStr(vComentario, ":")
If vContador > 0 Then
vComentario = Right(vComentario, Len(vComentario) - vContador - 1)
End If
vCelula = vComentario
End If
Next

On Error GoTo 0
End With

End Sub

Sub limpar_teste()
[H6,G17].Value = ""
End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA (Visual Basic Application), sozinho, com baixo custo,
praticando com os produtos didáticos SaberExcel

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

Esta macro do Aplicativo Microsoft Excel VBA, insere um comentário falso na folha de planilha,
isto é insere autoformas que imitam um comentário, um pequeno triângulo vermelho representando
o indicador do comentário (no canto superior esquerdo da célula) e um retangulo contendo o comentário
propriamente dito, obtido atraves de um inputbox(entrada de dados).

Sub Falso_Comentario()
Dim com As String
Dim aSh As Worksheet
Dim cloneC As Shape

com = InputBox("Insira seu comentário.....", "Inserir comentário que será falso")

If com <> "" Then
On Error Resume Next

With Selection.Validation
.Add Type:=xlValidateInputOnly
.InputTitle = "Falso comentário :"
.InputMessage = com
End With

Else: Exit Sub
End If

Application.ScreenUpdating = False

Set aSh = ActiveSheet
Set poZ = ActiveCell

p1 = poZ.Top
p2 = poZ.Left

Set cloneC = aSh.Shapes.AddShape(msoShapeRightTriangle, _
p2, p1, 5#, 5#)

With cloneC
.IncrementRotation 90#
.Fill.ForeColor.SchemeColor = 10
.Line.Visible = msoFalse
End With
End Sub

Aprenda Aplicativo Microsoft Excel VBA --((SaberExcel))--

Macro formata o nome do autor do comentário em vermelho
Saberexcel - o site das macros

Esta macro do Aplicativo Microsoft Excel VBA, mostrar nome do autor no comentário formatado em vermelho.
Sub adicionando_comentario_Titulo_autor_vermelho()
Dim TB As TextBox
With ActiveCell
If Not .Comment Is Nothing Then .Comment.Delete
With .AddComment("XL-Eves®" & vbLf & "Jesus é o Caminho a Verdade e a Luz")

Set TB = .Shape.OLEFormat.Object
With TB.Characters(1, 7).Font
.Bold = True
.Color = vbRed
End With
End With
End With
End Sub

Aprenda Microsoft Excel VBA com Sabaerexcel
Em casa, sozinho, com baixo custo.