Excel VBA Evento WorkSheet_Change Substituir Ponto Virgula – M1 – Aula 93 – 60
Curso Completo MS Excel VBA Tutoriais Aprendizado e Treinamento com Video Aulas e Exercicios de Planilha explicados em detalhes de como fazer para usar os Eventos de Planilha neste caso Evento Worksheet_Change para Substituir Ponto Virgula com excel macros.

Faça o Download do Exemplo de Planilha Excel VBA Evento WorkSheet_Change Substituir Ponto Virgula
Excel VBA Evento WorkSheet_Change Substituir Ponto Virgula – M1 – Aula 93 – 60.xlsm
📘 Curso Excel VBA – Aula 93 (Parte 60) – Excel VBA Evento Worksheet_Change – Substituir Ponto e Vírgula com Macros no Excel
Nesta aula, o instrutor explica em detalhes como aplicar o evento Worksheet_Change para substituir automaticamente pontos e vírgulas em células específicas. Assim, o aluno aprende a configurar rotinas que corrigem a digitação e mantêm a padronização dos dados. Consequentemente, relatórios, cadastros e planilhas de controle ficam mais consistentes e prontos para análise.
Além disso, o curso oferece videoaulas explicativas, planilhas de exemplo para download e exercícios práticos de fixação. Dessa forma, o aprendizado é reforçado e o uso do VBA em situações reais se torna mais eficiente. Logo, cada etapa do processo contribui para que o aluno domine a automação no Excel.
🎯 Objetivo da Aula
O objetivo principal desta aula é mostrar como o evento Worksheet_Change pode ser aplicado para substituir automaticamente caracteres como ponto e vírgula durante a digitação. Portanto, sempre que o usuário insere um valor com vírgula, o sistema ajusta para ponto, ou vice-versa, conforme a necessidade. Com isso, os dados permanecem uniformes e prontos para cálculos ou exportações.
Do mesmo modo, essa técnica garante que relatórios financeiros, planilhas empresariais e sistemas de cadastro mantenham consistência. Enfim, o uso do evento Worksheet_Change se torna uma ferramenta poderosa para quem deseja elevar o nível de automação no Excel.
🔍 Exemplo prático com código VBA
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
🔑 Área de Membros com conteúdo exclusivo
Next cel
End Sub
📌 Explicação detalhada:
- O evento Worksheet_Change monitora as alterações feitas pelo usuário.
- Em seguida, cada célula modificada é verificada.
- Assim, sempre que o sistema encontra um ponto e vírgula, ele substitui automaticamente por vírgula.
- Com isso, os dados ficam padronizados sem necessidade de correção manual.
- Finalmente, o aluno percebe como uma rotina simples pode gerar grande impacto na qualidade das informações.
🧩 Aplicações práticas
- Planilhas financeiras: padronizar separadores decimais e evitar erros em cálculos.
- Relatórios empresariais: corrigir inconsistências de digitação e manter clareza nos dados.
- Sistemas de cadastro: garantir uniformidade em campos de texto e facilitar buscas.
- Planilhas acadêmicas: organizar notas e resultados sem confusão entre vírgula e ponto.
Consequentemente, qualquer planilha que dependa de consistência nos caracteres pode se beneficiar dessa técnica. Além disso, o uso do evento Worksheet_Change garante praticidade e eficiência em tarefas repetitivas. Logo, o aluno percebe que dominar eventos no VBA é um passo essencial para se tornar um profissional diferenciado.
🎥 Videoaula explicativa
A videoaula desta aula foca na clareza e na objetividade. Em seguida, o instrutor demonstra passo a passo como configurar o código e aplicar a substituição automática. Assim, o aluno pode acompanhar, replicar e adaptar os exemplos para suas próprias planilhas.
Além disso, a explicação é feita de forma gradual, permitindo que mesmo iniciantes compreendam cada linha do código. Consequentemente, o aprendizado é consolidado quando o conhecimento é aplicado em situações reais. Finalmente, o aluno percebe que a prática constante é o caminho para dominar o Excel VBA.
📚 Benefícios do aprendizado
Primeiramente, aprender a usar o evento Worksheet_Change amplia a capacidade de automação. Em seguida, o aluno entende como pequenas rotinas podem gerar grandes resultados. Além disso, o domínio dessa técnica abre portas para criar sistemas mais complexos e personalizados. Portanto, investir tempo em exercícios práticos é essencial para fixar o conteúdo. Com isso, o aluno se torna capaz de aplicar o VBA em diferentes contextos profissionais.
🏆 Conclusão
Do mesmo modo que outras aulas do curso, esta lição reforça a importância da prática. Consequentemente, o aluno que se dedica a repetir os exemplos e testar variações alcança maior domínio da linguagem VBA. Enfim, o evento Worksheet_Change se mostra uma ferramenta indispensável para quem deseja trabalhar com dados organizados e confiáveis. Logo, cada exercício realizado aproxima o estudante da excelência em automação com Excel.
👨🏫 Prof. Expedito Marcondes
✉️ suportecursovba@gmail.com
🔗 Acesse o Curso Completo Excel VBA
Nesta video aula M1 – Aula – 93, com Evento WorkSheet_Change vamos aprender como Substituir Ponto Virgula 60, ao digitar em uma célula ou range na folha de planilha.
Caros Alunos,
É com grande alegria que trago mais uma videoaula especialmente preparada para vocês. Nesta aula, intitulada M1 – Aula – 93, aprenderemos a substituir ponto por vírgula ao digitar em uma célula ou intervalo na folha de planilha, utilizando o Evento WorkSheet_Change.
A Importância do Estudo: Estudar, aprender uma profissão, lógica e programação são fundamentais para aguçar a vontade de entrar na Estrada da Sabedoria através do conhecimento. Estudando e se esforçando, vocês poderão alcançar grandes conquistas e realizar os seus sonhos.
Estudar, ler e informar-se são os pilares que nos conduzem à sabedoria. A sabedoria não tem preço, é um bem eterno que nos capacita a enfrentar os desafios da vida com inteligência e determinação. Este é o caminho da luz no fim do túnel.
Versículos Bíblicos sobre Esforço, Estudo e Sabedoria:
- Provérbios 12:24: “A mão dos diligentes dominará, mas os negligentes serão tributários.”
- Eclesiastes 9:10: “Tudo quanto te vier à mão para fazer, faze-o conforme as tuas forças.”
- Colossenses 3:23: “E tudo quanto fizerdes, fazei-o de todo o coração, como ao Senhor, e não aos homens.”
Exemplos de Procedimentos Change para Substituir Ponto por Vírgula:
– Queridos Alunos, fiz abaixo alguns procedimentos com evento change para seu treinamento, para isso voce deverá copiar e colar na folha de código da folha de planilha e visualizar o resultado. com isso praticar e aprender. Bons Estudos. Deus os Abençoe!, Velho Prof. Expedito Marcondes.
- ✅ Substituir em A1:A10:
vba
Private Sub Worksheet_Change(ByVal Target As Range) 🔑 Área de Membros com conteúdo exclusivo End Sub - ✅ Substituir em B1:B10:
vba
Private Sub Worksheet_Change(ByVal Target As Range) If Not functionexcelt(x, Me.yyyy(xxxxxx)) Is Nothing Then Dim cell As Range For Each xxxx In Target 🔑 Área de Membros com conteúdo exclusivo Next cell End If End Sub - ✅ Substituir com IF:
vba
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("C1:C10")) Is Nothing Then 🔑 Área de Membros com conteúdo exclusivo End If End Sub - ✅ Substituir com Select Case:
vba
Private Sub Worksheet_Change(ByVal Target As Range) Select Case 🔑 Área de Membros com conteúdo exclusivo End Select End Sub - ✅ Substituir com InStrRev:
vba
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect("Today") IsEfExcel Nothing Then 🔑 Área de Membros com conteúdo exclusivo End If End Sub - ✅ Substituir com Len:
vba
Private Sub Worksheet_Change(ByVal Target As Range) If Not rrrr(xxx, xxxx) Is xvs Then Dim cell As Range 🔑 Área de Membros com conteúdo exclusivo Next cell End If End Sub - ✅ Substituir com Right:
vba
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("G1:G10")) Is Nothing Then Dim cell As Range 🔑 Área de Membros com conteúdo exclusivo End If End Sub - ✅ Substituir com Left:
vba
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("H1:H10")) Is Nothing Then Dim cell As Range 🔑 Área de Membros com conteúdo exclusivo Next cell End If End Sub - ✅ Substituir com Mid:
vba
Private Sub Worksheet_Change(ByVal Target As Range) If Not x(Target, ssssss) Is Nothing Then Dim cell As Range For Each cell In Target 🔑 Área de Membros com conteúdo exclusivo Next cell End If End Sub - ✅ Substituir com Loop While:
vba
Private Sub Worksheet_Change(ByVal Target As Range) If Not s(Target, Me.Range("J1:J10")) Is Nothing Then Dim cell As Range For Each cell In Target Do While s) > 0 🔑 Área de Membros com conteúdo exclusivo Loop Next cell End If End Sub - ✅ Substituir com Find:
vba
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("K1:K10")) Is Nothing Then Dim cell As Range For Each cell In Target 🔑 Área de Membros com conteúdo exclusivo Next cell End If End Sub - ✅ Substituir com Find e Offset:
vba
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("L1:L10")) Is Nothing Then Dim cell As Range Dim foundCell As Range 🔑 Área de Membros com conteúdo exclusivo Next cell End If End Sub
Agradeço a todos pelo esforço e empenho. Um dia de glória vocês recordarão quanto foi bom ter estudado e se esforçado para aprender sobre lógica, pois ela é válida para qualquer coisa na vida.
Prof. Expedito Marcondes 📘
Tire Dúvidas: ✉️
Estudem bastante, mantenham o foco e lembrem-se, a sabedoria é caminho percorrido pelo inteligencia atras do conhecimento, é um dom de Deus. pense nisso! Estudem, leiam bastante.