Planilha Excel VBA cursor 15 formata linha Coluna célula ativa2

Planilha Excel VBA cursor 15 formata linha Coluna célula ativa2

Planilha Excel VBA cursor 15 formata linha Coluna célula ativa2 Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),
SBX CURSOR FORMATA CELULA ATIVA LINHAS E COLUNAS
Esses procedimentos com os eventos formatam linhas e colunas com Base na célula Ativa, uando o Evento WorkSheet_SelectionChange() e o Evento WorkSheet_Change, observe que  muda a cor da fonte na célula ativa, porém volta para o cor  antiga (2) ao selecionar outra célula.
‘//============’
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
Application.EnableEvents = False
Union(Target.EntireRow, Target.EntireColumn).Interior.ColorIndex = 36
Target.Interior.ColorIndex = 3 ‘  ou Target.Activate
Target.Font.ColorIndex = 2
Application.EnableEvents = True
End If
End Sub
‘//=============’
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
Application.EnableEvents = False
Cells.Interior.ColorIndex = xlNone
Cells.Font.ColorIndex = 1
Union(Target.EntireRow, Target.EntireColumn).Interior.ColorIndex = 36
Target.Interior.ColorIndex = 3 ‘ Activate
Target.Font.ColorIndex = 2
Application.EnableEvents = True
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 15 formata linha Coluna célula ativa 2

<< Link Download: Verifique também Caixa de Itens Excluídos >>

Seu Nome - Receber o Arquivo por Email Seu Email Válido: para Enviar o Link do Arquivo

Planilha Excel VBA cursor 15 formata linha Coluna celula ativa 2