運行時錯誤消息91（對象變量未設置）

Question

我在Excel VBA（使用Excel 2010）中具有以下代碼，以歐洲格式（dd/mm/yyyy）查找特定日期，然後取消細胞（用它在該日期）下面的行：

Sub Macro1() 

' Macro1 
Dim A As Variant 

' Input box to insert a date 
A = InputBox("Insert date of the last entry with format dd/mm/yyyy", "User date", Format(Now(), "dd/mm/yyyy")) 
If IsDate(A) Then 
    A = Format(CDate(A), "dd/mm/yyyy") 
Else 
    MsgBox "Date in the wrong format!" 
End If 

'Find the date above, in the variable A, in the Excel sheet 
Cells.Find(What:=A, After:=ActiveCell, LookIn:=xlFormulas, _ 
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
MatchCase:=False, SearchFormat:=False).Activate 

Range(Selection, Selection.End(xlDown)).Select 
Range(Selection, Selection.End(xlToRight)).Select 
Selection.EntireRow.Delete 

End Sub 

然而，當我運行宏，我得到的運行時錯誤消息91

對象變量未設置。

非常感謝您的幫助。

Answer 1

出現此錯誤是因爲Find方法未返回任何結果，但您嘗試在同一行中激活此不存在的範圍。

Option Explicit 

Sub Macro1() 

Dim A As Variant 
Dim foundRNG As Range 
' 
' Macro1 
' 
' Input box to insert a date 

A = InputBox("Insert date of the last entry with format dd/mm/yyyy", "User date", Format(Now(), "dd/mm/yyyy")) 
If IsDate(A) Then 
    A = Format(CDate(A), "dd/mm/yyyy") 
Else 
    MsgBox "Date in the wrong format!" 
End If 

'Find the date above, in the variable A, in the Excel sheet 

Set foundRNG = Cells.Find(What:=A, After:=ActiveCell, LookIn:=xlFormulas, _ 
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
MatchCase:=False, SearchFormat:=False) 

If foundRNG Is Nothing = False Then 
    foundRNG.Activate 
    Range(Selection, Selection.End(xlDown)).Select 
    Range(Selection, Selection.End(xlToRight)).Select 
    Selection.EntireRow.Delete 
Else 
    MsgBox "Entered date not found!" 
End If 

End Sub