Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » Qui Mar 03, 2011 4:34 pm

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: 1559
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 » Qui Mar 03, 2011 11:41 pm

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


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

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

Re: tirar primeiro numero a direita

Mensagem por joaofrancisco » Sex Mar 04, 2011 12:04 am

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: 1559
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 » Sex Mar 04, 2011 1:16 am

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


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

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 » Sex Mar 04, 2011 10:51 am

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