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

Saberexcel - dicas de macros microsoft excel vba

Essa macro do aplicativo Microsoft Excel VBA adiciona um um texto a um comentario a partir da célula ativa.

Sub adicionando_comentario_com_texto()
On Error Resume Next
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=ActiveCell.Text
End Sub

'Macro auxiliar para os testes dos alunos desenvolvedores
Sub deleta_todos_teste()
Dim resposta As String
resposta = MsgBox("Deseja deletar todos os comentarios para teste?", vbYesNo + vbCritical, _
"Saberexcel - Site das Macros")
If resposta = 6 Then '=sim
For Each sb In ActiveSheet.Comments
sb.Delete
Next
End If
End Sub

Aprenda Microsoft Excel VBA com qualidade Saberexcel

Saberexcel - o site das macros
Macro ao Aplicativo Microsoft Excel VBA, arredonda comentarios nos cantos

Sub Adiciona_arredondando_comentario()
Application.ScreenUpdating = False
On Error GoTo ErrorSaber
With ActiveCell
.AddComment
.Comment.Visible = True
.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
.Comment.Shape.Select True
.Comment.Text Text:="Aprenda Microsoft Excel VBA com qualidade Saberexcel"
End With
With Selection
.Font.Size = 8
.ShapeRange.Shadow.Visible = msoFalse
.ShapeRange.ScaleWidth 1.2, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
.ShapeRange.Adjustments.Item(1) = 0.25
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
ErrorSaber:
Application.ScreenUpdating = True
End Sub

'Macro auxiliar usada nos testes com medidas diferentes e arredondados nos cantos
Sub Adiciona_arredondando_comentario_II()
Application.ScreenUpdating = False
On Error GoTo ErrorSaber
With ActiveCell
.AddComment
.Comment.Visible = True
.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
.Comment.Shape.Select True
.Comment.Text Text:="Aprenda Microsoft Excel VBA com qualidade Saberexcel"
End With
With Selection
.Font.Size = 11
.ShapeRange.Shadow.Visible = msoFalse
.ShapeRange.ScaleWidth 1.6, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 1.3, msoFalse, msoScaleFromTopLeft
.ShapeRange.Adjustments.Item(1) = 4.25
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

End With
ErrorSaber:
Application.ScreenUpdating = True
End Sub

Macro auxiliar para os testes dos alunos desenvolvedores
Sub deleta_todos_teste()
Dim resposta As String
resposta = MsgBox("Deseja deletar todos os comentarios para teste?", vbYesNo + vbCritical, _
"Saberexcel - Site das Macros")
If resposta = 6 Then '=sim
For Each sb In ActiveSheet.Comments
sb.Delete
Next
End If
End Sub


Aprenda Microsoft Excel VBA(Visual Basic Application) com qualidade Saberexcel

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

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