Excel VBA：移动到下一行以显示到文本框

Question

几年前我就能够通过抵消和无论它叫什么来做到这一点。但那是快10年前的事了，我忘了。

所以加载/初始化时，我想指向第2行。然后左右按钮应将指针移动到下一行数据以显示在2个文本框中。

请忽略那里的 commandbutton3。谢谢！

这是我得到的代码，但它只移动 1 行。

 
Private Sub btn_Next_Click()

Dim ws1 As Worksheet
Dim CurRow As Long

Set ws1 = Sheets("TestSheet")

CurRow = 2

txtName.Text = ws1.Cells(CurRow, 1).Offset(1, 0)

txtType.Text = ws1.Cells(CurRow, 2).Offset(1, 0)

CurRow = CurRow + 1

End Sub

Answer 1

试试这个模组。

Dim CurRow As Long

Private Sub UserForm_Initialize()

CurRow = 2

End Sub



Private Sub btn_Next_Click()

Dim ws1 As Worksheet
Set ws1 = Sheets("TestSheet")

txtName.Text = ws1.Cells(CurRow, 1).Offset(1, 0)
txtType.Text = ws1.Cells(CurRow, 2).Offset(1, 0)
CurRow = CurRow + 1

End Sub

使用模块范围定义的 CurRow 它将在调用之间保留其值。