excel滚动条-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－