MD2_Licao_290 Células e Range cores cursor linha coluna

Tempo de leitura: 2 minutos

MD2_Licao_290 Células e Range cores cursor linha coluna

MD2_Licao_290 Células e Range cores cursor linha coluna
Nesta vídeo aulas vamos aprender como trabalhar com o Evento SelectionChange da folha de código da folha de planilha onde o Cursor (célula Ativa) acompanhada pela cor como também a Coluna.  Neste exemplo vamos também modificar a cor da célula ativa ativada e também a fonte, bem como a bordas. Também nesta célula ativa iremos colorir a Linha e a Coluna da Celula Ativa.

Adquirir todo Material didático Escola SaberExcel
(Promoção  de R$ 1.135,00 por  R$ 155,00)  – entrega acesso – imediato

Video Aula 290 Tema Células e Range   –  Yootube
MD2_Licao_290 Cells Rng cores cursor linha coluna

Faça o Download do Exemplo de Planilha
[wpdm_package id=’275′]

Abaixo o código usado na folha de código da folha planilha usando o Evento SelectionChange

Private Sub Worksheet_SelectionChange(ByVal t As Range)
Set wArea = Range(“B” & 2 & “:R” & 26)
Set wtCabecalho = Cells(1, t.Column)
Set wCabecalho = Range(Cells(1, “c”), Cells(1, “R”))
x = Cells(Rows.Count, “b”).End(xlUp).Row
Set wItens = Range(“B2:B” & x)
Set wkf = Application.WorksheetFunction
‘——-‘retornar formatação wArea
If Intersect(t, wArea) Is Nothing Then Exit Sub
With wArea ‘volta formatos original para toda as celulas do intervalo b2:r26
.Font.ColorIndex = 1
.Font.Italic = False
.Font.Bold = False
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
.Borders.ColorIndex = xlNone
End With
‘——-‘limpar cabeçalho
With wCabecalho
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 1
.Font.Bold = False
.Font.Italic = False
End With
‘——-‘ fazer criterio para format
‘——–‘ fazer criterio na (A1) – esquecemos !!! putz
‘——-‘ formatação das linhas
With Range(“B” & t.Row & “:R” & t.Row)
.Interior.ColorIndex = 44 ‘ laranja
.Font.ColorIndex = 2 ‘branco
.Font.Italic = True
.Borders.LineStyle = xlContinuous
.Borders.ColorIndex = 5
End With
‘——–‘formatação para colunas
With Range(Cells(2, t.Column), Cells(26, t.Column))
.Interior.ColorIndex = 4
.Font.Bold = True
.Font.ColorIndex = 3
.Borders.LineStyle = xlContinuous
.Borders.ColorIndex = 3
End With
‘——-‘ para a celula ativa = t (target)
With t
.Interior.ColorIndex = 20
.Font.ColorIndex = 5
.Font.Bold = True
End With
‘——-‘
With wtCabecalho
.Font.ColorIndex = wkf.RandBetween(3, 56)
.Interior.ColorIndex = wkf.RandBetween(3, 56)
End With
If Not Intersect(t, wItens) Is Nothing Then
   With wItens
.Font.ColorIndex = 10
.Interior.ColorIndex = 35
t.Interior.ColorIndex = 36
t.Font.ColorIndex = 5
End With
End If
‘——-‘ desabilitando da memoria
Set wCabecalho = Nothing
Set wArea = Nothing
Set wItens = Nothing    ‘ Range(“B2:B” & x)
Set wkf = Nothing       ‘Application.WorksheetFunction
End Sub