Excel VBA Evento WorkSheet_SelectionChange Compara Valores M1 – Aula 96 – 63
Excel VBA Evento WorkSheet_SelectionChange Compara Valores M1 – Aula 96 – 63
Curso completo Excel VBA Tutoriais Aprendizado Com Eventos WorkSheet_SelectionChange Compara Valores 63. Video Aulas e Exemplos de Planihas explicando em detalhes como Fazer para usar os Eventos de Planilhas Excel VBA .
Faça o Download da Planilha Excel VBA Evento WorkSheet_SelectionChange Compara Valores
M1 – Aula 96 – Evento WorkSheet_SelectionChange Compara Valores 63.xlsm
Curso Excel VBA – Aula 96 (Parte 63): Evento Worksheet_Change para Seleção de Cores
Nesta aula do Curso Completo de Excel VBA, será explicado em detalhes como o evento Worksheet_Change pode ser configurado para que cores sejam aplicadas automaticamente em células específicas. Assim, relatórios, controles financeiros e dashboards tornam-se mais visuais e fáceis de interpretar.
Além disso, exercícios práticos e exemplos de planilhas são apresentados para fixação do conteúdo. Dessa forma, o aprendizado é reforçado e a eficácia do uso dos eventos de planilha é garantida.
🎯 Objetivo da Aula
O objetivo desta aula é mostrar como o evento Worksheet_Change pode ser utilizado para que cores sejam selecionadas automaticamente de acordo com valores ou textos inseridos. Portanto, a técnica é aplicada em diversos cenários:
- Planilhas de status em que valores como “Pago” ou “Pendente” recebem cores distintas.
- Relatórios de produção em que faixas numéricas são destacadas.
- Dashboards interativos em que categorias são diferenciadas por cores.
- Sistemas de auditoria em que discrepâncias são sinalizadas visualmente.
🧠 Por que usar Worksheet_Change para Seleção de Cores?
O evento Worksheet_Change é disparado sempre que uma célula sofre alteração. Assim, a lógica definida no código é aplicada imediatamente.
Consequentemente, erros de formatação são evitados e a consistência visual é mantida. Além disso, o tempo gasto em tarefas repetitivas é reduzido, já que a formatação é realizada de forma automática.
Por outro lado, relatórios tornam-se mais claros e a tomada de decisão é facilitada.
📥 Planilha de Exemplo
Uma planilha modelo foi preparada para que os exemplos desta aula possam ser acompanhados passo a passo.
📁 Worksheet_Change Seleção de Cores – Aula 96.xlsm 🔗 Acesse o Curso Completo Excel VBA
📌 O que será aprendido nesta aula
- Como funciona o evento
Worksheet_Change. - Como aplicar cores automaticamente em células específicas.
- Como configurar regras de cores por texto ou valor.
- Como evitar erros manuais e manter consistência visual.
- Como integrar a lógica de cores com relatórios e dashboards.
- Como expandir o código para múltiplas colunas e condições.
🔍 Exemplo prático com código VBA
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Me.Range("B2:B100")
If 🔑 Área de Membros com conteúdo exclusivoThen Exit Sub
Application.EnableEvents = False
Select Case UCase(Trim(Target.Value))
Case "PAGO" ' cor verde
🔑 Área de Membros com conteúdo exclusivo
Case "PENDENTE"
cor amarelo
🔑 Área de Membros com conteúdo exclusivo
Case "ATRASADO"
🔑 Área de Membros com conteúdo exclusivo
cor Vermelho e branco(fonte)
Case Else
caso não atenda (Branco e Preto(fonte)
End Select
🔑 Área de Membros com conteúdo exclusivo
Application.EnableEvents = True
End Sub
Neste exemplo, o intervalo B2:B100 é monitorado. Assim que um valor é digitado, a cor correspondente é aplicada.
🧩 Aplicações práticas
- Em planilhas de cobrança, o status “Pago” é destacado em verde.
- Em relatórios de auditoria, valores “Atrasados” são destacados em vermelho.
- Em dashboards, categorias diferentes recebem cores distintas.
Dessa forma, a produtividade é aumentada e a confiabilidade dos dados é garantida.
🎥 Videoaula
A videoaula desta aula foi gravada com foco na clareza e objetividade. Assim, cada linha de código é explicada em detalhes e o processo de configuração é mostrado passo a passo.
📚 Conclusão
O evento Worksheet_Change aplicado à seleção de cores é uma ferramenta poderosa para quem deseja criar planilhas organizadas e automatizadas.
Com isso, relatórios tornam-se mais claros, a consistência visual é mantida e a eficiência do trabalho é aumentada.
Por fim, recomenda-se a prática com os exercícios propostos para fixar o conteúdo e aplicar os conceitos em situações reais.
🙌 Agradecimento
Parabéns por mais uma etapa concluída! Assim, cada aula representa um avanço significativo na jornada de aprendizado em Excel VBA.
👨🏫 Prof. Expedito Marcondes
✉️ suportecursovba@gmail.com
🔗 Acesse o Curso Completo Excel VBA
A Importância dos Estudos e da Sabedoria
Queridos alunos,
Cada aula que vocês concluem é mais um passo na direção de um futuro próspero e cheio de realizações. A importância dos estudos e o esforço dedicado à aquisição de conhecimento são fundamentais para trilhar o caminho da sabedoria. O domínio da lógica e da programação não só é uma habilidade valiosa para a vida profissional, como também enriquece nosso entendimento e capacidade de resolver problemas no dia a dia.
O conhecimento é a estrada de luz que nos leva à sabedoria. Ele nos permite transcender a ignorância e nos aproxima de uma vida repleta de sabedoria esplêndida. Como disse Salomão, “O temor do Senhor é o princípio da sabedoria; os insensatos desprezam a sabedoria e a disciplina.” (Provérbios 1:7).
Aqui estão três versículos bíblicos que falam sobre a importância de sair da ignorância para uma vida repleta de sabedoria:
- Provérbios 4:7: “O mais importante é a sabedoria; adquira sabedoria, e com tudo o que possui, adquira entendimento.”
- Tiago 1:5: “Se algum de vocês tem falta de sabedoria, peça-a a Deus, que a todos dá livremente, de boa vontade; e lhe será concedida.”
- Oséias 4:6: “O meu povo foi destruído por falta de conhecimento. Porque você rejeitou o conhecimento, eu também o rejeito como meu sacerdote; visto que você se esqueceu da lei do seu Deus, eu também me esquecerei dos seus filhos.”
Queridos Alunos,
– Fiz esses 10 Procedimentos em Excel VBA usando o Evento Worksheet_SelectionChange para Comparar Valores, e retornar cores para seu treinamento, copie e cole na folha de código da folha de palnilha e teste.
Aqui estão 10 exemplos de procedimentos VBA que utilizam o evento Worksheet_SelectionChange para comparar valores:
- ✅ Valor é Maior é comparado que um Limite na planilha excel vba:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not rFunctionx(Target, Me.Range(x)) Is Nothing Then If Target.Value > 100 Then 🔑 Área de Membros com conteúdo exclusivo ' Verde para valores maiores que 100 Else 🔑 Área de Membros com conteúdo exclusivo ' Vermelho para valores menores ou iguais a 100 End If End If End Sub - ✅ Célula Específica que é comparado ao selecionar uma célula na folha de planilha:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not x(Target, Me.x) Is Nothing Then If x= Me.r(xty).Value Then 🔑 Área de Membros com conteúdo exclusivo ' Verde se igual ao valor na célula C1 Else 🔑 Área de Membros com conteúdo exclusivo ' Amarelo se diferente do valor na célula C1 End If End If End Sub - ✅ Comparando Valores em Diferentes Colunas no excel com vba macros:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not fFunction(Target, Me.r(x)) Is Nothing Then If y > x Then 🔑 Área de Membros com conteúdo exclusivo ' Azul se maior que a célula na coluna seguinte Else 🔑 Área de Membros com conteúdo exclusivo ' Vermelho se menor ou igual End If End If End Sub - ✅ Comparar com Média de um Intervalo:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim avgValue As Double avgValue = Application.r.Média(Me.x) If Not x(Target, Me.x) Is Nothing Then If Target.Value > avgValue Then 🔑 Área de Membros com conteúdo exclusivo ' Verde se maior que a média Else 🔑 Área de Membros com conteúdo exclusivo ' Vermelho se menor ou igual à média End If End If End Sub - ✅ Destacar Duplicados:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cell As Range If Not rrr(Target, Me.Range(x) Is yy Then For Each t In Me.range If cell.Value = x.Value And Not _ cell.Address = x Then 🔑 Área de Membros com conteúdo exclusivo ' Vermelho se for duplicado Exit For End If Next cell End If End Sub - ✅ fazer comparação ao selecionar com a data atual e retornar um resultado com VBA Macros:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not rFunctionx(t, Me.Range(data)) Is Nothing Then If datax(x) Then If x < y then 🔑 Área de Membros com conteúdo exclusivo ' Vermelho se data for anterior à atual Else 🔑 Área de Membros com conteúdo exclusivo ' Verde se data for futura ou atual End If End If End If End Sub - ✅ Comparar com Mínimo de um Intervalo:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim minValue As Double minValue = x If Not Intersect(Target, Me.Range("H1:H10")) Is Nothing Then If Target.Value = minValue Then 🔑 Área de Membros com conteúdo exclusivo ' Verde se for o valor mínimo Else 🔑 Área de Membros com conteúdo exclusivo' 'Amarelo se não for End If End If End Sub - ✅ Realçar Maior e Menor Valor na Coluna:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim maxValue As Double, minValue As Double, wkf as work maxValue = 🔑 Área de Membros com conteúdo exclusivo minValue = 🔑 Área de Membros com conteúdo exclusivo If Not fFunction(x, Me.Range(x) Is vbyes Then If Target.Value = maxValue Then 🔑 Área de Membros com conteúdo exclusivo ' Verde se for o valor máximo ElseIf Target.Value = minValue Then 🔑 Área de Membros com conteúdo exclusivo ' Vermelho se for o valor mínimo Else 🔑 Área de Membros com conteúdo exclusivo ' Amarelo para outros valores End If End If End Sub - ✅ Comparar Texto em Colunas Diferentes:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not IFunctionx(x, Me.Range("x")) Is Nothing Then If x.Value = x.Value Then 🔑 Área de Membros com conteúdo exclusivo ' Verde se texto igual ao da coluna seguinte Else 🔑 Área de Membros com conteúdo exclusivo ' Vermelho se texto diferente End If End If End Sub - ✅ Comparar com Valor na Célula Anterior:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not InterFunction(Target, Me.x(y)) Is Nothing Then
If t.Value > x.Value Then
🔑 Área de Membros com conteúdo exclusivo
' Verde se maior que o valor anterior
Else
🔑 Área de Membros com conteúdo exclusivo
' Vermelho se menor ou igual ao valor anterior
End If
End If
End Sub
Agradecimentos
Agradeço imensamente pelo empenho e dedicação de todos vocês. A estrada da sabedoria depende de conhecimento, leitura, estudos, práticas, e elevação humana e profissional. Continuem trilhando esse caminho com determinação e entusiasmo, pois o futuro pertence àqueles que se preparam hoje.
Com gratidão e carinho,
Prof. Expedito Marcondes
Tire Dúvidas: suportecursovba@gmail.com
Se precisarem de mais alguma coisa, estarei sempre à disposição para ajudar.