Excel VBA cursor Planilha 5 formata linha coluna célula ativa

Planilha Excel VBA cursor 17 formata célula ativa anos

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