Multiplicación en tiempo real en un TextBox
Espero su gran ayuda, por ser un principiante.
En el TextBox4 me debe salir el Resultado de forma automáticamente según voy ingresando los datos en los demás TextBox (1, 2 y 3)
Ojo El TextBox4 debe estar bloqueado para no borrar ni introducir datos.
Código:
'Private Sub TextBox4_Change()
' Obtiene el resultado de la ecuacion
TextBox4 = ((2 * Val(TextBox1) * 0.91 + Val(TextBox2)) * Val(TextBox3))
End Sub
Respuesta de Jerry Ortiz
1 respuesta más de otro experto
Respuesta de James Bond
1
Usa mejor el evento afterupdate para que la fórmula se ejecute cuanto terminas de escribir el numero y saltas al siguiente textbox, este es el código que ocupas incluido el bloqueo del textbox4
Private Sub TextBox1_AfterUpdate() TextBox4 = ((2 * Val(TextBox1) * 0.91 + Val(TextBox2)) * Val(TextBox3)) End Sub Private Sub TextBox2_AfterUpdate() TextBox4 = ((2 * Val(TextBox1) * 0.91 + Val(TextBox2)) * Val(TextBox3)) End Sub Private Sub TextBox3_AfterUpdate() TextBox4 = ((2 * Val(TextBox1) * 0.91 + Val(TextBox2)) * Val(TextBox3)) End Sub Private Sub UserForm_Initialize() TextBox4.Locked = True End Sub