Excel VBA cursor Planilha 5 formata linha coluna célula ativa
Este procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), formata em cores a linha e a coluna com base na célula ativa, também formata a fonte em verde negrito de determinada extensão de linha conforme foi determinado no código e a célula ativa fonte em vermelho, observe que há uma reposição das cores antigas, pois fiz as Celulas Range nomeada para memorizar a cor do endereço da celula ativa.
CURSOR FORMATA CÉLULA ATIVA LINHAS E COLUNAS
Procedimento do Excel VBA Evento SelectionChange formata linhas e colunas com base na célula ativa, observe que o exemplo, formata as interior da células na linhas e colunas em amarelo, fonte verde negritado e também a célula ativa em vermelho.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set vArea = [B2:N13]
Col1 = vArea.Column
Col2 = vArea.Column + vArea.Columns.Count – 1
Lin1 = vArea.Row
Lin2 = vArea.Row + vArea.Rows.Count – 1
For Each n In ActiveWorkbook.Names
If n.Name = “memoNcol” Then busca = True
Next n
If busca Then
‘//=============’ restituindo as cores
For i = 1 To [memoNcol]
x = “memoENDCol” & i
a = Evaluate([x])
x = “memoCORcol” & i
b = Evaluate([x])
Range(a).Interior.ColorIndex = b
Range(a).Font.ColorIndex = 1
Range(a).Font.Bold = False
Next i
For i = 1 To [memoNlin]
x = “memoENDlin” & i
a = Evaluate([x])
x = “memoCORlin” & i
b = Evaluate([x])
Range(a).Interior.ColorIndex = b
Next i
End If
‘//==============’ memorizando as cores
If Not Intersect(vArea, Target) Is Nothing And Target.Count = 1 Then
nCol = Col2 – Col1 + 1
ActiveWorkbook.Names.Add Name:=”memoNcol”, RefersToR1C1:= _
“=” & Chr(34) & nCol & Chr(34)
For i = 1 To nCol
ActiveWorkbook.Names.Add Name:=”memoENDCol” & i, RefersToR1C1:= _
“=” & Chr(34) & Cells(Target.Row, i + Col1 – 1).Address & Chr(34)
ActiveWorkbook.Names.Add Name:=”memoCORcol” & i, RefersToR1C1:= _
“=” & Cells(Target.Row, i + Col1 – 1).Interior.ColorIndex
Next i
‘//==============’
nLin = Lin2 – Lin1 + 1
ActiveWorkbook.Names.Add Name:=”memoNlin”, RefersToR1C1:= _
“=” & Chr(34) & nLin & Chr(34)
For i = 1 To nLin
ActiveWorkbook.Names.Add Name:=”memoENDlin” & i, RefersToR1C1:= _
“=” & Chr(34) & Cells(i + Lin1 – 1, Target.Column).Address & Chr(34)
ActiveWorkbook.Names.Add Name:=”memoCORlin” & i, RefersToR1C1:= _
“=” & Cells(i + Lin1 – 1, Target.Column).Interior.ColorIndex
Cells(i + Lin1 – 1, Target.Column).Interior.ColorIndex = 36
Next i
For i = 1 To nCol
Cells(Target.Row, i + Col1 – 1).Interior.ColorIndex = 36
Cells(Target.Row, i + Col1 – 1).Font.ColorIndex = 10
Cells(Target.Row, i + Col1 – 1).Font.Bold = True
Target.Font.ColorIndex = 3
Next i
End If
End Sub
Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções
PROMOÇÃO ESPECIAL : CURSO EXCEL VBA EXPERT
Adquirir Todo Material Didático Escola SaberExcel VBA Estudos
![](https://escola.saberexcel.com.br/wp-content/uploads/2013/08/linazul.jpg)
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 |
![]() |
![]() |
![]() |
<<Link Download: Verifique também a Caixa de Itens Excluídos >> |
Planilha Excel VBA cursor 5 formata linha coluna célula ativa