Planilha Excel VBA Comentário Linhas coloridas

Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções

Planilha Excel VBA Comentário Linhas coloridas

PLANILHA EXCEL VBA COMENTÁRIO LINHAS COLORIDAS

Planilha Excel VBA Comentario Linhas coloridas .xls

Planilha Excel VBA Comentário Linhas coloridas

Caso não exista o comentário ou seja deletado, o procedimento criará um novo comentário com cor e formatos, vamos inserir um texto no comentário com cores de linhas coloridas a cada interação, isto é, o texto digitado na célula(F6), (caixa Verde) será criado um comentário na célula (E15), na célula onde contém um quadro Amarelo.

A cada interação(digitação) na célula (F6) será incrementado os dados no Comentário e também será inserido uma cor aleatória para a inserção, isto é mudará de cor no Comentário a cada digitação.

Até a próxima publicação.! Fique com Deus, Expedito Marcondes

'//====' NA FOLHA DE CÓDIGO DA FOLHA DE PLANILHA

Private Sub Worksheet_Change(ByVal Target As Range)
Dim bComentario As String, ComentarioAntigo As String, ComentarioNovo As String
Dim Pos As Integer, UltPos As Integer, Volta As Integer, ChaveLon As Integer
If Target.Address <> “$G$6” Then Exit Sub
bComentario = Range(“G6”).Value
If bComentario = “” Then Exit Sub
On Error Resume Next
ComentarioAntigo = Range(“F15”).Comment.Text
If ComentarioAntigo <> “” Then ComentarioAntigo = ComentarioAntigo & Chr(10)
ComentarioNovo = ComentarioAntigo & bComentario & Chr(160)
With Range(“F15”)
.AddComment
With .Comment
.Text Text:=ComentarioNovo
.Visible = True
.Shape.OLEFormat.Object.Font.Bold = True
.Shape.TextFrame.AutoSize = True
.Shape.Fill.ForeColor.RGB = RGB(217, 217, 235)
End With
End With
On Error GoTo 0
Pos = 1
UltPos = 0
ChaveLon = Len(ComentarioNovo)
Inicio = 0
Volta = 3
vLooping:
Pos = InStr(Inicio + 1, ComentarioNovo, Chr(160))
If Pos = 0 Then GoTo vFim
part = Pos – Inicio
Range(“F15”).Comment.Shape.TextFrame.Characters(Inicio + 1, part).Font.ColorIndex = Volta
Inicio = Pos
Volta = Volta + 1
GoTo vLooping
vFim:
Application.EnableEvents = False
Range(“G6”).Value = “”
Range(“G6”).Select
SendKeys “{F2}”
Application.EnableEvents = True
[c16].Value = “Acione o macro para deleção do Comentario”
End Sub

Sub redefinir_eventos()
Application.EnableEvents = True
End Sub

Private Sub CommandButton1_Click()
Range(“F15”).ClearComments
[b16].Value = “Para inserir novo comentario, só digitar na célula(F6)”
End Sub

Private Sub Worksheet_Activate()
Application.EnableEvents = False
Range(“G6”).Value = “”
Range(“G6”).Select
SendKeys “{F2}”
Application.EnableEvents = True
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.