Suma de varios text box . Resultado en un textbox
La accion que quiero realizar es la siguiente
Sumar los valores de multiples textbox (llamados st1, st2, st3, etc) y que la suma final se muestre en un text box nuevo (total)
Todo seria con formato moneda
2 Respuestas
Te anexo un ejemplo
Private Sub CommandButton1_Click() w_st1 = 0 w_st2 = 0 w_st3 = 0 w_st4 = 0 If IsNumeric(st1.Value) Then w_st1 = CDbl(st1.Value) If IsNumeric(st2.Value) Then w_st2 = CDbl(st2.Value) If IsNumeric(st3.Value) Then w_st3 = CDbl(st3.Value) If IsNumeric(st4.Value) Then w_st4 = CDbl(st4.Value) ' w_tot = w_st1 + w_st2 + w_st3 + w_st4 stotal.Value = Format(s_tot, "$ #,##0.00") End Sub
R ecuerda, si los textbox tienen formato, para convertirlo a valor numérico, tienes que utilizar la función CDbl( )
Sal u dos
La última variable es w_tot
Estoy poniendo que tu textbox donde se hace la suma se llama stotal
Private Sub CommandButton1_Click() w_st1 = 0 w_st2 = 0 w_st3 = 0 w_st4 = 0 If IsNumeric(st1.Value) Then w_st1 = CDbl(st1.Value) If IsNumeric(st2.Value) Then w_st2 = CDbl(st2.Value) If IsNumeric(st3.Value) Then w_st3 = CDbl(st3.Value) If IsNumeric(st4.Value) Then w_st4 = CDbl(st4.Value) ' w_tot = w_st1 + w_st2 + w_st3 + w_st4 stotal.Value = Format(w_tot, "$ #,##0.00") End Sub
sal u dos
FUNCIONA perfectamente
hay posibilidad de que en vez de usar un boton para calculo, este se haga automaticamente?
a medida que voy cargando cantidades en los text box, se actualize el stotal...
el text box que carga cantidad lo llamo k1, k2, k3, k4 y cada uno modifica el st1,st2,st3,st4 correspondientemente...
gracias
Cambia por esto:
Private Sub st1_Change() Call Sumar End Sub Private Sub st2_Change() Call Sumar End Sub Private Sub st3_Change() Call Sumar End Sub Private Sub st4_Change() Call Sumar End Sub Sub Sumar() w_st1 = 0 w_st2 = 0 w_st3 = 0 w_st4 = 0 If IsNumeric(st1.Value) Then w_st1 = CDbl(st1.Value) If IsNumeric(st2.Value) Then w_st2 = CDbl(st2.Value) If IsNumeric(st3.Value) Then w_st3 = CDbl(st3.Value) If IsNumeric(st4.Value) Then w_st4 = CDbl(st4.Value) ' w_tot = w_st1 + w_st2 + w_st3 + w_st4 stotal.Value = Format(s_tot, "$ #,##0.00") End Sub
el stotal se actualiza cada que modificas un textbox st1, st2, etc. Cada valor del textbox se almacena en una variable w_st1, w_st2, etc, solamente es para tomar la conversión de texto a valor numérico, al final, lo que se suma en el textbox stotal son las variables w_st1, w_st2, etc
Estos ejemplos integrales te pueden ayudar