số lên xuống kiểm soát trong vba

Question

Có một điều khiển được xây dựng bằng số trong vba hoặc chúng ta cần tạo điều khiển như thế không?

Nếu có kiểm soát như vậy thì các sự kiện chúng tôi có thể sử dụng là gì.

Đề xuất.

Answer 1

Bạn có thể sử dụng SpinButton1 kiểm soát cho rằng

SNAPSHOT

MÃ

Bạn có thể thiết lập các min và max của SpinButton1 trong thời gian thiết kế hoặc tại thời gian chạy như hình dưới đây.

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

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

followup

Nếu bạn muốn tăng hoặc giảm giá trị của textbox dựa trên những gì người dùng đã nhập vào trong hộp văn bản sau đó sử dụng này. Điều này cũng làm cho một textbox "Số Chỉ" textbox mà chỉ đáp ứng yêu cầu khác của bạ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