Cara, muito boa aula. Já assisti bastante vídeos sobre máscaras de entrada e até foram bons, mas davam muita volta pra chegar ao objectivo. Esta aula é simples, rápida e super bem explicada. Parabéns, sou fã
Obrigado por compartilhar seu conhecimento conosco, de todos os canais sobre VBA que já vi, você realmente foi o melhor. Meu amigo, por um acaso você poderia nos ensinar a fazer a codificação de um plano de contas contábil?
Daria um excelente professor no meu curso de Pedagogia (para formação de professores), na UFT. Lá, 90% do tempo das aulas, é sobre luta de classes e temas afins. Ao final, parece ser o único curso, que que você sai mais retardado do que quando entrou. Didática é tudo! Deus abençoe.
Sem dúvida suas aulas e didática são as melhores que já vi no TH-cam sobre VBA, Parabéns (e já assisti muuuuita gente boa) seria interessante acrescentar umas condicionantes para impedir que o usuário digite os próprios caracteres especiais, pois no altomatismo pode digitar e aparecer duas vezes. Sei de um jeito de fazer isso,mas adoraria ver como vc faz!Abraços
Olá, Rodrigo. Da pra fazer na célula, mas somente depois de digitar tudo e dar enter através do evento Change da planilha. Enquanto digita-se não é possível.
Tem alguma diferença para melhor ou pior se eu usar assim no caso da data, ou só questão de tamanho da rotina mesmo? : If Len(txtData) = 2 Then txtData = txtData + "/" End If If Len(txtData) = 5 Then txtData = txtData + "/" End If
Uma dúvida , tem como realizar funções dentro da validação de dados através do VBA ? Tento utilizar o indireto e consta erro 1004, se poder esclarecer aí agradecerei !
Adorei o vídeo meu camarada! Só estou tendo uma dificuldade, percebi que não da para apagar o "-" depois de digitar os números, só é possível se colocar o cursor antes dela e apertar o "delete", tem alguma forma de permitir que o usuário consiga apagar usando normalmente o backspace?
Só tem um problema que acabei de notar usando este metodo do Case, exemplo: 03080-030 Se eu precisar apagar quando chega no "-" ele não apaga de jeito nenhum... tem algum jeito de driblar isso?
Criei um formulário com o textbox formatado para data simples, com 10 campos e barra automática ao digitar. Porem, agora, após auguns anos de uso se tornou necessário o uso de data completa. Mas não estou conseguindo adaptar a formula para o formato LongDate. Ex.(Segunda-Feira, 18 de Março de 1991) aguém ja teve este problema e conseguiu resilver?
Professor, boa tarde. Poderia explicar qual a diferença desse modo para este outro modo que você já ensinou? th-cam.com/video/uHofgrDur34/w-d-xo.html Obrigado.
O valor do seu curso na academia, na minha opinião está muito caro, sei que conhecimento tem que ser valorizado, mas acho que deveria rever melhor os preços, até que ainda fui interessado no seu curso vba, mas assim fica complicado. Caso minha opinião não sirva, só desconsiderar, mas fica a dica
Digite um cpf válido de depois tente apagá-lo caracter por caracter com a tecla back Space e veja o que acontece... Solução: Option explicit Dim CPF as string 'Private Sub txtCPF_Change() ' CPF = txtCPF.Text ' If Len(CPF) = 4 Then ' If IsNumeric(Right(CPF, 1)) Then CPF = Left(CPF, 3) & "." & Right(CPF, 1) ' ElseIf Len(CPF) = 8 Then ' If IsNumeric(Right(CPF, 1)) Then CPF = Left(CPF, 7) & "." & Right(CPF, 1) ' ElseIf Len(CPF) = 12 Then ' If IsNumeric(Right(CPF, 1)) Then CPF = Left(CPF, 11) & "-" & Right(CPF, 1) ' End If ' txtCPF.Text = CPF 'End Sub
Não é necessário fazer isto, basta usar o mesmo código do vídeo, no entanto usar o evento KeyPress no lugar do change que ele deixará apagar normalmente.
@@DATA7Academy OK, tudo bem, só que neste caso eu sugiro acrescentar dentro do evento keypress do controle textbox o seguinte: Select Case KeyAscii Case 48 To 57 Case Else KeyAscii = 0 End Select 'assim o código fica a prova de erro. Parabéns pelo canal. Ótimas dicas.
![[VBA] MÓDULO DE CLASSES - EFEITO PLACEHOLDER](http://i.ytimg.com/vi/8NahVQGeh88/mqdefault.jpg)
![[VBA] MÓDULO DE CLASSES - EFEITO PLACEHOLDER](/img/tr.png)
Curso de VBA do Zero ao Avançado - Assine por apenas R$49,90 por mês sem fidelidade👇🏼
data7academy.com.br/?origem=yt_org_configurarmascaravba
Gênio da explicação fácil!
Obrigado Fernando, continue nos acompanhando. Abraços!
Excelente! Explicação precisa.
Cara, muito boa aula. Já assisti bastante vídeos sobre máscaras de entrada e até foram bons, mas davam muita volta pra chegar ao objectivo. Esta aula é simples, rápida e super bem explicada. Parabéns, sou fã
Obrigado por compartilhar seu conhecimento conosco, de todos os canais sobre VBA que já vi, você realmente foi o melhor. Meu amigo, por um acaso você poderia nos ensinar a fazer a codificação de um plano de contas contábil?
Daria um excelente professor no meu curso de Pedagogia (para formação de professores), na UFT. Lá, 90% do tempo das aulas, é sobre luta de classes e temas afins. Ao final, parece ser o único curso, que que você sai mais retardado do que quando entrou. Didática é tudo! Deus abençoe.
Perfeito, impressionado com a facilidade kkk.. Obrigado e Abraços!!
Cara você sempre mostra um jeito diferente de programar, parabéns pela criatividade, Simplesmente Espetacular!!!!
Logo logo vou adquirir o curso
Ótima aula. Traz alguma coisa sobre animação (movimentações: giro, direita, esquerda, em cima, embaixo, etc) de shapes no Excel através do VBA.
MARAVILHOSO ESTE VÍDEO!!!!
Mano vc é foda! Tô só esperando dar uma aliviada aqui para comprar teu curso, que com certeza vai ser foda também!
Recomendo a aquisição do curso, comprei e venho aprendendo muito, a didática é surreal.
obrigado
Nossa! perfeito, amei!
Aula top, parabéns pela didática!!
Parabéns, Israel!
Estou cada dia mais impressionado com seu curso👏👏👏👏
Muito massa! Parabéns pelo vídeo
Obrigado Diogo, continue nos acompanhando. Abraços!
Sem dúvida suas aulas e didática são as melhores que já vi no TH-cam sobre VBA, Parabéns (e já assisti muuuuita gente boa) seria interessante acrescentar umas condicionantes para impedir que o usuário digite os próprios caracteres especiais, pois no altomatismo pode digitar e aparecer duas vezes. Sei de um jeito de fazer isso,mas adoraria ver como vc faz!Abraços
Ele ensina nesse outro vídeo: th-cam.com/video/uHofgrDur34/w-d-xo.html
Excelente Israel!!! Parabéns por mais esse conteúdo!!!
Bom dia professor parabéns pela aula
está de parabéns!
Muito bom. Muito obrigado.
Excelente aula!! Muito Obrigado!
Parabéns! vc é fera...
Espetacular, gostei muito.
Excelente! Valeu pela aula!!!
Muito bom
Valeu Luiz, continue nos acompanhando. Abraços!
TEM como explicar como faço para configurar em uma coluna onde dígito data e hora? Meu muito obrigado
Excelente conteúdo...
com hora funciona da mesma forma?
Excelente aula! Por favor, queria saber se tem como fazer isso direto nas células da planilha.
Olá, Rodrigo. Da pra fazer na célula, mas somente depois de digitar tudo e dar enter através do evento Change da planilha. Enquanto digita-se não é possível.
Esse método também funciona para InputBox? Se não, como poderia ser feito neste caso?
Tem alguma diferença para melhor ou pior se eu usar assim no caso da data, ou só questão de tamanho da rotina mesmo? :
If Len(txtData) = 2 Then
txtData = txtData + "/"
End If
If Len(txtData) = 5 Then
txtData = txtData + "/"
End If
Muito bom!
Uma dúvida , tem como realizar funções dentro da validação de dados através do VBA ? Tento utilizar o indireto e consta erro 1004, se poder esclarecer aí agradecerei !
Adorei o vídeo meu camarada!
Só estou tendo uma dificuldade, percebi que não da para apagar o "-" depois de digitar os números, só é possível se colocar o cursor antes dela e apertar o "delete", tem alguma forma de permitir que o usuário consiga apagar usando normalmente o backspace?
Use o evento keypress no lugar de change
@@DATA7Academy Sua dica funcionou lindamente meu camarada, sucesso ai!
Só tem um problema que acabei de notar usando este metodo do Case, exemplo: 03080-030
Se eu precisar apagar quando chega no "-" ele não apaga de jeito nenhum... tem algum jeito de driblar isso?
Olá, nesse caso ao invés do evento change, use o evento key press
Criei um formulário com o textbox formatado para data simples, com 10 campos e barra automática ao digitar. Porem, agora, após auguns anos de uso se tornou necessário o uso de data completa. Mas não estou conseguindo adaptar a formula para o formato LongDate. Ex.(Segunda-Feira, 18 de Março de 1991)
aguém ja teve este problema e conseguiu resilver?
Amigo, o seu curso vc vende também por depósito bancário?
Olá, tudo bem? Sim, nesse caso entre em contato pelo número que está na descrição do vídeo!
Como configurar uma do tipo:
(99)99888-8888
O primeiro parenteses vem antes do caractere zero?
if textBox.SelStart = 1 then textBox.SelfText = "("
@@EdsonJunior-ve6jd obrigado
@@EdsonJunior-ve6jd Obrigado.
Contem comigo amigos!
@@EdsonJunior-ve6jd bom Dia!
Professor, boa tarde. Poderia explicar qual a diferença desse modo para este outro modo que você já ensinou?
th-cam.com/video/uHofgrDur34/w-d-xo.html
Obrigado.
O valor do seu curso na academia, na minha opinião está muito caro, sei que conhecimento tem que ser valorizado, mas acho que deveria rever melhor os preços, até que ainda fui interessado no seu curso vba, mas assim fica complicado. Caso minha opinião não sirva, só desconsiderar, mas fica a dica
Digite um cpf válido de depois tente apagá-lo caracter por caracter com a tecla back Space e veja o que acontece...
Solução:
Option explicit
Dim CPF as string
'Private Sub txtCPF_Change()
' CPF = txtCPF.Text
' If Len(CPF) = 4 Then
' If IsNumeric(Right(CPF, 1)) Then CPF = Left(CPF, 3) & "." & Right(CPF, 1)
' ElseIf Len(CPF) = 8 Then
' If IsNumeric(Right(CPF, 1)) Then CPF = Left(CPF, 7) & "." & Right(CPF, 1)
' ElseIf Len(CPF) = 12 Then
' If IsNumeric(Right(CPF, 1)) Then CPF = Left(CPF, 11) & "-" & Right(CPF, 1)
' End If
' txtCPF.Text = CPF
'End Sub
Não é necessário fazer isto, basta usar o mesmo código do vídeo, no entanto usar o evento KeyPress no lugar do change que ele deixará apagar normalmente.
@@DATA7Academy OK, tudo bem, só que neste caso eu sugiro acrescentar dentro do evento keypress do controle textbox o seguinte:
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
'assim o código fica a prova de erro. Parabéns pelo canal. Ótimas dicas.
@@varejaobateriasdefabrica-p8618 Eu que agradeço a sua contribuição. Abraço!