Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Descobrir %
 
Notifications
Clear all

Descobrir %

 
2024 - VBA & Macros
Post Recente por Luk 7 anos atrás
5 Posts
4 Usuários
0 Reactions
1,294 Visualizações
RSS
 Luk
(@luk)
Posts: 44
Eminent Member
Topic starter
 

Boa tarde, pessoal do fórum!

Quem puder me ajudar, segue minha dúvida!

Tenho 3 TextBox

TxtValorProduto
txtValorTotalPagar
txtPorcentagem

txtCalorProduto =620,50
txtTotalpagar 500,00
na textPorcentagem quero descobri quanto dei de desconto????

resultado da calculadora = 19,41% então 620,50 - 500,00 ficou 19,41 de desconto

Então para resumir quero colocar na txtValorproduto=620,50 na txtValorTotalpagar=500,00 e na txtPorcentagem quero receber o resultado 19,41%
Alguém poderia me ajudar?

Atenciosamente,
Luk.

 
Postado : 18/11/2017 10:44 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Luk,

Boa tarde!

Basta você inserir no txtPorcentagem uma divisão do resultado de txtValorProduto - txtValorTotalPagar pelo txtValorProduto e multiplicar o resultado dessa divisão por 100.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 18/11/2017 12:28 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Tenta assim:

No evento exit da txt valor a pagar coloque este codigo

Dim valor as double

Valor =1-(txtvalor a pagar/valor do produto)


=txtporcentagem.value = format(valor*100, "0.00") & "%"

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 18/11/2017 12:37 pm
gfranco
 gfranco
(@wzxnet7)
Posts: 653
Honorable Member
 

Boa tarde.
Segue minha contribuição ao tópico.

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 18/11/2017 12:57 pm
 Luk
(@luk)
Posts: 44
Eminent Member
Topic starter
 

Pessoal muito obrigado!

Acredito que este fórum é o mais ágil,
Obrigado!
Att,Luk

 
Postado : 18/11/2017 7:25 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico