在Excel导航中达到极限的提示信息用户表格

Question

我正在使用以下代码从Excel工作表中的表格数据填充用户表单，并尝试使用下一个和上一个按钮来循环访问表格中的先前条目并成功完成。使用此代码，上一个按钮选择上一行并将其加载到用户窗体中。下一个按钮选择下一行并将其加载到用户窗体中。

问题：我想限制循环仅限于表格（从工作表中的行339到390）。我想修复此代码以限制导航到表格并显示有关第一条记录和最后一条记录的警报消息。我已经修复并测试了“下一步”按钮的代码，但代码为上一个按钮不起作用。

分享整个代码为您的审查和建议，将不胜感激。

Private Sub cmdGetNext_Click() 

Range("B339").Select 
ActiveCell.End(xlDown).Select 
lastRow = ActiveCell.Row 
currentrow = currentrow + 1 
If currentrow = lastRow + 1 Then 
    currentrow = lastRow 
    MsgBox "You have reached the last entered data!" 
End If 

txtmeas.Text = Cells(currentrow, 2).Value 
txtsource.Text = Cells(currentrow, 4).Value 
cmbmatric.Text = Cells(currentrow, 6).Value 

End Sub 

Private Sub cmdPreviousData_Click() 

currentrow = currentrow - 1 
If currentrow > 1 Then 
    txtmeas.Text = Cells(currentrow, 2).Value 
    txtsource.Text = Cells(currentrow, 4).Value 
    cmbmatric.Text = Cells(currentrow, 6).Value 
ElseIf currentrow = 1 Then 
    MsgBox "This is your first record!" 
    currentrow = currentrow + 1 
End If 

End Sub 

Answer 1

我会在模块级定义常量，表示要设置表的第一行：Const TblFirstRow。

然后，在下面，而不是Range("B339")，你可以使用Range("B" & TblFirstRow)这将是更动态的修改在未来。

代码

Option Explicit 

' define a variable at the module level, for first row of the table 
Const TblFirstRow As Long = 339 

Private Sub cmdGetNext_Click() 

Dim LastRow As Long, CurrentRow As Long 

' get last row (not skipping blank cells) 
LastRow = Range("B" & TblFirstRow).End(xlDown).Row 

If CurrentRow + 1 > LastRow Then 
    CurrentRow = LastRow 
    MsgBox "You have reached the last entered data!" 
Else 
    CurrentRow = CurrentRow + 1 
End If 

txtmeas.Text = Cells(CurrentRow, 2).Value 
txtsource.Text = Cells(CurrentRow, 4).Value 
cmbmatric.Text = Cells(CurrentRow, 6).Value 

End Sub 

'================================================================ 

Private Sub cmdPreviousData_Click() 

If CurrentRow - 1 < TblFirstRow Then 
    CurrentRow = TblFirstRow 
    MsgBox "This is your first record!" 
Else 
    CurrentRow = CurrentRow - 1 
End If 

txtmeas.Text = Cells(CurrentRow, 2).Value 
txtsource.Text = Cells(CurrentRow, 4).Value 
cmbmatric.Text = Cells(CurrentRow, 6).Value 

End Sub 

Answer 2

我会改变 “ELSEIF currentrow = 1，则” 到 “其他”。

如果你从currentrow = 1开始并运行cmdPreviousData_Click（），那么你在第一行（currentrow = currentrow - 1）中将currentrow的值从1减小到0。那么你的if语句没有运行，因为0不是> 1，你的elseif也不会运行，因为0 <> 1。