¿Cómo sumar valores de cuadros de texto?

Supongamos que tienes tres cuadros de texto y deseas sumar los valores de CuadroDeTexto1 y CuadroDeTexto2, y calcular automáticamente el resultado en CuadroDeTexto3, como se muestra en la siguiente captura de pantalla. ¿Cómo podrías realizar esta tarea en Excel?

Sumar valores de cuadros de texto con código VBA

Sumar valores de cuadros de texto con código VBA

Para sumar valores de dos cuadros de texto y obtener el resultado en un tercer cuadro de texto, el siguiente código VBA puede ayudarte.

1. Primero, debes insertar tres cuadros de texto, haz clic en Desarrollador > Insertar > Cuadro de Texto (Control ActiveX), y luego dibuja un cuadro de texto y haz dos copias, ver captura de pantalla:

2. Después de insertar los cuadros de texto, haz clic derecho en la pestaña de la hoja que contiene los cuadros de texto que deseas usar, y selecciona Ver Código desde el menú contextual para abrir la ventana de Microsoft Visual Basic para Aplicaciones, y luego copia y pega el siguiente código VBA en el módulo en blanco:

Código VBA: Sumar valores de cuadros de texto:

Private Sub Sum_Click()
    TextBox3.Text = Val(TextBox2.Text) + Val(TextBox1.Text)
End Sub

3. Luego, escribe los valores en CuadroDeTexto1 y CuadroDeTexto2, y presiona la tecla F5 o el botón Ejecutar para ejecutar el código; el resultado calculado se mostrará inmediatamente en CuadroDeTexto3, ver captura de pantalla: