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.
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?
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
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?
Sem dúvida suas aulas e didática são as melhores que já vi no UA-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
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?
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.
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? ua-cam.com/video/uHofgrDur34/v-deo.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.
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!
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.
Logo logo vou adquirir o curso
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?
Cara você sempre mostra um jeito diferente de programar, parabéns pela criatividade, Simplesmente Espetacular!!!!
MARAVILHOSO ESTE VÍDEO!!!!
Perfeito, impressionado com a facilidade kkk.. Obrigado e Abraços!!
Nossa! perfeito, amei!
obrigado
Ó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.
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
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.
Muito massa! Parabéns pelo vídeo
Obrigado Diogo, continue nos acompanhando. Abraços!
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
com hora funciona da mesma forma?
Aula top, parabéns pela didática!!
Parabéns, Israel!
Estou cada dia mais impressionado com seu curso👏👏👏👏
Esse método também funciona para InputBox? Se não, como poderia ser feito neste caso?
Sem dúvida suas aulas e didática são as melhores que já vi no UA-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: ua-cam.com/video/uHofgrDur34/v-deo.html
está de parabéns!
Bom dia professor parabéns pela aula
Excelente Israel!!! Parabéns por mais esse conteúdo!!!
TEM como explicar como faço para configurar em uma coluna onde dígito data e hora? Meu muito obrigado
Muito bom
Valeu Luiz, continue nos acompanhando. Abraços!
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 !
Parabéns! vc é fera...
Espetacular, gostei muito.
Muito bom. Muito obrigado.
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!
Excelente! Valeu pela aula!!!
Excelente aula!! Muito Obrigado!
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.
Excelente conteúdo...
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!
Muito bom!
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?
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?
ua-cam.com/video/uHofgrDur34/v-deo.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!