Excel表,通常会超出屏幕大小,这样就需要对滚动条进行操作,初学的朋友可能对滚动条有一个很模糊的认识,实际上并不知道如何操作。
本节不做科普,我们将介绍,如何利用VBA代码对滚动条位置进行操作。
对滚动条进行操作,实际上实现了页面的跳转功能。
下面用一个示例来进行详细说明,如图所示可实现按行滚动和按页滚动,其代码不一样。
首先,按行滚动使用:ActiveWindow.SmallScroll toright:=1
也就是SmallScroll方法,它是Window对象下的一个方法。
同理按页滚动使用:ActiveWindow.LargeScroll down:=1
很显然,使用的是LargeScroll方法,一个大一个小的意思,不知道为什么起这样的名称,并不及适合。
这两个方法分别有几个参数需要设置,才能正常使用,达到想要的效果。
SmallScroll (Down、Up、ToRight、ToLeft)
名称
必需/可选
数据类型
说明
Down
可选
Variant
将内容向下滚动的行数。
Up
可选
Variant
将内容向上滚动的行数。
ToRight
可选
Variant
将内容向右滚动的列数。
ToLeft
可选
Variant
将内容向左滚动的列数。
LargeScroll (Down、Up、ToRight、ToLeft)
名称
必需/可选
数据类型
说明
Down
可选
Variant
向下滚动内容的页数。
Up
可选
Variant
向上滚动内容的页数。
ToRight
可选
Variant
向右滚动内容的页数。
ToLeft
可选
Variant
向左滚动内容的页数。
参考上表,可以很清楚地明白,分别指上、下、左、右移动的量。
如果是按行滚动就是行或列数,如果是按页滚动就是以页为单位,一个页面就是多个行。
重点还是要自己动手实践操作一下,下面给出一些代码,参考学习:
Private Sub CommandButton2_Click()ActiveWindow.LargeScroll down:=1Me.CommandButton2.Top = ActiveWindow.TopMe.CommandButton5.Top = Me.CommandButton2.TopEnd SubPrivate Sub CommandButton4_Click()ActiveWindow.SmallScroll toleft:=1End SubPrivate Sub CommandButton5_Click()ActiveWindow.LargeScroll up:=1End Sub滚动条操作在大量数据页的情况下使用,十分有用,所以有必要认真学习一下。
欢迎关注、收藏
---END---