Question

我在用户表单上创建了一个旋转按钮，但是当我将旋转按钮的属性更改为10位数时，我想要将其设置为min和max的按钮将不起作用。我还尝试在代码中手动更改它，但不允许我以最小和最大10位数字运行代码。它一直在最小和最大10位数之后加上＃号，然后无论如何我尝试运行它时都说错误424。如何将用户窗体上的旋转按钮的属性更改为10位数字的值？

请尝试解释执行此操作的最简单方法，因为我不是专业编码人员或任何大声笑

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

VBA旋转按钮，最小和最大10位数字

1 个答案: