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

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

1 个答案: