Vba

Question

Nümerik yukarı aşağı denetimi Vba'da yerleşik bir sayısal yukarı doğru denetimi var mı, yoksa böyle bir denetim oluşturmamız gerekiyor mu?

Böyle bir denetim varsa, kullanabileceğimiz olaylar nelerdir?

Pls şunu öneriyor.

Answer 1

Bunu

SNAPSHOT için SpinButton1 kontrolünü kullanabilirsiniz

KOD Sen tasarım zamanında SpinButton1 min ve max ayarlayabilirsiniz ya

veya Aşağıda gösterildiği gibi çalışma zamanında.

artırabilir ya da metin kutusuna girdi o zaman bu kullanmak ne kullanıcı dayalı metin değerini düşürmek istiyorsanız

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

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

İZLEMİNDE. i metin kutuları ile iki sıkma düğmeleri bağlantılı Aslında)

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