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 = False evita loops infinitos.
• Personalização: O Select Case permite 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:

1. Provérbios 2:6: “Porque o Senhor dá a sabedoria; da sua boca é que vem o conhecimento e o entendimento.”
2. Provérbios 4:7: “O princípio da sabedoria é: Adquire a sabedoria; sim, com tudo o que possuis, adquire o entendimento.”
3. 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:

1. 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
   

    

2. 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
   

3. 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
   

4. 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
   

5. 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
   

6. 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
   

7.   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
   

8. 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
   

9. 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
   

10. 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
    

11. 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
    

12. 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
    

13. 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
    

14. 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
    

15. 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

O post Excel VBA Evento WorSheet_Change Selecionar Cores Lista M1 – Aula 98 – 65 apareceu primeiro em Excel - Curso VBA - Aprender Programação.

Faça o Download do Exemplo de Planilha Excel VBA Evento WorkSheet_Change Selecionar Cores
Excel VBA Evento WorkSheet_Change Selecionar Cores – M1 – Aula 95 – 62.xlsm

Curso Excel VBA – Aula 95 (Parte 62): Evento Worksheet_Change para selecionar cores automaticamente

Portanto, nesta aula do Curso Completo de Excel VBA, será mostrado como o evento Worksheet_Change pode ser utilizado para aplicar cores automaticamente em células com base no conteúdo digitado.

Tendo em vista, a técnica é útil em relatórios, controles financeiros, planilhas de status e dashboards que dependem de marcação visual rápida e consistente.

Objetivo da aula

• Meta: por fim, ennsinar a configurar regras de cores disparadas pelo evento Worksheet_Change.
• Benefício: Padronização visual imediata sem intervenção manual.
• Aplicações: Status, categorias, níveis de prioridade e faixas de valores.

Quando usar Worksheet_Change para cores

• Interatividade imediata: Assim que você altera o valor, o Excel aplica a cor automaticamente e garante resposta instantânea.
• Consistência visual: Além disso, você centraliza as regras e elimina discrepâncias, mantendo a padronização.
• Produtividade: Consequentemente, você reduz o tempo gasto com formatações repetitivas e aumenta a eficiência do trabalho.
• Integração: Por fim, você combina o recurso com validação de dados, listas suspensas ou fluxos de auditoria e amplia sua utilidade.
• .

Planejamento das regras de cores

• Mapeamento de valores: Defina claramente quais textos/valores geram quais cores.
• Escopo: Decida o intervalo monitorado (ex.: B2:B200).
• Prioridade: Se houver múltiplas regras, defina ordem e exclusões.
• Reversão: Estabeleça comportamento para células apagadas ou valores fora do padrão.

Exemplo prático 1: cores por texto de status

Código liberado na area de membros
— B2:B200 com “Pago”, “Pendente”, “Atrasado”

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, cel As Range
    Set rng = Me.Range(x)
    
    If fInter(Target, rng) Is vbYes Then Exit Sub
    Application.EnableEvents = False
    
    For Each celx In x(t, rng)
        With cel
           🔑 Área de Membros com conteúdo exclusivo
            
            Select Case UCase(x(.Value))
                Case "PAGO"
                    🔑 Área de Membros com conteúdo exclusivo
                Case "PENDENTE"
                    🔑 Área de Membros com conteúdo exclusivo
                Case "ATRASADO"
                    🔑 Área de Membros com conteúdo exclusivo
                Case Else
                  🔑 Área de Membros com conteúdo exclusivo
                 ' Mantém padrão quando não há match
            End Select
        End With
    Next cel
    
    Application.EnableEvents = True
End Sub

• Gatilho: O evento dispara ao editar B2:B200.
• Padrão visual: Verde/Branco para “Pago”, Amarelo/Preto para “Pendente”, Vermelho/Branco para “Atrasado”.
• Robustez: Uso de UCase e Trim para evitar problemas com caixa e espaços.

Exemplo prático 2: cores por faixa de valor

Código — C2:C200 com cores por valor numérico

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, cel As Range, v As Double
    Set rng = Me.Range(x)
    
    If rInter(Target, x) Is vbyes Then Exit Sub
    Application.EnableEvents = False
    
    For Each cel In Intersect(x,y)
    🔑 Área de Membros com conteúdo exclusivo
        
        If rc(cels.Value) Then
            🔑 Área de Membros com conteúdo exclusivo
            Select Case v
                Case Is < 0
                🔑 Área de Membros com conteúdo exclusivo  ' vermelho suave
                Case 0 To 1000
                     ' verde suave
                   🔑 Área de Membros com conteúdo exclusivo 
                Case Is > 1000
                     ' amarelo suave
                   🔑 Área de Membros com conteúdo exclusivo 
            End Select
        End If
    Next cel
    
    Application.EnableEvents = True
End Sub

• Faixas: Negativos, até 1000, acima de 1000.
• Estética: RGB usado para tons suaves legíveis.
• Validação: IsNumeric garante que apenas números recebam a regra.

