如何在Excel中实现滚动条自动滚动？已关联数据无需手动拖动

没问题，你的需求完全可以实现！下面针对两种常见场景给出具体的解决方案，分别对应工作表自带的滚动条和你已经关联了数据的自定义滚动条：

1. 工作表窗口滚动条自动滚动（整个表格的上下/左右滚动） #

你可以通过VBA宏轻松实现自动滚动，操作步骤和代码如下：

• 按下 Alt + F11 打开VBA编辑器
• 右键点击左侧的工作簿名称，选择「插入」→「模块」
• 粘贴以下代码：

Sub AutoScrollWorksheet()
    Dim i As Integer
    ' 设置滚动次数，这里以向下滚动20行为例，可自行修改
    For i = 1 To 20
        ' 向下滚动1行，若要向右滚动则改为 SmallScroll Right:=1
        ActiveWindow.SmallScroll Down:=1
        ' 每次滚动后暂停1秒，时间可调整，比如0.5秒写为 "0:00:00.5"
        Application.Wait Now + TimeValue("0:00:01")
    Next i
End Sub

• 按F5运行宏，就能看到工作表自动滚动了。如果需要持续滚动直到手动停止，可改用无限循环：

Sub AutoScrollNonStop()
    Do
        ActiveWindow.SmallScroll Down:=1
        Application.Wait Now + TimeValue("0:00:01")
        ' 按Esc或Ctrl+Break可停止宏运行
    Loop
End Sub

2. 已关联数据的自定义滚动条自动滚动（ActiveX/表单控件滚动条） #

假设你已经完成了滚动条与数据的关联，我们可以通过VBA直接控制滚动条的数值来实现自动滚动：

针对ActiveX滚动条（开发工具→插入→ActiveX控件→滚动条） #

假设滚动条位于Sheet1，名称为ScrollBar1（可在「设计模式」下右键滚动条查看名称），代码示例：

Sub AutoScrollLinkedBar()
    Dim minVal As Integer, maxVal As Integer
    ' 获取滚动条的最小/最大值，也可直接写固定值如1和100
    minVal = Sheet1.ScrollBar1.Min
    maxVal = Sheet1.ScrollBar1.Max
    
    ' 从最小值滚动到最大值
    For i = minVal To maxVal
        Sheet1.ScrollBar1.Value = i
        Application.Wait Now + TimeValue("0:00:01")
    Next i
    
    ' 如需来回滚动，可添加反向循环
    For i = maxVal To minVal Step -1
        Sheet1.ScrollBar1.Value = i
        Application.Wait Now + TimeValue("0:00:01")
    Next i
End Sub

针对表单控件滚动条（开发工具→插入→表单控件→滚动条） #

表单控件的取值/赋值方式略有不同，代码示例：

Sub AutoScrollFormControlBar()
    Dim scrollBar As Shape
    Dim minVal As Integer, maxVal As Integer
    
    ' 替换为你的滚动条名称，比如"Scroll Bar 1"
    Set scrollBar = Sheet1.Shapes("Scroll Bar 1")
    minVal = scrollBar.ControlFormat.Min
    maxVal = scrollBar.ControlFormat.Max
    
    For i = minVal To maxVal
        scrollBar.ControlFormat.Value = i
        Application.Wait Now + TimeValue("0:00:01")
    Next i
End Sub

额外技巧：让宏自动启动 #

如果希望打开工作簿时自动开始滚动，可在「ThisWorkbook」中添加以下代码：

Private Sub Workbook_Open()
    ' 调用你需要运行的自动滚动宏，比如AutoScrollWorksheet
    AutoScrollWorksheet
End Sub

内容的提问来源于stack exchange，提问作者vijay