Excel vba中的数字上下控制

vba中是否有内置的数字上下控件，或者我们是否需要创建这样的控件

如果有这样一个控件，那么我们可以使用哪些事件

---

请建议。

您可以使用

旋转按钮1

控件进行此操作

快照

代码

您可以在设计时或运行时设置

按钮1

的最小值和最大值，如下所示

Private Sub UserForm_Initialize()
    SpinButton1.Min = 0
    SpinButton1.Max = 100
End Sub

Private Sub SpinButton1_Change()
    TextBox1.Text = SpinButton1.Value
End Sub

跟进

如果要根据用户在文本框中输入的内容增加或减少文本框的值，请使用此选项。这也使得文本框成为“仅限数字”的文本框，只满足您的其他请求；）

---

让我的一天…事实上，我将两个旋转按钮与文本框链接，以实现更多的方式。。。。。有没有一种方法可以在链接了旋转控制按钮的文本框中只允许数字…？？？？将文本框的

.Locked

属性设置为

TRUE

，这样用户就无法手动输入。其余的旋转按钮将处理它：）感谢Sid的所有帮助…锁定的东西工作正常。我允许我的用户手动输入数据…尽管我成功地限制了除整数以外的任何输入。。但是，当我手动输入整数，然后尝试增加/减少时，它无法正常工作。假设值是14，现在我手动将其更改为5，单击“增加”，它将从6变为15。你知道怎么读吗？是的，那是因为它取了旋转器的值。正在更新帖子以合并您的新请求。。。2分钟从初学者的角度来看，我推荐这些

免费
方式
MSDN
+
这样的论坛
+
Google
：）当你有时间的时候，试着访问一些老问题，看看人们是如何解决各种问题的。如果你想买一本书，你可能想试试约翰·沃肯巴赫的书。
Private Sub SpinButton1_SpinDown()
    TextBox1.Text = Val(TextBox1.Text) - 1
End Sub

Private Sub SpinButton1_SpinUp()
    TextBox1.Text = Val(TextBox1.Text) + 1
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
      Case vbKey0 To vbKey9, 8
      Case Else
        KeyAscii = 0
        Beep
    End Select
End Sub