Planilha Excel VBA cursor 7 formata multiplas areas

Planilha Excel VBA cursor 7 formata multiplas areas Este procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), formata linhas de multi areas de células na folha de planilha, observe que renomeei os ranges com o nome de “Areas_Multiplas”, usando o evento selection change fiz a formatação para colorir as linhas das tabelas que renomeamos como multi-áreas.
é um bom exercício Excel VBA, faça os exercícios, pratique bastante.
Fique com Deus,
Expedito Marcondes.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set vRng = Range(“Areas_Multipas”) ‘ ou Set vArea = Range(“C6:E16,G8:I18,L6:O16,Q10:S20”)
‘————— deletando cores
For Each n In ActiveWorkbook.Names
If n.Name = “memoNcol” Then busca = True
Next n
If busca Then
Range([memoENDERECO]).Interior.ColorIndex = xlNone
End If
‘———— memorização de endereço
If Not Intersect(vRng, Target) Is Nothing And Target.Count = 1 Then
For i = 1 To vRng.Areas.Count
If Not Intersect(vRng.Areas(i), Target) Is Nothing Then zone = i
Next i
Col1 = vRng.Areas(zone).Column
Col2 = vRng.Areas(zone).Column + vRng.Areas(zone).Columns.Count – 1
nCol = Col2 – Col1 + 1
‘criar automaticamento os rangeNomeados – ao selecionar area demarcada, cria os rangeNomeados.
ActiveWorkbook.Names.Add Name:=”memoNcol”, RefersToR1C1:=”=” & Chr(34) & nCol & Chr(34)
Cells(Target.Row, Col1).Resize(, nCol).Interior.ColorIndex = 6
ActiveWorkbook.Names.Add Name:=”memoENDERECO”, RefersToR1C1:= _
“=” & Chr(34) & Cells(Target.Row, Col1).Resize(, nCol).Address & Chr(34)
End If
End Sub