怎样使用VBA利用滚动条控制文本框数字？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub CommandButton1_Click()

    ActiveWindow.LargeScroll Down:=Me.TextBox1.Value '窗体下滚，屏数为文本框值
End Sub
Private Sub CommandButton2_Click()
    ActiveWindow.LargeScroll Down:=-Me.TextBox1.Value '窗体上滚，屏数为文本框值
End Sub
Private Sub ScrollBar1_Change()
    Me.TextBox1=Me.ScrollBar1.Value '当滚动条改变时将滚动条的值输入到文本框
End Sub
Private Sub UserForm_Initialize()
    Me.TextBox1=1  '将默认值设为1
    Me.ScrollBar1.Min=1 '滚动条最小值为1
    Me.ScrollBar1.Max=11 '最大值为11
    Me.ScrollBar1.SmallChange=2 '每次微调数为2
End Sub

5、用快捷键F5运行窗体，拉动滚动条，可以改变文本框中的值。若单击滚动条两边的箭头，则可增加或者减少一个设定的长度