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
PagSeguro Comprar todo Material Didático Escola SaberExcel VBA Estudos
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 tAs 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
Esta área é reservada para a biografia do autor e deve ser inserida para cada autor a partir da seção Informações biográficas, no painel administrativo. Caso deseje incluir links para as redes sociais de cada autor do site, recomendamos que instale o plugin WordPress SEO. Após instalado, o plugin criará os respectivos campos para links das principais redes sociais (Facebook, Google Plus e Twitter). Após preenchidos os campos, os links de cada rede aparecerão automaticamente aqui.