滚动条代码(VBA编程)

管理员 2024-11-25 04:27:46 0

Excel表,通常会超出屏幕大小,这样就需要对滚动条进行操作,初学的朋友可能对滚动条有一个很模糊的认识,实际上并不知道如何操作。

本节不做科普,我们将介绍,如何利用VBA代码对滚动条位置进行操作。

VBA编程,如何对窗体滚动条进行上下左右移动,这个方法真实用

对滚动条进行操作,实际上实现了页面的跳转功能。

下面用一个示例来进行详细说明,如图所示可实现按行滚动和按页滚动,其代码不一样。

VBA编程,如何对窗体滚动条进行上下左右移动,这个方法真实用

首先,按行滚动使用:ActiveWindow.SmallScroll toright:=1

也就是SmallScroll方法,它是Window对象下的一个方法。

同理按页滚动使用:ActiveWindow.LargeScroll down:=1

很显然,使用的是LargeScroll方法,一个大一个小的意思,不知道为什么起这样的名称,并不及适合。

这两个方法分别有几个参数需要设置,才能正常使用,达到想要的效果。

VBA编程,如何对窗体滚动条进行上下左右移动,这个方法真实用

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---

相关文章