control numérico hacia arriba en vba

Question

¿Existe un control numérico integrado en vba o necesitamos crear un control como ese?

Si existe tal control, ¿cuáles son los eventos que podemos usar?

pls sugieren.

Answer 1

Usted puede utilizar el control SpinButton1 para que

INSTANTÁNEA

CÓDIGO

Puede configurar los valores mínimo y máximo de la SpinButton1 en tiempo de diseño o en tiempo de ejecución como se muestra a continuación.

Private Sub UserForm_Initialize() 
    SpinButton1.Min = 0 
    SpinButton1.Max = 100 
End Sub 

Private Sub SpinButton1_Change() 
    TextBox1.Text = SpinButton1.Value 
End Sub 

FOLLOWUP

Si desea aumentar o disminuir el valor del cuadro de texto en base a lo que el usuario ha de entrada en el cuadro de texto a continuación, utilizar esto. Esto también hace que el cuadro de texto un cuadro de texto "Sólo Número" que acaba cumple su otra petición;)

Private Sub SpinButton1_SpinDown() 
    TextBox1.Text = Val(TextBox1.Text) - 1 
End Sub 

Private Sub SpinButton1_SpinUp() 
    TextBox1.Text = Val(TextBox1.Text) + 1 
End Sub 

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    Select Case KeyAscii 
     Case vbKey0 To vbKey9, 8 
     Case Else 
     KeyAscii = 0 
     Beep 
    End Select 
End Sub