Excel VBA滚动到单元格

如果你在处理 Excel VBA 的开发中需要自动跳转到单元格位置，这篇介绍如何使用 VBA 实现滚动到指定单元。

使用VBA实现滚动到单元格

使用 VBA 实现滚动到单元格需要用到 Application 属性中的 ActiveWindow 以及对应的 ScrollRow 和 ScrollColumn 方法。以下是示例代码：

Sub ScrollToCell()
    Dim ws As Worksheet
    Dim targetCell As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")      '设置目标工作表
    Set targetCell = ws.Range("D10")             '设置目标单元格
    
    targetCell.Activate                         '激活目标单元格
    
    With Application.ActiveWindow
        .ScrollRow = targetCell.Row - 5           '上移5行以便在中心位置显示目标单元格
        .ScrollColumn = targetCell.Column - 5     '左移5列以便在中心位置显示目标单元格
    End With
End Sub

在代码中，我们首先通过 ThisWorkbook.Sheets("Sheet1") 来获取 Sheet1 工作表的对象，然后使用 Range("D10") 来获取 D10 单元格的对象，并将其赋值给 targetCell。

接下来，我们通过 targetCell.Activate 方法来激活目标单元格，然后在 ActiveWindow 属性中使用 ScrollRow 方法和 ScrollColumn 方法，将目标单元格滚动至中心位置，以便更好的查看单元格内容。

使用按钮触发滚动代码

我们可以选择将上述代码与 Excel 中的按钮结合，以便用户能够快速滚动指定单元。

第一步：插入按钮

首先，我们需要在开发者选项卡中找到“插入”组，并选择“按钮”：

然后，通过鼠标以及拖放功能，在 Excel 工作表上创建一个新的按钮。在创建完成后，Excel 将弹出“分配宏”的对话框。

第二步：运行“宏”

我们需要将前面创建的 Sub 滚动代码与按钮关联，以便在单击按钮时调用。

在 Excel 的“分配宏”对话框中，选择 RunScrollToCell，然后单击“确定”。

此时，我们就可以通过新创建的按钮来激活定义的滚动到指定单元格的代码。

以上就是使用 Excel VBA 滚动到单元格的简单介绍。Happy coding!