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

Dicas Microsoft Excel VBA(Visual Basic Application)
SaberExcel


TODAS AS FÓRMULAS EXISTENTES NA FOLHA DE PLANILHA EM COMENTÁRIOS
'Esta macro insere as formulas usadas em comentarios,
'Todas as formulas usadas na folha de planilha

Sub Formulas_em_Comentarios()
Dim cell, Largura, Altura

On Error Resume Next

For Each cell In ActiveSheet.UsedRange
If cell.HasFormula Then
cell.AddComment
cell.Comment.Text Text:=cell.FormulaLocal
With cell.Comment.Shape
Largura = .Width
Altura = .Height
.TextFrame.AutoSize = True

If .Width > 350 Then
.Width = 350
.Height = 55
End If

End With
End If
Next
Saber1.Shapes("sb1").Visible = True
Saber1.Shapes("sba").Visible = False
End Sub

'Macro para deletar todos os comentários inseridos na planilha.
Sub Deleta_comentarios()
For i = ActiveSheet.Comments.Count To 1 Step -1
ActiveSheet.Comments(i).Delete
Next i
Saber1.Shapes("sba").Visible = True
Saber1.Shapes("sb1").Visible = False
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Baixar exemplo de planilha excel vba contendo a macro acima

Publicidade:

Compras pela internet com muita segurança e bons preços

{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

Macro microsoft excel vba insere texto em comentario a partir de determinadas células.

Macros do Aplicativo Microsoft Excel VBA, inserem textos em um objeto Comentário através de célula, alternando-os.

Sub Texto_da_celula_no_comentario()
[F12] = "Texto da célula no comentário"
[F18] = "Saberexcel - o site das macros!"
[F25] = "Aprenda Microsoft Excel VBA com Qualidade - Saberexcel"

On Error Resume Next
Dim sb As Range
sb = Range("F12,F18,F25").Select
For Each sb In Selection
sb.Comment.Text Text:=sb.Text
Next

End Sub

Sub Texto_da_celula_no_comentario_1()
[F12] = "Aprender Macros Microsoft Excel VBA"
[F18] = "Esforço, boa vontade e necessidade de aprender!"
[F25] = "Muitos alunos já se profissionalizaram, produzem belos exemplos"

On Error Resume Next
Dim sb As Range
sb = Range("F12,F18,F25").Select

For Each sb In Selection
sb.Comment.Text Text:=sb.Text
Next

End Sub

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

Macros do Aplicativo Microsot Excel VBA, inserem uma determinada altura em comentarios.

Esta macro insere determinada altura no comentário
Sub Alterar_altura_comentarios()
[E5] = "Comentario com Altura(20)"
Texto_no_comentario
On Error Resume Next
Dim sb As Comment
For Each sb In ActiveSheet.Comments
sb.Shape.Height = 20
Next sb
End Sub

Macro auxliar para efeturar o teste.....
Sub Alterar_altura_comentarios_II()
[E5] = "Altura alterada para(60)"
Texto_no_comentario
On Error Resume Next
Dim sb As Comment
For Each sb In ActiveSheet.Comments
sb.Shape.Height = 60
Next sb
End Sub

Macro auxiliar com finalidade didática usada para o teste do usuário
Esta macro insere dados da célula ativa no comentario
Sub Texto_no_comentario()
On Error Resume Next
Dim sb As Range
For Each sb In Selection
sb.Comment.Text Text:=sb.Text
Next
End Sub


Aprenda Microsoft Excel VBA com qualidade - Saberexcel