怎样使用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运行窗体，拉动滚动条，可以改变文本框中的值。若单击滚动条两边的箭头，则可增加或者减少一个设定的长度