Excel VBA cursor Planilha 16 colorir linha coluna célula ativa

Planilha Excel VBA cursor 16 colorir linha coluna célula ativa

Excel VBA cursor Planilha 16 colorir linha coluna célula ativa

Este procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando o Evento WorkSheet_SelectionChange() da folha de planilha, faz uma formatação na linha e coluna colorindo-as com base na celula ativa, o cursor. observe para ilustrar o exercício, fiz uma formatação com setas na frente da seleção,
que é um caracter Fonte Wingdings 3. Bons Estudos.
Fiquem com Deus, Expedito Marcondes.
SBX CURSOR FORMATANDO LINHAS E COLUNAS (***)
com base na seleção celula ativa, fiz o exemplo com códigos macros, poderá fazer com FC(Formatação Condicional),
‘//============’
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([D6:G34], Target) Is Nothing And Target.Count = 1 Then
[D6:G34].Interior.ColorIndex = xlNone
[D6:G34].Font.ColorIndex = 1
[D6:G34].Font.Bold = False

Range(Cells(6, Target.Column), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 36
Range(Cells(Target.Row, 4), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 36
Range(Cells(Target.Row, 4), Cells(Target.Row, Target.Column)).Font.ColorIndex = 9
Range(Cells(Target.Row, 4), Cells(Target.Row, Target.Column)).Font.Bold = True
‘ilustrando nosso treinamento com vba.
‘nas linhas abaixo é para deletar e inserir a setinha nas colunas(c e d) (treinamento vba)
x = Cells(Rows.Count, “d”).End(xlUp).Row
Range(Cells(6, 3), Cells(x, 3)).ClearContents
Range(Cells(6, 8), Cells(x, 8)).ClearContents
Cells(Target.Row, 3).Value = “u” ‘inserir caracter na coluna(c) = u
Cells(Target.Row, 3).Font.Name = “Wingdings 3”
Cells(Target.Row, 3).Font.ColorIndex = 3
‘somente para inserir a seta na coluna(h)é um caracter wingdings
Cells(Target.Row, 8).Value = “t” = t
Cells(Target.Row, 8).Font.Name = “Wingdings 3”
Cells(Target.Row, 8).Font.ColorIndex = 10
End If