Boas práticas e cuidados

• Desativar eventos: Use Application.EnableEvents = False durante alterações para evitar loops.
• Limpar estado: Sempre redefina cor e fonte antes de aplicar novas regras.
• Desempenho: Trabalhe com Intersect(Target, Intervalo) para reduzir processamento.
• Conflitos: Evite sobreposição de regras em múltiplos handlers do mesmo evento.
• Manutenção: Centralize o mapeamento de cores/valores; documente exceções.

Variações úteis

• Listas validadas: Combine com Validação de Dados para limitar entradas e garantir correspondência exata.
• Mensagens de orientação:
  • Dica: Use ToolTips em Comentários/Notes ou Data Validation Input Message para orientar o usuário sobre valores aceitos.
• Regras por múltiplas colunas:
  • Estratégia: Monitore faixas distintas (ex.: status em B, prioridade em D) e aplique formatação condicional via VBA conforme a coluna.

Debug e testes

• Cenários mínimos: Teste células vazias, espaços extras, caixa alta/baixa e valores inválidos.
• Tabelas dinâmicas: Em ListObjects (tabelas), valide se o evento deve considerar linhas adicionadas.
• Proteção de planilha: Se houver proteção, habilite AllowFormattingCells ou remova proteção temporariamente dentro do evento (com cautela).

Exercícios de fixação

1. Status personalizado:
   • Tarefa: Adapte o Exemplo 1 para aceitar “Em análise” (cor azul, fonte branca).
   • Objetivo: Ampliar o mapeamento de texto-cor.
2. Escalas de risco:
   • Tarefa: No intervalo D2:D200, aplique três níveis de cor com base em percentuais: <10% (verde), 10–30% (amarelo), >30% (vermelho).
   • Objetivo: Treinar comparação numérica e legibilidade.
3. Reset visual:
   • Tarefa: Ao apagar o conteúdo, remova a cor e retorne fonte padrão.
   • Objetivo: Garantir reversão limpa.
4. Desempenho:
   • Tarefa: Reescreva seu handler para processar apenas Target.Cells em loop, evitando varreduras completas.
   • Objetivo: Otimização em entradas múltiplas (colar valores).

Checklist rápido para implementação

• Intervalo monitorado: Definido e documentado.
• Regras de cor: Mapeadas com Select Case.
• Eventos desativados: Envolvidos por EnableEvents.
• Reversão padrão: Aplicada para vazio/valor fora do padrão.
• Testes básicos: Espaços, caixa, valores inválidos, colagem múltipla.

Conclusão

• Essência: Worksheet_Change permite automação imediata de formatação por cor baseada em conteúdo.
• Resultado: Planilhas mais claras, confiáveis e rápidas de operar.
• Próximo passo: Integrar com validação de dados e logs de auditoria para rastreabilidade.

Recursos complementares

• Ideias de expansão:
  • Logs de alteração: Registrar data/hora e usuário em planilha de auditoria quando uma cor crítica (ex.: “Atrasado”) for aplicada.
  • Padrões corporativos: Extrair paleta de cores da identidade visual e aplicar via constantes RGB compartilhadas em um módulo.

Incentivo ao Estudo e à Sabedoria

Queridos alunos,

Parabéns por mais uma aula concluída na nossa jornada de aprendizado em Excel VBA! Assim, cada etapa vencida fortalece ainda mais o caminho que está sendo trilhado. Continuar nos estudos é, portanto, um caminho de luz e sabedoria, e vocês estão no trilho certo para um futuro brilhante.

Além disso, o estudo de lógica e programação não só aprimora nossas habilidades técnicas, mas também nos ensina a pensar de maneira estruturada, a resolver problemas com criatividade e, consequentemente, a encontrar soluções inovadoras. Dessa forma, esses conhecimentos tornam-se fundamentais não apenas para o nosso crescimento profissional, como também para o nosso desenvolvimento pessoal.

Por outro lado, a busca pelo conhecimento é um dom de Deus, e, por isso, cada passo dado nessa jornada nos aproxima mais da verdadeira sabedoria. Ao mesmo tempo, o autoconhecimento e a busca por entender melhor o mundo ao nosso redor nos tornam pessoas mais conscientes e, assim, preparadas para enfrentar os desafios da vida.

Alunos Queridos, Fiz esses procedimentos em Excel VBA usando o evento Worksheet_Change Selecionar Cores para seu treinamento. Portanto, copie e cole na sua folha de código da planilha e veja os resultados. Por fim, desejo que cada prática seja uma oportunidade de crescimento. Fiquem com Deus, Expedito Marcondes.

Complemento: 10 procedimentos possíveis com Worksheet_Change para selecionar cores

