如何檢查多個對象是否不是空VBA Excel

Question

我正在嘗試檢查2個對象中是否沒有虛無 ，並且找不到正確的方式將其寫下來。

我正在努力嘗試的是：

Dim NArange As Range, NAMERange As Range
Set NArange = Rows(DateRange.Row).Find("#N/A", LookIn:=xlValues, LookAt:=xlWhole)
Set NAMERange = Rows(DateRange.Row).Find("#NAME?", LookIn:=xlValues, LookAt:=xlWhole)


If (Not NArange Or Not NAMERange) Is Nothing Then
    debug.print "nothing"
End If

我該怎么寫

If (Not NArange Or Not NAMERange) Is Nothing Then

條件？

謝謝！

Answer 1

您首先需要進行任何測試，然后結合這些比較的結果：

If NArange Is Nothing And NAMERange Is Nothing Then

如果您嘗試將Is以外的運算符應用於對象，它將嘗試改用default屬性（在這種情況下為Value ）。 因此， Not NArange等效於Not NArange.Value 。 如果NArange為Nothing ，則會出現運行時錯誤NArange “對象變量或未設置塊變量”。

Answer 2

您應該像這樣將兩個nothing語句分開：

Dim NArange As Range, NAMERange As Range

Set NArange = ActiveSheet.Range("A1")
Set NAMERange = ActiveSheet.Range("A2")


If NArange Is Nothing Or NAMERange Is Nothing Then
    MsgBox ("nothing")
Else
    MsgBox ("something")
End If