Notifications
Clear all

Multiplicar Text Box Por Porcentagem

5 Posts
3 Usuários
0 Reactions
1,976 Visualizações
(@junin-lima)
Posts: 4
New Member
Topic starter
 

boa tarde galera..

estou começando um projeto de vba e me deparei com uma dificuldade.

Tenho 4 textbox que farao operaçoes matematicas conforme pode se ver na imagem abaixo o que desejo:

como podem ver eu quero informar um valor na TextBox3, a TextBox4 Me mostrara o resultado da multiplicação da TextBox3 * 0.0165 (1,65%), a TextBox5 Me mostrara o resultado da multiplicação da TextBox3 * 0.0760 (7,6%), e a text box6 O resultado da subtração da TextBox3 - TextBox4 - TextBox5.

Com o codigo abaixo consegui fazer o esperado acima, MAS eu queria de forma automatica quando digitasse na TextBox3 o valor o restante viesse automatico o resultado nas demais textbox. e tbm quando digito o valor da textbox3 errado, se vou consertar nao atualiza automaticamente alguem sabe um codigo mais automatico do que esse abaixo:

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Text = Format(TextBox3.Text, "R$ #0.00")
End Sub

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Valor As Currency

Valor = TextBox3.Text

If (TextBox4.Text = "") Then
TextBox4 = (Valor * 0.0165)

TextBox4.Text = Format(TextBox4.Text, "R$ #0.00")
End If
End Sub

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Valor As Currency

Valor = TextBox3.Text

If (TextBox5.Text = "") Then
TextBox5 = (Valor * 0.0765)
TextBox5.Text = Format(TextBox5.Text, "R$ #0.00")
End If
End Sub

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox6.Text = CDbl(TextBox3.Text) - CDbl(TextBox4.Text) - CDbl(TextBox5.Text)
TextBox6.Text = Format(TextBox6.Text, "R$ #0.00")
End Sub

 
Postado : 29/10/2013 1:26 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Junin Lima,

Boa Noite!

Veja se assim lhe atende.

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 : 29/10/2013 6:44 pm
(@junin-lima)
Posts: 4
New Member
Topic starter
 

Muito obrigado Wagner era isso mesmo que estava procurando.

 
Postado : 30/10/2013 6:01 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

oK, Junin Lima.

Peço votar positivamente.

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 : 30/10/2013 7:11 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 30/10/2013 10:41 am