SaberExcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, formata o todos os comentários existentes
no livro, isto é em todas as folhas de planilhas.
1º.) - Formata o tamanho da fonte a ser empregada
2º.) - Determina o nome da fonte a ser empregada
3º.) - Formata a cor da fonte a ser empregada
4º.) - Mostra o email desejado em todos os comentários.
5º.) - Insere dados na célula(D17) e carrega o comentário com esses dados.
6º.) - Insere formato da fonte em negrito.
7º.) - Insere formato da da data e hora atual (Agora()).

Sub vba_comentario_formatando()
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
Dim Wsh As Worksheet, vMeuComentario As Comment

For Each Wsh In Worksheets
For Each vMeuComentario In Wsh.Comments
vMeuComentario.Shape.OLEFormat.Object.AutoSize = True

With vMeuComentario.Shape.OLEFormat.Object.Font
Range("D17").Comment.Text Text:= _
"Excel VBA Estudos®" & Now() & Chr(10) & " * Digite um valor menor que Célula E18! - << [email protected] >>"
.Name = "Courrier New"
.Size = 10
.ColorIndex = 12
.Bold = True
End With

vMeuComentario.Shape.OLEFormat.Object.ShapeRange.Fill.ForeColor.SchemeColor = 27
Next vMeuComentario
Next Wsh
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub


Aprenda Microsoft Excel VBA(Visual Basic Application)

Saberexcel - o site das macros microsfot excel vba
Macro do Aplicativo Microsoft Excel VBA, formata o comentário com fundo Azul em todas as folhas de planilhas (For each)

Sub Formatar_Comentario()
Dim Wks As Worksheet, vComentario As Comment

For Each Wks In Worksheets
For Each vComentario In Wks.Comments
vComentario.Shape.OLEFormat.Object.AutoSize = True

With vComentario.Shape.OLEFormat.Object.Font
.Name = "Verdana"
.Size = 10
.ColorIndex = 9
.Bold = True
End With

vComentario.Shape.OLEFormat.Object.ShapeRange.Fill.ForeColor.SchemeColor = 35
Next vComentario
Next Wks
End Sub

Aprenda Microsoft Excel VBA ((Saberexcel))

Saberexcel - site das macros
Anota no comentário as vezes que a célula foi acessada e os dados modificados

Essa macro do Aplicativo Microsoft Excel VBA, anota todas vezes que acessar a célula(E5) e fazer alguma modificação, mostrando a palavra inserida, hora e data do acesso. Observe que usei o Evento Worksheet_Change (No módulo de código da planilha)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
If Target.Row <> 5 Then Exit Sub

Dim ccc As String
ccc = Format(Date + Time, "mm/dd/yy hh:mm") _
& " " & Target.Value ' -- Application.UserName
If Target.Comment Is Nothing Then
Target.AddComment.Text ccc
Else

Target.Comment.Text (Target.Comment.Text & Chr(10) & ccc)
End If

Target.Comment.Shape.TextFrame.AutoSize = True
End Sub

Aprenda Microsoft Excel VBA (Saberexcel)

{jcomments on}

vba_comentario_ajusta_tamanho_do_comentario_selecionado

Essa macro do Aplicativo Microsoft Excel VBA, ajusta comentarios em determinadas células selecionadas
neste caso o código selecionará os comentarios nas células(D6;E16;G27).
foi inserido intensionalmente mais algumas fórmulas para auxilar o teste,
(Aumenta o tamanho do comentário, ao mesmo tempo em que insere dados digitado na célula ativa)

Sub Auto_ajuste_comentarios_selecionados()
On Error Resume Next
Dim Sbx As Range
Dim vMinhaRange As Range
[D6,E16,G27].Select
Set vMinhaRange = Selection
For Each Sbx In vMinhaRange.Cells
With Sbx.Comment
.Shape.TextFrame.AutoSize = True
End With
Next Sbx
vMinhaRange.Select
[D6].Value = "Ajustando comentario"
Adiciona_Comentario_com_texto
End Sub

Macro auxiliar para o teste de ajuste, aumenta o tamanho
do comen-tario para realização do teste da macro acima, observem que a macro
Sub Adiciona_Comentario_com_texto, adiciona o texto da célula D6 no primeiro
comentário, finalidade didática .

Sub Alterando_tamanho_teste()
Dim sb As Object
For Each sb In ActiveSheet.Comments
sb.Shape.Width = 144
sb.Shape.Height = 72
Next sb
[D6].Value = "Alterando tamanho para o teste!!"
Adiciona_Comentario_com_texto
End Sub

Essa macro foi usada também como auxiliar ao ser chamada insere os dados da célula(D6) no comentário.

Sub Adiciona_Comentario_com_texto()
On Error Resume Next
[D6].AddComment
[D6].Comment.Text Text:=[D6].Text
End Sub


Aprenda Microsoft Excel VBA com qualidade

Saberexcel - O site das Macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), seleciona todas as células que contém comentario na folha de planilha.



Sub Seleciona_celulas_todos_comentarios()
Cells.SpecialCells(xlCellTypeComments).Select
MsgBox ("Todos os comentários selecionados"), vbInformation, "Saberexcel - site das macros"
End Sub

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






Publicidade
Compre com segurança, garantia e ótimos preços