Sumar todos los TextBoxes de un Formulario en Excel – Fácil y rápido
Tenemos un Formulario con muchos Cuadros de texto o TextBoxes. Deseamos sumar todos los valores ingresados en esos Controles, pero lo queremos hacer de manera rápida y fácil, sin usar mucho código VBA.
Si no tienes mucha experiencia con macros en Excel o programación en general, tal vez tu primer impulso sea usar como esto:
Suma = TextBox1 + TextBox2+ TextBox3 TextBox4 TextBox5, etc.
Lo anterior si bien no es incorrecto, sí es poco práctico porque tendrías una línea muy larga si es que tuviéramos muchos Cuadros de texto en el Formulario. Lo ideal es usar de manera correcta bucles y estructuras de Control para que nuestro código sea más eficiente y profesional.
Ver Video Sumar todos los Cuadros de texto
Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.
Cómo lo hacemos
Tenemos el siguiente Formulario con 16 TextBoxes, además de un botón que nos ayudará a sumar todos los valores y el resultado se volcará en una etiqueta o Label.
Figura 1. Formulario con muchos TextBoxes que deseamos sumar.
Código VBA de la macro
El siguiente código VBA en Excel nos será útil para recorrer todos los TextBoxes e irnos acumulando en la variable Valor1 para luego mostrar el resultado. Usamos el Bucle For Next, If then Else y variables tipo Integer.
Option Explicit
Private Sub CommandButton1_Click()
Dim i
Dim Valor As Integer
Dim Valor1 As Integer
For i = 1 To 17
If VBA.IsNumeric(Me.Controls("TextBox" & i).Value) Then
Valor = Me.Controls("TextBox" & i).Value
'Valor1 = Val(Valor1) + Val(Valor)
Valor1 = Valor1 + Valor
Else
'
End If
Next i
Me.Label2.Caption = Valor1
End Sub
Descarga el archivo de ejemplo
Sumar todos los TextBoxes – EXCELeINFO.zip
Si te gustó este tutorial por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.
