如何捕获ActiveCell上移超出表头范围的错误？

针对你遇到的上移记录时超出表头范围的问题，有两种实用的处理方式：

1. 提前判断行号，主动避免错误 #

如果你的表头固定在某一行（比如第1行，数据从第2行开始），可以在执行上移操作前检查当前单元格的行号，防止移动到表头或无效行：

Private Sub btn_Previous_Click()
    ' 定义表头所在行，根据你的实际情况修改
    Const HEADER_ROW As Integer = 1
    
    ' 检查当前行是否允许上移（确保上移后仍在数据区域）
    If ActiveCell.Row > HEADER_ROW + 1 Then
        ActiveCell.Offset(-1).Select
        Unload Me
        TestUserForm1.Show
    Else
        MsgBox "已经是第一条记录，无法继续向上移动！"
    End If
End Sub

这种方式效率更高，不会触发系统错误，还能给用户明确的提示。

2. 使用错误捕获机制，处理意外情况 #

如果表头位置不固定，或者需要兼容其他可能的选择错误（比如单元格处于保护状态），可以用On Error捕获错误并处理：

Private Sub btn_Previous_Click()
    On Error GoTo ErrorHandler
    
    ActiveCell.Offset(-1).Select
    Unload Me
    TestUserForm1.Show
    
    ' 正常执行完成后退出，不进入错误分支
    Exit Sub

ErrorHandler:
    MsgBox "无法向上移动：已到达表头或操作超出有效范围！"
End Sub

这种方式更通用，能覆盖所有导致Offset(-1).Select失败的场景。

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