Planilha Excel VBA cursor 6 formata linha célula ativa
Planilha Excel VBA cursor 6 formata linha célula ativa
Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),
CURSOR FORMATA EVENTO SELECTION CHANGE
Coloração da linha celular ativo por um campo ao selecionar na tabela.
-O campo não deve ter cor de fundo porque o código do procedimento limpa toda vCampo
-Mas aceita FC(Formatação Condicional)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set vCampo = Range(“d5:g33″)
If Not Intersect(vCampo, Target) Is Nothing And Target.Count = 1 Then
vCampo.Interior.ColorIndex = xlNone
vCampo.Font.ColorIndex = 1
vCampo.Font.Bold = False
Col1 = vCampo.Column
Col2 = Col1 + vCampo.Columns.Count – 1
Range(Cells(Target.Row, Col1), Cells(Target.Row, Col2)).Interior.ColorIndex = 36
Range(Cells(Target.Row, Col1), Cells(Target.Row, Col2)).Font.ColorIndex = 9
Range(Cells(Target.Row, Col1), Cells(Target.Row, Col2)).Font.Bold = True
‘retornando os valores para visualizar coluna(M)
[m5].Value = Range(Cells(Target.Row, Col1), Cells(Target.Row, Col2)).Value
[m7].Value = Range(Cells(Target.Row, Col1 + 1), Cells(Target.Row, Col2)).Value
[m9].Value = Range(Cells(Target.Row, Col1 + 2), Cells(Target.Row, Col2)).Value
[m11].Value = Range(Cells(Target.Row, Col1 + 3), Cells(Target.Row, Col2)).Value
‘concatenando os valores : nome e salario
[K3].Value = [m5] & ” – ” & Format([m9], “R$ ##,###,##0.00”)
End If
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.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima : |
 Planilha Excel VBA cursor 6 formata linha célula ativa . |
| <<Link Download: Verifique também a Caixa de Itens Excluídos >> |
Planilha Excel VBA cursor 6 formata linha célula altiva
