Excel VBA旋转按钮,最小值和最大值为10位

Excel VBA旋转按钮,最小值和最大值为10位,excel,vba,button,Excel,Vba,Button,我在用户窗体上创建了一个旋转按钮,但是当我将旋转按钮的属性更改为10位数时,我想将其设置为的最小值和最大值将不起作用。我还尝试在代码中手动更改它,但它不允许我以10位最小值和最大值运行代码。它一直在10位最小值和最大值之后放置#,然后在我尝试运行它时显示错误424。如何将userform上旋转按钮的属性更改为10位数的值 请试着解释一下最简单的方法,因为我不是一个专业的程序员或任何东西。lol在用户表单中使用此代码: Private Sub TextBox1_AfterUpdate()

我在用户窗体上创建了一个旋转按钮,但是当我将旋转按钮的属性更改为10位数时,我想将其设置为的最小值和最大值将不起作用。我还尝试在代码中手动更改它,但它不允许我以10位最小值和最大值运行代码。它一直在10位最小值和最大值之后放置#,然后在我尝试运行它时显示错误424。如何将userform上旋转按钮的属性更改为10位数的值


请试着解释一下最简单的方法,因为我不是一个专业的程序员或任何东西。lol

在用户表单中使用此代码:

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
Private子文本框1\u AfterUpdate()
如果TextBox1.Value>99999999#则
TextBox1.Value=99999999#
ElseIf TextBox1.值<100000000然后
TextBox1.Value=100000000
如果结束
端接头
私有子用户表单_初始化()
TextBox1.Value=100000000
端接头
私有子SpinButton1_向下扩展()
如果TextBox1.Value 100000000,则
TextBox1.Value=TextBox1.Value-1
如果结束
端接头
私有子SpinButton1_SpinUp()
如果TextBox1.Value 99999999#则
TextBox1.Value=TextBox1.Value+1
如果结束
端接头