Planilha Excel VBA cursor 9 multi areas celula ativa cor

Planilha Excel VBA números aleatórios identificar par impar

Planilha Excel VBA cursor 9 multi areas celula ativa cor

Planilha Excel VBA cursor 9 multi areas celula ativa cor Este procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando evento WorkSheet_SelectionChange(), formata linha da célula ativa em tabelas multi-area, ao contrario do exemplo anterior
esse memoriza a cor anterior a formatação e a retorna quando selecionar outra célula.
é um bom exemplo para treinamento com Excel VBA.
Espero que lhe seja util. Fique com Deus,
Expedito Marcondes.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set vCampo = Range(“e6:g25,m7:r14,p17:u22”) ‘ou Range(“MultiAreas”) range nomeado
‘///=============’ restituição de cores
For Each n In ActiveWorkbook.Names
If n.Name = “memorizaNCOL” Then vBusca = True
Next n

If vBusca Then
nCol = [memorizaNCOL]
z = [memorizaAREA]
Col1 = vCampo.Areas(z).Column
Col2 = vCampo.Areas(z).Column + vCampo.Areas(z).Columns.Count – 1
For i = 1 To nCol
X = “memorizaENDERECO” & i
a = Evaluate([X])
X = “memorizaCOR” & i
b = Evaluate([X])
Range(a).Interior.ColorIndex = b
Next i
End If
‘///=============’ memorização de cores
If Not Intersect(vCampo, Target) Is Nothing And Target.Count = 1 Then
For i = 1 To vCampo.Areas.Count
If Not Intersect(vCampo.Areas(i), Target) Is Nothing Then vZona = i ‘referenciando var (vZona = i)
Next i

Col1 = vCampo.Areas(vZona).Column
Col2 = vCampo.Areas(vZona).Column + vCampo.Areas(vZona).Columns.Count – 1
ActiveWorkbook.Names.Add Name:=”memorizaAREA“, RefersToR1C1:=”=” & Chr(34) & vZona & Chr(34)
Col1 = vCampo.Areas(vZona).Column
Col2 = vCampo.Areas(vZona).Column + vCampo.Areas(vZona).Columns.Count – 1
nCol = Col2 – Col1 + 1
ActiveWorkbook.Names.Add Name:=”memorizaNCOL“, RefersToR1C1:=”=” & Chr(34) & nCol & Chr(34)

For i = 1 To nCol
ActiveWorkbook.Names.Add Name:=”memorizaENDERECO” & i, RefersToR1C1:= _
“=” & Chr(34) & Cells(Target.Row, i + Col1 – 1).Address & Chr(34)
ActiveWorkbook.Names.Add Name:=”memorizaCOR” & 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

PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir Todo Material Didático Escola SaberExcel VBA Estudos

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.