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

Ajuda com arredondamento

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
pedro_mexico
Consultor
Consultor
Mensagens: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

Ajuda com arredondamento

Mensagem por pedro_mexico »

boa noite forum.
tenho uma textbox que coloco um valor e depois queira que ele somasse 23%,
tentei fazer assim:
"Textbox1*0.23+textbox1", mas ele da um numero com varias casas decimais, mas eu queia que ele ao gravar o numero desse o numero com duas casas decimais , mas arredondado
ex:
125.25*0.23=28.8075
28.8075+125.25=154.0575

queria que o resultado ao gravar na celula ficasse 154.06.
ja tente o round, mas nao consigo, algume consegu dar uma ajuda sff.
Obrigado


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
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Ajuda com arredondamento

Mensagem por Reinaldo »

experimente--> Textbox1 = VBA.Round(Textbox1 * 1.23, 2)


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Ajuda com arredondamento

Mensagem por Reinaldo »

experimente--> Textbox1 = VBA.Round(Textbox1 * 1.23, 2)


pedro_mexico
Consultor
Consultor
Mensagens: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

Re: Ajuda com arredondamento

Mensagem por pedro_mexico »

boa noite Reinaldo,
o codigo que enviou dá erro


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
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Ajuda com arredondamento

Mensagem por Reinaldo »

Motivo nenhum para gerar erro, salvo se textbox for/receber um texto como conteudo, ai vai gerar erro de tipos incompativeis
Multiplicar o valor de Textbox1 por 1.23 e a mesma conta que estava efetuando>"Textbox1*0.23+textbox1"
e a função VBA.Round, corresponde a função de arredondamento na planilha:
vba.round(Textbox1*0.23+textbox1)


pedro_mexico
Consultor
Consultor
Mensagens: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

Re: Ajuda com arredondamento

Mensagem por pedro_mexico »

Bom dia Reinaldo.
O formulario estava a dar erro 13, mas nao sei se tinha haver directamente com o codigo.
o que reparei e ja percebi, é que ao digitar os numeros no teclado na parte numerica e coloco ponto(.) ele nao arredonda direito, mas se colocar a (,)no teclado letras,ele faz a conta direita.

Mais uma vez obrigado


pedro_mexico
Consultor
Consultor
Mensagens: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

Re: Ajuda com arredondamento

Mensagem por pedro_mexico »

Reinaldo,
existe alguma maneira de ao digitar na textbox o (.) ele mude para (,).
pergunto isto pq o formulario nao esta a ser so utilizado por mim, e como sao varias pessoas, nem todas vao estar atentas ao pormenor de colocar a virgula em vez do ponto e vai arredondar de forma errada.

e ja agora existe alguma forma de trocar a cor de uma celula mediante valor de uma combobox mas quando o codigo que esta para gravar seja este :
".Cells(linha, 2) = cmbEstado"

a ideia é se o valor da cmbestado for Finalizado ele muda a cor da celula de gravaçao para verde.


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