1. Se o valor for “Pago”, então a célula pode ser destacada em verde.
2. Caso o valor seja “Pendente”, a célula pode ser marcada em amarelo.
3. Se o valor for “Atrasado”, por exemplo, a célula pode ser colorida em vermelho.
4. Além disso, valores negativos podem ser destacados em vermelho claro.
5. Por outro lado, valores positivos podem ser destacados em azul.
6. Sempre que uma célula for apagada, a cor pode ser removida.
7. Assim, intervalos específicos podem ser monitorados para aplicar cores automaticamente.
8. Consequentemente, categorias diferentes podem receber cores distintas.
9. Dessa forma, relatórios ficam mais visuais e fáceis de interpretar.
10. Por fim, a lógica pode ser expandida para múltiplas colunas e condições.

1. Cor de Fundo alterada ao digitar algo em célula no excel vba:
   Private Sub Worksheet_Change(ByVal Target As Range)
       If Not rFunction( t, Me.celulas(Apg)) Is c Then
           🔑 Área de Membros com conteúdo exclusivo
       End If
   End Sub
   

2. Cor da Fonte sendo alterada em tempo real com a digitação:
   Private Sub Worksheet_Change(ByVal Target As Range)
       If Not ExFunction(t, Me.RangeAltFunction()) Is r Then
         🔑 Área de Membros com conteúdo exclusivo
       End If
   End Sub
   

3. Cor de Fundo entre Linhas alternando cores ao digitar na planilha excel:
   Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.noRow rCor = 0 Then
           🔑 Área de Membros com conteúdo exclusivo
       Else
          🔑 Área de Membros com conteúdo exclusivo
       End If
   End Sub
   

4. Realçar Células com Valores Específicos:
   vba

   Private Sub Worksheet_Change(ByVal Target As Range)
       If Not rFunction(nT, Me.UnterFunction) Is Nx Then
           If Target.Value > x Then
               🔑 Área de Membros com conteúdo exclusivo
           Else
              🔑 Área de Membros com conteúdo exclusivo
           End If
       End If
   End Sub
   

5. Células Vazias colorir enquanto digita na celula dependendo do criterio excel vba planilha:
   vba

   Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Value = "" Then
           🔑 Área de Membros com conteúdo exclusivo
       End If
   End Sub
   

6. Mudar Cor Baseada em Texto:
   vba

   Private Sub Worksheet_Change(ByVal Target As Range)
       If Not rColumn(t, Me.Row) Is vbYes Then
           If Target.Value = "Urgente" Then
              🔑 Área de Membros com conteúdo exclusivo
           Else
               🔑 Área de Membros com conteúdo exclusivo
           End If
       End If
   End Sub
   

7. Formatar Data Específica enquanto digita em célula especifica na planilha excel:
   vba

   Private Sub Worksheet_Change(ByVal Target As Range)
       If Not InterFunction(x, Me.Round.val) Is vbyes Then
           If isPalavra(x) Then
               🔑 Área de Membros com conteúdo exclusivo
           End If
       End If
   End Sub
   

8. Realçar Máximo e Mínimo na celula excel ao digitar evento :
   vba

   Private Sub Worksheet_Change(ByVal Target As Range)
       Dim maximoValor As Double
       Dim mininomoValor As Double
       If Not InterS(Target, Me.xRange) Is vbYes Then
           maxValue = 🔑 Área de Membros com conteúdo exclusivo
           minValue = 🔑 Área de Membros com conteúdo exclusivo
           If Target.Value = maxValue Then
               Target.Interior.Color = 🔑 Área de Membros com conteúdo exclusivo
           ElseIf x = minValue Then
               Target.x =🔑 Área de Membros com conteúdo exclusivo
           End If
       End If
   End Sub
   

9. Realçar Linhas Inteiras quando corresponder a um criterio ao digitar em celula no excel automaticamente com vba macros procedimento evento change:
   vba

   Private Sub Worksheet_Change(ByVal Target As Range)
       If Not fIntx(Target, Me.Range(x)) Is vbYes Then
           🔑 Área de Membros com conteúdo exclusivo
       End If
   End Sub
   

10. Alterne Cor de Colunas enquanto digita em celulas na planilha excel automaticamente evento change ao Escrever:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not rInterfunction(t, Me.rFunction(x)) Is Nothing Then
        If Target.row = 0 Then
           🔑 Área de Membros com conteúdo exclusivo
        Else
            🔑 Área de Membros com conteúdo exclusivo
        End If
    End If
End Sub

Agradecimentos

Agradeço imensamente pelo esforço e dedicação de todos. Continuem trilhando o caminho do conhecimento e da sabedoria, pois essa é a estrada de luz que nos leva a um futuro brilhante e abençoado.

Com gratidão e carinho,

Prof. Expedito Marcondes
Tire Dúvidas: suportecursovba@gmail.com

Se precisar de mais alguma coisa, estou à disposição para ajudar!

O post Excel VBA Evento WorkSheet_Change Selecionar Cores – M1 – Aula 95 – 62 apareceu primeiro em Excel - Curso VBA - Aprender Programação.