Hacer campos de formulario calculan automáticamente en el Visual Basic para Aplicaciones ( VBA) programa puede eliminar pasos adicionales para el usuario. VBA se puede utilizar en todas las aplicaciones de Microsoft Office, como Excel. Puede crear campos de formulario mediante el uso de controles de cuadro de texto en un formulario de usuario en Excel y hacer que se calculan de forma automática mediante el evento "Change" para cada uno de los controles. El evento " Cambio" se ejecutará cuando el valor en los campos pueden ser modificados por el usuario. Cosas que necesitará
Microsoft Office Excel
Ver Más instrucciones
1
lanzamiento de Microsoft Office Excel , haga clic en la pestaña de " desarrolladores" y haga clic en "Visual Basic " para iniciar la ventana del editor de VB . Haga clic en el menú "Insertar" y haga clic en "Formulario de Usuario" para insertar una nueva forma . Haga clic en " cuadro de texto " en la ventana " Herramientas " y haga clic en el formulario para agregar un nuevo control de cuadro de texto. Agregue dos más cajas de texto utilizando la misma técnica para crear tres cajas campos de formulario de texto .
2 Haga clic en el primer cuadro de texto y haga clic en " Ver código " para abrir el editor de VB . Pulse la tecla "Ctrl " y "A" para seleccionar el código predeterminado y pulse Copiar y pegar el código siguiente para hacer un cálculo cada vez que un nuevo número se introduce en el primer campo y mostrar el resultado en el tercer campo de formulario " Eliminar". :
resultado As DoublePrivate Sub TextBox1_Change () txtBoxTwo As VariantMe.TextBox2.SetFocustxtBoxTwo = Me.TextBox2.Textresult = txtBoxTwo + Me.TextBox1.TextMe.TextBox3.SetFocusMe.TextBox3 = resultEnd Sub
< br > Página 3
Copia y pega el siguiente código ejecuta este código y hacer un cálculo y ver el resultado en el tercer campo de formulario cada vez que se cambia el segundo campo de formulario :
TextBox2_Change Sub Private () txtBoxOne As VariantMe.TextBox1.SetFocustxtBoxOne = Me.TextBox1.Textresult = txtBoxOne + Me.TextBox2.TextMe.TextBox3.SetFocusMe.TextBox3 = resultEnd Sub
4
doble clic en " UserForm1 " del objeto ventana del explorador y presione "F5 " para ejecutar el programa. Introduzca un número en el primer y segundo campos de formulario para calcular y mostrar el resultado en el tercer campo de formulario automáticamente.
