確定空「範圍」刪除後

Question

我在一個給定的對象範圍，有時所有細胞的活動被刪除（Range.Cells.Delete）

我周圍玩，發現這些：在刪除後

• 所有的細胞，該變量的類型仍然是Range，它Is Not Nothing
• 調用任何的錯誤它的成員結果「對象需要」

這是我的小分來測試它：

Sub test() 
    Dim r As Range 

    Debug.Print r Is Nothing  ' -> true 
    Set r = ActiveSheet.Range("a2") 
    Debug.Print TypeName(r)   ' -> Range 
    r.Cells.Delete shift:=xlShiftUp 
    On Error GoTo ErrHandler 
    Debug.Print r Is Nothing  ' -> False 
    Debug.Print TypeName(r)   ' -> Range 
    Debug.Print r.Address   ' -> "Err: Object required" 
    Debug.Print r.Cells.Count  ' -> "Err: Object required" 

    Exit Sub 
ErrHandler: 
    MsgBox "Err: " & Err.Description 
    Resume Next 
End Sub 

我的問題是：我怎麼能確定（不希望錯誤處理）的對象是否是空Range？

到目前爲止，我已經找到了

最短選項：

Function IsEmptyRange(testRange As Range) As Boolean 
    If TypeName(testRange) <> "Range" Then 
     IsEmptyRange = False 
    Else 
     On Error GoTo EmptyRange 
     IsEmptyRange = testRange.Cells.Count = 0 
     If False Then 
EmptyRange: 
      Err.Clear 
      IsEmptyRange = True 
     End If 
    End If 
End Function 

Answer 1

有這個上Daily Dose of Excel一個有趣的討論指着一個類似的堆棧溢出question。 DDoE並沒有給出「解決方案」，但討論是關於「預期行爲」的啓示。 SO帖子（通過@DougGlancy），但它只是你的代碼的一個版本（可能稍微好一點，因爲不需要If False Then...構造）。

國際海事組織在這裏的最佳做法是記住如果和什麼時候可以，將參考變量設置爲Nothing。例如。

Sub test() 
    Dim r As Range 

    Debug.Print r Is Nothing  ' -> true 
    Set r = ActiveSheet.Range("a2") 
    Debug.Print TypeName(r)   ' -> Range 
    r.Cells.Delete shift:=xlShiftUp 

    Set r = Nothing     ' -> end of problem 

    On Error GoTo ErrHandler 

    Debug.Print r Is Nothing  ' -> True 

    If Not r Is Nothing Then 
     Debug.Print TypeName(r)   ' -> Range 
     Debug.Print r.Address   ' -> "Err: Object required" 
     Debug.Print r.Cells.Count  ' -> "Err: Object required" 
    End If 

    Exit Sub 
ErrHandler: 
    MsgBox "Err: " & Err.Description 
    Resume Next 
End Sub 

的趨勢可能是讓範圍處理的清理（即r會走出去的範圍，一旦Sub完成），但它是更好地做清理自己。