VBA SpinButton +文本框 实现点击以下数字±1

在VBA中，`SpinButton`是一种可以用来选择整数值的控件。它通常与一个`TextBox`控件一起使用，用户可以通过点击`SpinButton`的上下箭头来增加或减少`TextBox`中的数值。以下是一个简单的示例，介绍如何在VBA中使用`SpinButton`：

1. 在Excel中插入一个`SpinButton`控件和一个`TextBox`控件。你可以在Excel的“开发人员”选项卡中找到这些控件。

2. 在VBA中创建一个模块，并编写以下代码：

Private Sub SpinButton1_SpinDown()
    TextBox1.Text = CStr(SpinButton1.Value - 1)
End Sub

Private Sub SpinButton1_SpinUp()
    TextBox1.Text = CStr(SpinButton1.Value + 1)
End Sub

在上述代码中，我们定义了两个事件处理程序，分别是`SpinButton1_SpinDown`和`SpinButton1_SpinUp`。当用户点击`SpinButton`的下箭头时，将触发`SpinDown`事件，这会使得`TextBox`中的数值减1。同样地，当用户点击`SpinButton`的上箭头时，将触发`SpinUp`事件，这会使得`TextBox`中的数值加1。

3. 在Excel中设置`SpinButton`的属性。你可以通过双击`SpinButton`来打开其属性窗口，并设置以下属性：

* `Value`：这是`SpinButton`的初始值，也是`TextBox`的初始值。

* `Min`：这是`SpinButton`允许的最小值。

* `Max`：这是`SpinButton`允许的最大值。

* `SmallChange`：这是每次点击下箭头或上箭头时，数值的增减量。

* `LargeChange`：这是每次按下Shift键并点击下箭头或上箭头时，数值的增减量。

4. 运行Excel文件，你可以在`TextBox`中看到初始值，也可以通过点击`SpinButton`的上下箭头来增减数值。

注意，如果你在Excel中没有看到“开发人员”选项卡，可能需要在“文件”->“选项”->“自定义功能区”中勾选“开发人员”选项卡。