¿Cómo resumir los valores de los cuadros de texto?
Supongamos que tiene tres cuadros de texto en los que desea sumar los valores en Textbox1 y Textbox2, y calcular el resultado automáticamente en Textbox3 como se muestra en la siguiente captura de pantalla. ¿Cómo podrías lidiar con este trabajo en Excel?
Sumar valores de cuadros de texto con código VBA
Sumar valores de cuadros de texto con código VBA
Para resumir los valores de dos cuadros de texto y obtener el resultado en el tercer cuadro de texto, el siguiente código VBA puede ayudarlo.
1. Primero, debe insertar tres cuadros de texto, haga clic en Developer > recuadro > Cuadro de texto (control ActiveX), y luego dibuja un cuadro de texto y haz dos copias, mira la captura de pantalla:
2. Después de insertar los cuadros de texto, haga clic derecho en la pestaña de la hoja que contiene los cuadros de texto que desea usar y haga clic en Ver código desde el menú contextual para abrir el Microsoft Visual Basic para aplicaciones ventana, y luego copie y pegue el siguiente código VBA en el módulo en blanco:
Código de VBA: suma los valores de los cuadros de texto:
Private Sub Sum_Click()
TextBox3.Text = Val(TextBox2.Text) + Val(TextBox1.Text)
End Sub
3. Luego escriba los valores en Textbox1 y Textbox2, y luego presione F5 o Ejecutar para ejecutar el código, el resultado calculado se muestra en Textbox3 inmediatamente, vea la captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!