Operar con el valor de una textbox.
Tengo, este formato en una hoja de excel, (Ojo que no es un formulario)
En la primera parte la persona asigna, un producto y bueno, textboxes, formularios y eso.
En la segunda parte es una textbox, quiero que al presionar ▲ valla aumentando el valor de la textbox, Ejemplo, si tiene 5 y presiono el botón aumenta a 6.
Jajajaja se que es sencillo pero la forma como creí que debe hacerse me da error de ejecución, entonces pailas, aquí les dejo mi código de todos modos.
Sub mas_q() Value = Val(TextBox1.Text) suma = Value + 1 TextBox1.Text = suma End Sub
Aprovechando esta pregunta, me gustaria saber como valido la textbox de tal manera que si el usuario decide hacerlo manualmente solo pueda introducir datos numericos.
Yo lo aria en access así:
Me. Cantidad --- es el textbox, en propiedades le pongo valor predeterminado 1
Baja es la flecha de hacia abajo
Sube la flecha de hacia arriba
--------------------------------------------
Private Sub Baja_Click() Me.Cantidad = Me.Cantidad - 1 End Sub Private Sub Sube_Click() Me.Cantidad = Me.Cantidad + 1 End Sub
En la propiedades del textbox tiene una que se llama formato y le pones numero general. Asi solo dejara introducir numeros
1 respuesta más de otro experto
</Hola
Usa el control spingButton
Private Sub SpinButton1_SpinDown() TextBox1.Value = TextBox1.Value - 1 End Sub
Private Sub SpinButton1_SpinUp() TextBox1.Value = TextBox1.Value + 1 End Sub
sigue las instrucciones de este vídeo
https://www.youtube.com/watch?v=3C89ry30zy0
Valora para finalizar Excelente o bueno
Para permitir solo numero, pon esto en el evento Keypress del textbox
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (KeyAscii >= 48 And KeyAscii <= 57) Then KeyAscii = 0 End Sub
Valora para finalizar Excelente o bueno
Amigo que pasa si no quieres usar formulario, quiero que sea desde la misma hoja de excxel con el con una textbox ativex, no hay alguna forma??
Normal lo insertas el control PingBotton y un textbox en la hoja y funciona
Y pones los códigos en los eventos que te pasé