Excel VBA：实现行数据切换显示至文本框的问题求助

你的代码问题出在**CurRow是局部变量**，每次点击按钮都会重新赋值为2，无法保存当前行的状态，所以只能切换一次。下面是完整的解决方案：

步骤1：声明窗体级变量 #

在窗体的通用代码区域（所有事件过程之外）声明变量，让CurRow在整个窗体生命周期中保持值：

Dim ws1 As Worksheet
Dim CurRow As Long

步骤2：窗体初始化事件 #

窗体加载时初始化工作表对象，设置初始行为第2行，并加载对应数据：

Private Sub UserForm_Initialize()
    Set ws1 = Sheets("TestSheet")
    CurRow = 2 ' 初始指向第2行
    LoadRowData ' 加载初始行数据
End Sub

步骤3：封装数据加载逻辑 #

写一个通用子过程，避免重复代码，同时做边界检查：

Private Sub LoadRowData()
    Dim lastRow As Long
    lastRow = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row ' 获取数据最后一行
    
    ' 检查当前行是否在有效范围内
    If CurRow >= 2 And CurRow <= lastRow Then
        txtName.Text = ws1.Cells(CurRow, 1).Value
        txtType.Text = ws1.Cells(CurRow, 2).Value
    Else
        ' 超出范围时清空文本框
        txtName.Text = ""
        txtType.Text = ""
    End If
End Sub

步骤4：下一页按钮事件 #

Private Sub btn_Next_Click()
    Dim lastRow As Long
    lastRow = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
    
    ' 未到最后一行时，行号+1并加载数据
    If CurRow < lastRow Then
        CurRow = CurRow + 1
        LoadRowData
    End If
End Sub

步骤5：上一页按钮事件 #

Private Sub btn_Previous_Click()
    ' 不能小于初始行2
    If CurRow > 2 Then
        CurRow = CurRow - 1
        LoadRowData
    End If
End Sub

关键说明 #

• 窗体级变量CurRow：保存当前行的状态，不会因按钮点击重置
• 边界检查：防止行号超出数据范围（上不低于第2行，下不超过数据最后一行）
• 封装LoadRowData：减少重复代码，统一数据加载逻辑

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