excel - Excel VBA 运行时错误“9”：下标超出范围

Question

我创建了一个用户表单，允许用户从以前输入的数据中检索数据并进行更新或查看记录。我有几个表格，它们工作得很好。但是，在这张特定的表格上，它给了我一个错误，我不知道如何解决它。我曾尝试在 Set 之前激活工作表但没有成功。对于不同的工作表，我在不同的旋转按钮上确实有完全相同的脚本，它工作正常。

Private Sub SpinButton2_SpinUp()

        Set TicketReviewTable = Sheet2.ListObjects("Tickets")   <<This is where the error occurs.
   
    If TicketReviewTable.ListRows.Count < 1 Then Exit Sub
    
    If CurrentRow > 1 Then
        
        CurrentRow = CurrentRow - 1
           
        UpdateTicketRecord
    
    End If
    

End Sub

Private Sub SpinButton2_SpinDown()

        Set TicketReviewTable = Sheet2.ListObjects("Tickets")  <<This is where the error occurs.
    
    If CurrentRow = TicketReviewTable.ListRows.Count Then Exit Sub

    If CurrentRow < TicketReviewTable.ListRows.Count Then
    
        CurrentRow = CurrentRow + 1
          
        UpdateTicketRecord
    
    End If

End Sub

标签： excelvbaruntime-error