VBA UserForm导航按钮异常求助：Next返回末行Previous失效

核心问题分析 #

1. 数据读取行错误：两个按钮的代码中，所有控件赋值都用了lr（工作表最后一行行号），而非标记当前行的Activerow，这直接导致点击Next/Previous时永远显示最后一行数据。
2. 变量作用域缺失：Activerow未声明为模块级变量，无初始值，可能导致每次点击时变量值异常重置。
3. Previous按钮逻辑混乱：原代码的条件判断错误，当当前行已到数据起始行时，错误回退行号，导致无法正常切换到上一行。

修复后的完整代码 #

首先在UserForm代码模块顶部声明模块级变量：

Private Activerow As Long

添加窗体初始化事件，设置初始行并加载第一条数据：

Private Sub UserForm_Initialize()
    Dim lr As Long
    lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    Activerow = 2 ' 假设数据从第2行开始（第1行为表头）
    LoadData ' 加载初始数据
End Sub

抽离重复的数据加载逻辑为独立子过程：

Private Sub LoadData()
    Dim lr As Long
    lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 确保当前行在有效数据范围内
    If Activerow < 2 Then Activerow = 2
    If Activerow > lr Then Activerow = lr
    
    ' 为控件赋值
    txt_PatronName.Text = Sheet1.Cells(Activerow, 2).Value
    cbo_SEX.Text = Sheet1.Cells(Activerow, 3).Value
    txt_DOB.Text = Sheet1.Cells(Activerow, 4).Value
    txt_ACCT.Text = Sheet1.Cells(Activerow, 5).Value
    cbo_PROP.Text = Sheet1.Cells(Activerow, 6).Value
    cbo_GAME.Text = Sheet1.Cells(Activerow, 7).Value
    txt_mDATE.Text = Sheet1.Cells(Activerow, 8).Value
    txt_DETAILS.Text = Sheet1.Cells(Activerow, 9).Value
    txt_LastUpdate.Text = Sheet1.Cells(Activerow, 10).Value
    
    ' 加载对应图片
    On Error Resume Next
    Dim K As String
    K = "D:\SKILLED PLAYER\ADVANTAGE PLAYER DATABASE_1\PHOTOS\"
    Me.Image1.Picture = LoadPicture(K & txt_PatronName.Text & ".jpg")
    Image1.PictureSizeMode = fmPictureSizeModeStretch
    On Error GoTo 0 ' 恢复默认错误处理
End Sub

修改Next按钮代码：

Private Sub cmd_Next_Click()
    Dim lr As Long
    lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    
    Activerow = Activerow + 1
    ' 到达最后一行时提示并锁定行号
    If Activerow > lr Then
        Activerow = lr
        MsgBox "已到达最后一条记录"
    End If
    
    LoadData ' 加载当前行数据
End Sub

修改Previous按钮代码：

Private Sub cmd_Previous_Click()
    Dim lr As Long
    lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    
    Activerow = Activerow - 1
    ' 到达第一行数据时提示并锁定行号
    If Activerow < 2 Then
        Activerow = 2
        MsgBox "已到达第一条记录"
    End If
    
    LoadData ' 加载当前行数据
End Sub

关键修复点说明 #

• 将所有控件赋值的lr替换为Activerow，确保读取当前行数据。
• 声明Activerow为模块级变量，保证其值在窗体生命周期内持续有效。
• 统一数据加载逻辑到LoadData子过程，避免重复代码，便于后续维护。
• 修正Previous按钮的判断逻辑，确保行号始终在有效数据范围内。

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