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

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

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 ))

Inserir um gráfico no comentário na celula (a1)
Esta macro pega o gráfico da plan1, e insere no comentário na célula A1 da Plan1, forneça para macro o endereço "Path" Diretório correto onde irá salvar o gráfico. Primeiro crie o gráfico que deseja exportar para o diretório, e automaticamente, inserir no comentário na célula(A1)

Sub Insere_Image_Grafico_dentro_comentario_CelulaA1()
Dim vMinhaImagem As String
Dim vGrafico As ChartObject
Dim Altura As Single, Largura As Single

vMinhaImagem = "C:\vba\imagem_escolhida.gif" ' vai exportar essa imagem do gráfico criado para esse dir

'Define sobre o gráfico dentro da Planilha Plan1
Set vGrafico = Plan1.ChartObjects(1)
'Exporta o gráfico criado como GIF
vGrafico.Chart.Export vMinhaImagem, "GIF"

'recupera a dimensão do gráfico para aplicar no comentário
Altura = vGrafico.Height
Largura = vGrafico.Width

'Verifica se já existe um comentário na celula A1
'e deleta se existe
If Not Plan1.Range("A1").Comment Is Nothing Then _
Plan1.Range("A1").Comment.Delete

'Criar um novo comentário na célula a1
With Plan1.Range("A1")
.AddComment
.Comment.Visible = False
'Define a altura do comentário do grafico
.Comment.Shape.Height = Altura
'Define a largura do comentário
.Comment.Shape.Width = Largura
'Insere a imagem dentro do comentário
.Comment.Shape.Fill.UserPicture vMinhaImagem
End With

'deleta a imagem exportada
Kill vMinhaImagem

'deleta o gráfico
vGrafico.Delete
End Sub

Aprenda Microsoft Excel VBA (( SaberexExcel ))

- Saberexcel - o site das Macors

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), retorna a quantidade de comentários existente em uma determinada folha de planilha, neste caso em particular, usamos a planilha ativa.

Sub Contando_Comentarios_planilha()
Dim vConta_Comentario As Integer
Dim vCelula As Range
Dim sbx As String

' Sai do procediemtno se não houver comentários na folha de planilha
vConta_Comentario = 0

For Each vCelula In ActiveSheet.UsedRange
On Error Resume Next
sbx = vCelula.Comment.Text
If Err = 0 Then vConta_Comentario = vConta_Comentario + 1
Next vCelula

If vConta_Comentario = 0 Then
MsgBox "Nesta folha de planilha ativa, não há comentários!", vbInformation, "Saberexcel - site das macros"
Else
MsgBox "Nesta folha de Planilha existem: [ " & vConta_Comentario & " ] comentarios!", vbInformation, "Saberexcel - site das macros"
End If

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