Planilha Excel VBA cursor 8 célula ativa memoriza cor anterior

13 de novembro de 2013 Prof. Expedito Marcondes - Escola SaberExcel VBA 0 Comentários

Planilha Excel VBA cursor 8 célula ativa memoriza cor anterior

Este procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), ligado ao Evento WorkSheet_SelectionChange() da folha de planilha, isto é ao selecionar determinada area (pré-estabelecida)
formata com cores (amarelo) a linha da célula ativa (espaço colunas também determinado) que vai na linha
da celula ativa da coluna(g) a Coluna(j). Observe que existe nos códigos uma linha que memoriza a cor antiga
e a retorna quando selecionar outra célula. Bons Estudos, Fique com Deus, Expedito Marcondes.

SBX CURSOR FORMATA LINHAS BASE CELULA ATIVA

formata um intervalo de linha da célula ativa, e retorna as cores interior cor (Anterior) antiga

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set vArea = [g6:j25]
Col1 = vArea.Column
Col2 = vArea.Column + vArea.Columns.Count – 1

For Each n In ActiveWorkbook.Names
If n.Name = “memoNcol” Then busca = True
Next n

If busca Then
‘//==============’restituir as cores ‘antigas’
nCol = [memoNCol]
For i = 1 To nCol
x = “memoENDERECO” & i
a = Evaluate([x])
x = “memoCOR” & i
b = Evaluate([x])
On Error Resume Next
Range(a).Interior.ColorIndex = b
Next i
End If
‘//==============’memorização das 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:=”memoENDERECO” & i, RefersToR1C1:= _
“=” & Chr(34) & Cells(Target.Row, i + Col1 – 1).Address & Chr(34)
ActiveWorkbook.Names.Add Name:=”memoCOR” & i, RefersToR1C1:= _
“=” & Cells(Target.Row, i + Col1 – 1).Interior.ColorIndex
Cells(Target.Row, i + Col1 – 1).Interior.ColorIndex = 6
Next i
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.