Excel VBA Evento WorSheet_Change Selecionar Cores Lista M1 – Aula 98 – 65
Curso Completo Excel VBA Macros Tutoriais para Treinamento e Aprendizado com Video Aulas e Exercicios de Planilhas explicados em detalhes de como fazer para usar os Eventos de Planilhas WorSheet_Change Selecionar Cores Lista 65 com sucesso no vba macros.
Faça o Download do Exemplo de Planilha Excel VBA
Excel VBA Evento WorSheet_Change Selecionar Cores Lista M1 – Aula 98 – 65.xlsm
Curso Completo Excel VBA – Aula 98 (Lista 65): Usando o Evento Worksheet_Change para Selecionar Cores
O Curso Completo de Excel VBA foi desenvolvido para quem deseja dominar a criação de macros, tutoriais e automações em planilhas.
Nesta aula, vamos explorar em detalhes como utilizar o evento Worksheet_Change para selecionar cores automaticamente em células específicas. O conteúdo é explicado com videoaulas passo a passo e exercícios de planilhas de fixação, garantindo que o aprendizado seja sólido e prático.
🎯 Objetivo da Aula
O objetivo principal desta aula é mostrar como o evento Worksheet_Change pode ser configurado para que cores sejam aplicadas automaticamente em células de acordo com valores ou textos digitados.
- Assim, relatórios ficam mais claros.
- Além disso, dashboards tornam-se mais interativos.
- Consequentemente, erros de formatação são reduzidos.
- Por fim, a produtividade aumenta, já que o usuário não precisa aplicar cores manualmente.
🧠 O que é o Evento Worksheet_Change?
O evento Worksheet_Change é disparado sempre que uma célula sofre alteração. Portanto, ele permite que o VBA execute uma ação imediatamente após o usuário modificar um valor.
- Por exemplo, se você digitar “Pago” em uma célula, a cor verde pode ser aplicada automaticamente.
- Da mesma forma, se o valor for “Pendente”, a célula pode ser destacada em amarelo.
- Em contrapartida, se o status for “Atrasado”, a cor vermelha pode ser usada para chamar atenção.
Esse comportamento garante interatividade imediata e consistência visual.
📥 Planilha de Exemplo
Uma planilha modelo foi preparada para acompanhar os exemplos desta aula.
🔑 Área de Membros com conteúdo completo e exclusivo
📁 Worksheet_Change Seleção de Cores – Aula 98 (Lista 65).xlsm
📌 Estrutura do Código VBA
Aqui está um exemplo prático de como configurar o evento Worksheet_Change para selecionar cores:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set rng = Me.Range("xyz/2")
If Intersect(Target, z) Is Nothing Then Exit Sub
Application.EnableEvents = False
'colorir de acordo com o critério
Select Case x(x(y.Value))
Case "PAGO"
'colorir celula na cor verde se pago
🔑 Área de Membros com conteúdo exclusivo
Case "PENDENTE"
🔑 Área de Membros com conteúdo exclusivo
'colorir celula na cor amarelo fonte Marron se pendente
Case "ATRASADO"
🔑 Área de Membros com conteúdo exclusivo
'colorir celula na cor vermelho fonte Preto se pendente
Case Else
🔑 Área de Membros com conteúdo exclusivo
'colorir celula na cor branco fonte preto se pendente End Select
Application.EnableEvents = True
End Sub
🔍 Explicação do Código
- Escopo: Você define o intervalo monitorado (B2:B100).
- Interatividade: Assim que o valor é alterado, a cor é aplicada automaticamente.
- Cancelamento de erros: O comando
Application.EnableEvents = Falseevita loops infinitos. - Personalização: O
Select Casepermite configurar diferentes cores para diferentes valores.
Dessa forma, o código garante que cada status seja destacado com uma cor específica.
🧩 Aplicações Práticas
O uso do evento Worksheet_Change para seleção de cores pode ser aplicado em diversos cenários:
- Planilhas de cobrança: Status “Pago” em verde, “Pendente” em amarelo e “Atrasado” em vermelho.
- Relatórios de produção: Faixas numéricas destacadas conforme metas atingidas.
- Dashboards interativos: Categorias diferenciadas por cores para facilitar a leitura.
- Sistemas de auditoria: Discrepâncias sinalizadas visualmente para rápida identificação.
Assim, a produtividade aumenta e a confiabilidade dos dados é garantida.
🎥 Videoaulas e Exercícios
O curso oferece videoaulas explicativas que detalham cada linha do código. Além disso, exercícios práticos de planilhas são disponibilizados para fixação do conteúdo.
- Primeiro, você assiste à explicação teórica.
- Em seguida, aplica o código em sua própria planilha.
- Depois, realiza exercícios de fixação com diferentes cenários.
- Por fim, consolida o aprendizado com práticas reais.
Esse método garante que o aluno compreenda não apenas a teoria, mas também a aplicação prática.
📚 Benefícios do Uso de Worksheet_Change
- Interatividade imediata: A cor é aplicada assim que o valor é alterado.
- Consistência visual: Regras centralizadas eliminam discrepâncias.
- Produtividade: O tempo gasto com formatações repetitivas é reduzido.
- Integração: O recurso pode ser combinado com validação de dados, listas suspensas ou fluxos de auditoria.
Consequentemente, relatórios tornam-se mais claros e a tomada de decisão é facilitada.
nesta video aula Excel vba e video aula [M1Aula 98 ], vamos aprender a fazer
Evento WorSheet_Change Selecionar em lista Cores Lista de palavras e Retornar formatos
Caros Alunos,
É com grande alegria que compartilho mais uma vídeo aula com vocês. Nesta jornada de aprendizado, quero reforçar a importância do conhecimento, que é a estrada que nos leva à sabedoria. A sabedoria é um dom de Deus para aqueles que a perseguem com afinco e tenacidade. O esforço é recompensado com mais luz em sua vida pessoal e profissional.
Lembrem-se sempre de que estudar e se dedicar aos estudos é essencial para alcançar grandes realizações. O conhecimento adquirido abre portas para um futuro brilhante e cheio de oportunidades.
Versículos Bíblicos sobre Esforço e Sabedoria:
- Provérbios 2:6: “Porque o Senhor dá a sabedoria; da sua boca é que vem o conhecimento e o entendimento.”
- Provérbios 4:7: “O princípio da sabedoria é: Adquire a sabedoria; sim, com tudo o que possuis, adquire o entendimento.”
- Provérbios 12:1: “Quem ama a disciplina ama o conhecimento, mas o que aborrece a repreensão é insensato.”
Alunos Queridos, fiz esses Exemplos de Procedimentos Change para Treinamento:
- ✅ Inserir Mensagem ao Selecionar Célula na Coluna 1:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim x As Integer Columns(1).clear 🔑 Área de Membros com conteúdo exclusivo If t.Column <> 1 Then Exit Sub x = t.columns 🔑 Área de Membros com conteúdo exclusivo Cells((x * x), 4).Value = "Você Clicou na célula: " & t.x & _ " deslocando " & wLinha.Row & " linhas abaixo" End Sub Aula 98 - Evento WorSheet_Change Selecionar Cores Lista 65-1.xlsm
- ✅ Inserir Mensagem ao Selecionar Célula na Coluna 2:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Integer 🔑 Área de Membros com conteúdo exclusivo If Target <> 2 Then Exit Sub X = y Cells((X * x), e).Value = "Você Clicou na célula: " & t.x & _ " deslocando " & x.Row & " linhas abaixo" End Sub - ✅ Inserir Mensagem ao Selecionar Célula na Coluna 3:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Integer Columns(3).ClearContents 🔑 Área de Membros com conteúdo exclusivo" End Sub - ✅ Selecionar Célula na Coluna 4 mostra mensagem ao selecionar:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Integer 🔑 Área de Membros com conteúdo exclusivo Cells((X * x), y).Value = "Você Clicou na célula: " & x & _ " deslocando " & xy & " linhas abaixo" End Sub - ✅ Mensagem ao Selecionar Célula na Coluna 5 no excel com vba macros eventos:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Integer Columns(x).ClearContents 🔑 Área de Membros com conteúdo exclusivo Cells((X * x), x).Value = "Você Clicou na célula: " & x & _ " deslocando " & x & " linhas abaixo" End Sub - ✅ Mostrar mensagem da linha e coluna deslocando na planilha ao selecionar Célula na Coluna 6:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Integer Columns(x).ClearContents If Target n <> 6 Then Exit Sub 🔑 Área de Membros com conteúdo exclusivo Cells((X * x), 6).Value = "Você Clicou na célula: " & x & _ " deslocando " & x & " linhas abaixo" End Sub - ✅ Selecionar Célula na Coluna 7, mostrando mensagem na planilha excel ao selecionar nas areas intervalos de células especificos
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Integer 🔑 Área de Membros com conteúdo exclusivo Cells((X * d), d).Value = "Você Clicou na célula: " & w & _ " deslocando " & w & " linhas abaixo" End Sub - ✅ Ao Selecionar Célula na Coluna 8 mostra uma mensagem sobre linha e celula e coluna na planilha selecionada :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Integer Columns(x).ClearContents 🔑 Área de Membros com conteúdo completo e exclusivo If Target.row <> x Then Exit Sub X = Targetx Cells((X * x),x).Value = "Você Clicou na célula: " & x & _ " deslocando " & x & " linhas abaixo" End Sub - ✅ Selecionar Célula na Coluna 9 mostra mensagem do endereço da celula na planilha do excel com vba macros :
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Integer 🔑 Área de Membros com conteúdo completo e exclusivo ' macros na integra na area de membros (exemplo) Columnsx.ClearContents If x <> 9 Then Exit Sub X = x Cells((X * x), 9).Value = "Você Clicou na célula: " & x & _ " deslocando " & x & " linhas abaixo" End Sub - ✅ Inserir Mensagem ao Selecionar Célula na Coluna 10:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Integer Columns(10).ClearContents 🔑 Área de Membros com conteúdo completo e exclusivo If x.y <> 10 Then Exit Sub X = Target.Row Cells((X *x), x).Value = "Você Clicou na célula: " & tCelula.Address & _ " deslocando " & tCelula(x) & " linhas abaixo" End Sub - ✅ Inserir Mensagem ao Selecionar Célula na Coluna 11:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Integer Columns(x).ClearContents If Tx <> 11 Then Exit Sub X = x 🔑 Área de Membros com conteúdo completo e exclusivo Cells((X * x), 1y).Value = "Você Clicou na célula: " & x & _ " deslocando " & x & " linhas abaixo" End Sub - ✅ Como mostrar mensagem do endereço da célula ao Selecionar Célula na Coluna 12 na planilha do excel com VBA macros:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Integer Columns(x).ClearContents If x <> 12 Then Exit Sub 🔑 Área de Membros com conteúdo completo e exclusivo X = x.Row Cells((X * x), x).Value = "Você Clicou na célula: " & y.x & _ " deslocando " & c.v & " linhas abaixo" End Sub - ✅ Inserir Mensagem ao Selecionar Célula na Coluna 13:
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Integer Columns(x).ClearContents 🔑 Área de Membros com conteúdo completo e exclusivo If x <> 13 Then Exit Sub X = x Cells((X * x),x).Value = "Você Clicou na célula: " & x & _ " deslocando " & x & " linhas abaixo" End Sub - ✅ mostrando uma mensagem Selecionar Célula na Coluna 14 na planilha excel com macros vba:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Integer Columns(x).ClearContents If x <> x Then Exit Sub 🔑 Área de Membros com conteúdo completo e exclusivo X = x.Row Cells((X * x), y).Value = "Você Clicou na célula: " & y.x & _ " deslocando " & x.t & " linhas abaixo" End Sub - ✅ Selecionar Célula na Coluna 15 e mostrar mensagem x
vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Integer Columns(x).ClearContents 🔑 Área de Membros com conteúdo completo e exclusivo If y <> 15 Then Exit Sub X = Target.Row Cells((X * x), x).Value = "Você Clicou na célula: " & y & _ " deslocando " & y & " linhas abaixo" End Sub
**Agradeço a todos pelo esforço e empenho. Continuem estudando e se dedicando, pois é atraves do conhecimento que somos recompensados com a sabedoria a mãe de todo acerto na vida.
Com Carinho e Gratidão:
👨🏫 Prof. Expedito Marcondes
✉️ suportecursovba@gmail.com
🔗 Acesse o Curso Completo Excel VBA