Sumar textbox

4 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 4 años 5 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Sumar textbox

Hola, una favor estoy trabajando con un formulario que quiero hacer unas sumas, tengo dos textbox y quisiera que el resultado de la suma de los mismos salga en un tercer textbox,   los textbox1 y 2 solo acepten numeros y con decimales, y que el resultado en el textbox3 igual salga con decimales.

Gracias

Jesús

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 3 semanas 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: Sumar textbox

Un textbox, como su nombre indica lo que contiene es un texto.

Para limitarlo a números o para que se muestre con un determinado formato, deberás implemetarlo mediante código 

Para esto te vendrán bien las siguientes funciones de VBA

Format    para dar formato con los decimales que quieras

por ejemplo, puedes aplicar formato al textbox1 en el evento Exit, al salir, del textbox1

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    With Me.TextBox1

        .Value = Format(.Value, "0.00")

    End With

End Sub

 
Si lo que hay el textbox1 no es un número, no le aplicará formato.
Puedes emplear por ejemplo la función CDbl para convertir lo que haya escrito en el textbox en un número de tipo Double.
Esto provocará un error si lo que hay en el textbox no es un número. Puedes utilizar este error para avisar al usuario de que lo que ha escrito no es válido
Por ejemplo algo así:
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo TrataError
    With Me.TextBox1
        .Value = Format(CDbl(.Value), "0.00")
    End With
Exit Sub
TrataError:
    MsgBox "no se reconoce como número lo que hay en el textbox1", vbOKOnly + vbExclamation, "Ya sé Excel, pero necesito más"
    Cancel = True
End Sub
 

 

------
Ya sé Excel, pero necesito más.

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 3 semanas 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
casi lo olvido...

bueno, casi olvido la primera parte de la pregunta.

para sumar, crea un procedimiento en el código del formulario que realice la suma.

Luego llámalo cada vez que quieras calcular (por ejemplo al salir del textbox1, al salir del textbox2, ...)

Sub calcularsuma()

    Me.TextBox3.Value = Format(CDbl(Me.TextBox1.Value) + CDbl(Me.TextBox2.Value), "0.00")

End Sub

 

------
Ya sé Excel, pero necesito más.

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 4 años 5 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Re: Sumar textbox

Capo total gracias mil

Un saludo

 

 

Jesús

Jesus Martinez Plantarosa