将SpinButtons限制为特定的最小值和最大值

Question

我试图限制用户在VBA中使用SpinButton的限制之间选择值，但我在这里尝试过的是它不适用于我。

Private Sub UserForm_Initialize()
    decimalSpin_Button.Min = 0
    decimalSpin_Button.Max = 5
End Sub


Private Sub decimalSpin_Button_Change()

decimalPlaces_Value.Text = decimalSpin_Button.Value
End Sub
Private Sub decimalSpin_Button_SpinDown()

decimalPlaces_Value.Text = decimalPlaces_Value.Text - 1


End Sub

Private Sub decimalSpin_Button_SpinUp()
decimalPlaces_Value.Text = val(decimalPlaces_Value.Text) + 1

End Sub

Answer 1

你不需要_SpinDown()和_SpinUp() --这会做你想做的事

Private Sub UserForm_Initialize()
    decimalSpin_Button.Min = 0
    decimalSpin_Button.Max = 5
End Sub

Private Sub decimalSpin_Button_Change()
    decimalPlaces_Value.Text = decimalSpin_Button.Value
End Sub