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