Excel工作表中如何实现跳转到屏幕外的控件？

核心逻辑 #

控件本身无法直接触发窗口滚动，但可以通过定位控件依附的单元格，让Excel自动滚动到该单元格位置，从而使控件进入屏幕可见范围。

针对ActiveX控件的实现 #

1. 按Alt+F11打开VBA编辑器，找到目标工作表的代码模块。
2. 为每个需要处理的控件添加GotFocus事件（Tab切换时会触发该事件）：

Private Sub TextBox1_GotFocus()
    ' 获取控件左上角对应的单元格
    Dim targetCell As Range
    Set targetCell = Me.Range(Me.TextBox1.TopLeftCell.Address)
    
    ' 滚动到该单元格，使其进入可见区域
    targetCell.Select
    
    ' 重新聚焦控件，避免单元格选中状态干扰操作
    Me.TextBox1.SetFocus
End Sub

Private Sub CommandButton1_GotFocus()
    Dim targetCell As Range
    Set targetCell = Me.Range(Me.CommandButton1.TopLeftCell.Address)
    
    targetCell.Select
    Me.CommandButton1.SetFocus
End Sub

针对表单控件的实现 #

如果使用的是表单控件（而非ActiveX），可以给控件绑定通用宏来处理滚动：

1. 在VBA模块中写入以下通用宏：

Sub ScrollToControl()
    Dim ctrl As Shape
    Set ctrl = ActiveSheet.Shapes(Application.Caller)
    
    ' 获取控件依附的单元格
    Dim targetCell As Range
    Set targetCell = ctrl.TopLeftCell
    
    ' 滚动到目标单元格
    targetCell.Select
    
    ' 可选：调整滚动位置，让控件位于窗口中间
    ActiveWindow.ScrollRow = targetCell.Row - (ActiveWindow.VisibleRange.Rows.Count \ 2)
    ActiveWindow.ScrollColumn = targetCell.Column - (ActiveWindow.VisibleRange.Columns.Count \ 2)
End Sub

2. 右键表单控件 → 指定宏，选择上述ScrollToControl宏即可。

优化技巧 #

可以封装通用函数减少重复代码，比如：

Sub ScrollToCell(targetCell As Range)
    targetCell.Select
    ' 自动调整到窗口中间位置
    ActiveWindow.ScrollRow = targetCell.Row - (ActiveWindow.VisibleRange.Rows.Count \ 2)
    ActiveWindow.ScrollColumn = targetCell.Column - (ActiveWindow.VisibleRange.Columns.Count \ 2)
End Sub

之后在控件事件里直接调用：

Private Sub TextBox2_GotFocus()
    ScrollToCell Me.TextBox2.TopLeftCell
    Me.TextBox2.SetFocus
End Sub

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