Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
tirar primeiro numero a direita
-
- Colaborador
- Mensagens: 35
- Registrado em: Sex Jan 28, 2011 9:02 pm
tirar primeiro numero a direita
olá meus amigos estou com um problema, acho que vcs podem mi ajudar, veja bem tenho um formulario e nesse formulario tenho um texbox1 no evento afterupdate quero digitar um numero exemplo 600 quando eu sair do texbox1 quero que esse numero fique 60 tirando o primeiro numero a direita independemente de ser zero pode ser qualquer numero mais quero que ele tire esse numero, como fazer isso galera!
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: tirar primeiro numero a direita
Coloque a rotina abaixo no Textbox :
A Função Left(sNum, 2) - Retorna os dois primeiros numeros, não importa a qde de digitos que colocar.
[]s
Código: Selecionar todos
Private Sub TextBox1_AfterUpdate()
sNum = TextBox1.Value
TextBox1 = Left(sNum, 2)
End Sub
[]s
-
- Colaborador
- Mensagens: 35
- Registrado em: Sex Jan 28, 2011 9:02 pm
Re: tirar primeiro numero a direita
mauro obrigado pela a ajuda, o teu exemplo funcionu bacana, só que eu quero é tirar um digito só, não importa a quantidade que vá ficar, no seu procedimento agente indentifica a quantidade que quer, e eu não quero indentificar essa quantidade eu só quero que tire um digito exemplo se eu digitar 45825 ele deve ficar assim: 4582 sem o numero cinco se eu digitar assim: 1234 ele fica assim: 123 tirando sempre o ultimo numero espero ser ajuda desde ja eu agradeço a todos!
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: tirar primeiro numero a direita
João, eu havia entendido que queria tirar o último nummero de uma sequencia de "3" não importando se o último era "0" ou não, mas pelo que expoz agora, altere a rotina para a abaixo :
Veja mais sobre as Funções utilizadas no Site abaixo :
VBA – Funções para tratamento de Texto
http://www.juliobattisti.com.br/excel12 ... icao18.htm
[]s
Código: Selecionar todos
Private Sub TextBox1_AfterUpdate()
sNum = TextBox1.Value
TextBox1 = Left(sNum, Len(sNum) - 1)
End Sub
VBA – Funções para tratamento de Texto
http://www.juliobattisti.com.br/excel12 ... icao18.htm
[]s
-
- Colaborador
- Mensagens: 35
- Registrado em: Sex Jan 28, 2011 9:02 pm
Re: tirar primeiro numero a direita
obrigado meu amigo mauro, deu certo kara funcionou beleza, eu tenho outra pra vc mi ajudar, nessa mesma questão, exemplo eu digito assim: se eu digitar quatro numero 1234 quero colocar uma virgula no primeiro numero que ficaria assim: 1,234 se eu digitar cinco numeros 12345 ficaria assim: 12,345 e se eu digitar seis numeros 123456 ficaria assim: 123,456 e assim sucessivamente, desde ja eu agradeço um abraço!