1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Private Sub CommandButton1_Click() ActiveWindow.LargeScroll Down:=Me.TextBox1.Value '窗体下滚，屏数为文本框值End SubPrivate Sub CommandButton2_Click() ActiveWindow.LargeScroll Down:=-Me.TextBox1.Value '窗体上滚，屏数为文本框值End SubPrivate Sub ScrollBar1_Change() Me.TextBox1=Me.ScrollBar1.Value '当滚动条改变时将滚动条的值输入到文本框End SubPrivate Sub UserForm_Initialize() Me.TextBox1=1 '将默认值设为1 Me.ScrollBar1.Min=1 '滚动条最小值为1 Me.ScrollBar1.Max=11 '最大值为11 Me.ScrollBar1.SmallChange=2 '每次微调数为2End Sub
5、用快捷键F5运行窗体，拉动滚动条，可以改变文本框中的值。若单击滚动条两边的箭头，则可增加或者减少一个设定的长度
