Кнопка VBA Spin с 10-значным числом мин и макс

Question

Я создал кнопку прокрутки в пользовательской форме, однако минимальные и максимальные значения, которые я хотел бы установить, не будут работать, когда я изменю свойства кнопки прокрутки на 10-значное значение.Я также попытался вручную изменить его в коде, но он не позволил бы мне запустить код с 10-значными минимальными и максимальными значениями.Он продолжал ставить # после десятизначного минимума и максимума, а затем сообщал об ошибке 424, когда я все равно пытался его запустить.Как я могу изменить свойства кнопки прокрутки в пользовательской форме на 10-значные значения?

Пожалуйста, попробуйте объяснить самый простой способ сделать это, поскольку я не являюсь профессиональным программистом или кем-то еще. Lol

Answer 1

Используйте этот код в пользовательской форме:

Private Sub TextBox1_AfterUpdate()
    If TextBox1.Value > 9999999999# Then
        TextBox1.Value = 9999999999#
    ElseIf TextBox1.Value < 1000000000 Then
        TextBox1.Value = 1000000000
    End If
End Sub

Private Sub UserForm_Initialize()
    TextBox1.Value = 1000000000
End Sub

Private Sub SpinButton1_SpinDown()
    If TextBox1.Value <> 1000000000 Then
        TextBox1.Value = TextBox1.Value - 1
    End If
End Sub

Private Sub SpinButton1_SpinUp()
    If TextBox1.Value <> 9999999999# Then
        TextBox1.Value = TextBox1.Value + 1
    End If
End Sub