Excel VBA中的“運行時錯誤'424'：必需對象”

Question

我想創建一個查詢表供用戶檢查自己的數據。 當用戶輸入適合數據列表的信息時，其余數據將顯示。

我按如下所示鍵入了代碼，我想可能缺少一些東西，因為錯誤代碼“運行時錯誤'424'：所需對象”不斷彈出。 而且我不知道缺少什么。 這是代碼：

Sub EnquiryChecking()
    Dim i As Integer

    If (Sheet1.Cells(3, 3) = DataList.Cells(i, 1)) And (Sheet1.Cells(4, 3) = DataList.Cells(i, 4)) And (Sheet1.Cells(5, 3) = DataList.Cells(i, 5)) Then
        Sheet1.Cells(7, 3) = DataList.Cells(i, 2)
        Sheet1.Cells(8, 3) = DataList.Cells(i, 3)
        Sheet1.Cells(9, 3) = DataList.Cells(i, 6)
        Sheet1.Cells(10, 3) = DataList.Cells(i, 7)
        Sheet1.Cells(11, 3) = DataList.Cells(i, 8)
        Sheet1.Cells(12, 3) = DataList.Cells(i, 9)
    Else
        Sheet1.Cells(14, 2) = "Error Input"
    End If
End Sub

非常感謝！

進一步更新：
我添加了一個for循環的i和現在的代碼可以運行。 但是現在Sheet1.Cell不再顯示DataList.Cell數據（即使輸入不正確，它也不會顯示“ Error Input”。發生了什么事？此外，如果我想立即顯示數據應該添加什么？在牢房里？
這是代碼：

Sub EnquiryChecking()    
    Dim i As Integer
    For i = 1 To i
        If (ActiveWorkbook.Sheets("Sheet1").Cells(3, 3) = ActiveWorkbook.Sheets("DataList").Cells(i, 1)) And (ActiveWorkbook.Sheets("Sheet1").Cells(4, 3) = ActiveWorkbook.Sheets("DataList").Cells(i, 4)) And (ActiveWorkbook.Sheets("Sheet1").Cells(5, 3) = ActiveWorkbook.Sheets("DataList").Cells(i, 5)) Then
            Worksheets("Sheet1").Cells(7, 3) = Worksheets("DataList").Cells(i, 2)
            Worksheets("Sheet1").Cells(8, 3) = Worksheets("DataList").Cells(i, 3)
            Worksheets("Sheet1").Cells(9, 3) = Worksheets("DataList").Cells(i, 6)
            Worksheets("Sheet1").Cells(10, 3) = Worksheets("DataList").Cells(i, 7)
            Worksheets("Sheet1").Cells(11, 3) = Worksheets("DataList").Cells(i, 8)
            Worksheets("Sheet1").Cells(12, 3) = Worksheets("DataList").Cells(i, 9)
            Exit For
        Else
            Sheet1.Cells(14, 2) = "Error Input"
        End If
    Next i
End Sub

Answer 1

用ActiveWorkbook.Sheets("DataList")替換DataList以避免得到該錯誤。

請參閱此以獲取更多信息。