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.

Formulario con muchos TextBoxes que deseamos sumar.

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.

You may also like...

Leave a Reply

Your email address will not be published.

%d bloggers like this: