Excel VBA编程 滚动条

Excel VBA编程滚动条
滚动条是放置在窗体的独立控件。

它看上去与列表框或组合框的下拉部分中的滚动条类似。

然而，与它们不同的是，滚动条控件是独立的，并不是任何其他控件的组成部分。

在VBA工具箱中提供一种滚动条。

要创建水平或垂直滚动条，将已放置在窗体中的滚动条进行水平或垂直拖动就可以创建水平或垂直的滚动条。

多数情况下，滚动条控件与文本框、列表框等一起使用，通过它可以查看列表选项或数据，还可以进行数值输入。

借助最大值和最小值的设置，并配合滚动条中滚动块的位置，就能读取用户指定的数据。

1．滚动条常用属性
滚动条控件常用的属性如下：
●Value属性
在滚动条控件中，滚动块所处的位置可以用数值代表。

Value属性值即为表示滚动块在滚动条中位置的数值。

对于水平滚动条，当滚动块处于最左边时，Value取最小值；而当滚动块处于最顶端时，Value取最小值。

反之，则Value的值为最大值。

在中间的各个位置，Value值与位置是按比例来设定的。

●Max属性
用于确定滚动条在滚动块位于最底端(垂直滚动条)或最右边(水平滚动条)时可表现的最大值。

该属性可以指定-32768到32767之间的一个整数。

缺省值为32767。

●Min属性
用于确定滚动条在滚动块位于最顶端(垂直滚动条)或最左边(水平滚动条)时可表现的最小值。

该属性可以指定-32768到32767之间的一个整数。

缺省值为0。

●LargeChange属性
设定单击滚动条中间的滚动块时，每次增减的数值。

●SmallChange属性
设定单击滚动条中的箭头时，每次增减的数值。

2．滚动条常用事件
滚动条控件常用的事件主要包含两种，其功能如下：
●Change事件
当单击滚动条的箭头或两箭头之间的区域引起Value属性值变化时而发生的事件。

它与Scroll事件一样都是最常用来实现指定功能的事件。

●Scroll事件
移动滚动块时发生，而单击滚动条中的箭头或滚动条时不发生。

例如，使用滚动条来调节数值大小，如图所示。

图滚动条
Dim i As Integer
Private Sub UserForm_Initialize()
ScrollBar1.Min = 1
ScrollBar1.Max = 100
End Sub
Private Sub ScrollBar1_Change()
bel1.Caption = ScrollBar1.Value - i
End Sub
Private Sub ScrollBar1_Exit(ByVal Cancel As MSForms.ReturnBoolean) bel1.Caption = ScrollBar1.Value - i
End Sub
Private Sub ScrollBar1_Scroll()
bel1.Caption = ScrollBar1.Value - i
End Sub。