Vídeo recomendado
https://youtu.be/diWPPPhW-9E

tirar primeiro numero a direita

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
joaofrancisco
Colaborador
Colaborador
Mensagens: 35
Registrado em: Sex Jan 28, 2011 9:02 pm

tirar primeiro numero a direita

Mensagem por joaofrancisco »

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!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mauro Coutinho
Jedi
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

Mensagem por Mauro Coutinho »

Coloque a rotina abaixo no Textbox :

Código: Selecionar todos

Private Sub TextBox1_AfterUpdate()
    
    sNum = TextBox1.Value
    
    TextBox1 = Left(sNum, 2) 

End Sub
A Função Left(sNum, 2) - Retorna os dois primeiros numeros, não importa a qde de digitos que colocar.

[]s


joaofrancisco
Colaborador
Colaborador
Mensagens: 35
Registrado em: Sex Jan 28, 2011 9:02 pm

Re: tirar primeiro numero a direita

Mensagem por joaofrancisco »

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!


Avatar do usuário
Mauro Coutinho
Jedi
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

Mensagem por Mauro Coutinho »

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 :

Código: Selecionar todos

Private Sub TextBox1_AfterUpdate()
       
    sNum = TextBox1.Value
       
    TextBox1 = Left(sNum, Len(sNum) - 1)
        
End Sub
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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


joaofrancisco
Colaborador
Colaborador
Mensagens: 35
Registrado em: Sex Jan 28, 2011 9:02 pm

Re: tirar primeiro numero a direita

Mensagem por joaofrancisco »

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!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder