Excel工作表控件实现滚动按钮效果

最新推荐文章于 2024-03-25 16:06:36 发布

taller_2000

最新推荐文章于 2024-03-25 16:06:36 发布

阅读量1.1k

点赞数 12

分类专栏： VBA 控件工作表文章标签：滚动按钮工作表控件动态滚动 ScrollBar 动态隐藏

本文链接：https://blog.csdn.net/taller_2000/article/details/136278399

版权

实例需求：工作表中有多个Button控件（工作表Form控件）和一个ScrollBar控件（工作表ActiveX控件，名称为ScrollBar2），需要实现如下图所示效果。点击ScrollBar控件实现按钮的滚动效果，实际工作表中Button控件个数不确定。

请添加图片描述

首先设置ScrollBar控件属性。

依次单击Excel 【开发工具】选项卡>【设计模式】按钮
鼠标右击ScrollBar控件，在弹出的快捷菜单中，选择【属性】命令
在弹出的【属性】对话框中修改相关属性，如下图中K列和L列表格所示。

在这里插入图片描述

ScrollBar控件Change事件代码如下。

Private Sub ScrollBar2_Change()
    Dim btn As Button, i As Long, j As Long
    Dim iLoc As Long, iTop As Long, iVal As Long
    Const TOP_GAP = 10
    Const BTN_GAP = 3
    Application.ScreenUpdating = False
    iVal = Me.ScrollBar2.Value
    For i = 1 To Me.Buttons.Count
        If i > iVal Then
            If i = iVal &#