VBA｜使用窗体控件10：可水平或垂直放置的滚动条
滚动条可以较方便地输入数据或对数据进行微调。

下面以一个“用滚动条设置显示比例”的实例来说明滚动条的使用。

1 新建窗体并插入如下控件：
以上scbZoom滚动条的Max:400，Min:10，Value:100
2 编写调用窗体过程
Sub 显示比例()
frmZoom.Show
End Sub
3 编写窗体代码
Private Sub UserForm_Initialize()
txtZoom.Value = ActiveWindow.Zoom '文字框显示当前比例With scbZoom '缩放滚动条的属性
.Min = 10
.Max = 400
.SmallChange = 1
.LargeChange = 10
.Value = ActiveWindow.Zoom
End With
With scbH '水平滚动工作表参数
.Min = 1
.Max = ActiveSheet.Cells.Columns.Count '最大列数
.Value = ActiveWindow.ScrollColumn '当前列
.LargeChange = 10
.SmallChange = 1
End With
With scbV '垂直滚动工作表参数
.Min = 1
.Max = ActiveSheet.Cells.Rows.Count '最大行数
.Value = ActiveWindow.ScrollRow '当前行
.LargeChange = 10
.SmallChange = 1
End With
End Sub
Private Sub scbZoom_Change()
With ActiveWindow
.Zoom = scbZoom.Value '用滚动条的值设置当前窗口的缩放txtZoom = .Zoom '设置文字框的值
.ScrollColumn = scbH.Value '最左边的列号
.ScrollRow = scbV.Value '最顶端的行号
End With
End Sub
Private Sub scbH_Change()
ActiveWindow.ScrollColumn = scbH.Value
End Sub
Private Sub scbV_Change()
ActiveWindow.ScrollRow = scbV.Value
End Sub
Private Sub cmd100_Click()
scbZoom.Value = 100
End Sub
Private Sub cmdClose_Click() Unload Me
End Sub
Private Sub txtZoom_AfterUpdate() scbZoom.Value = txtZoom.Value End Sub
在打开窗体后，即可进行如下操作：
－End－。