VBA: Warunkowe - Czy nic

Question

Jest warunek w aplikacji VBA If jak widać poniżej:

If Not My_Object Is Nothing Then 
My_Object.Compute 

Gdy kod jest uruchamiany w trybie debugowania, okazało się, że stan If powraca prawdziwa nawet gdy My_Object ma "Brak zmiennych".

Czy ktoś mógłby to wyjaśnić? Chcę, aby My_Object.Compute było wykonywane tylko wtedy, gdy istnieje My_Object.

Answer 1

Bazując na swoim komentarzu do Issun:

Dzięki za wyjaśnienie. W moim przypadku obiekt jest zadeklarowany i utworzony przed warunkiem If. Więc, jak używać warunku If, aby sprawdzić < Brak zmiennych>? Innymi słowy, nie chcę, aby wykonać My_Object.Compute jeśli My_Object ma < Brak Zmienne>

Trzeba sprawdzić jedną z właściwości obiektu. Nie mówiąc nam, czym jest obiekt, nie możemy ci pomóc.

Zrobiłem test kilku popularnych obiektów i odkryłem, że utworzony egzemplarz Collection bez dodanych elementów pokazuje <No Variables> w oknie zegarka. Jeśli obiekt jest w istocie zbiorem, można sprawdzić stan <No Variables> pomocą właściwości .Count:

Sub TestObj() 
Dim Obj As Object 
    Set Obj = New Collection 
    If Obj Is Nothing Then 
     Debug.Print "Object not instantiated" 
    Else 
     If Obj.Count = 0 Then 
      Debug.Print "<No Variables> (ie, no items added to the collection)" 
     Else 
      Debug.Print "Object instantiated and at least one item added" 
     End If 
    End If 
End Sub 

---

Warto również zauważyć, że jeśli zadeklarować dowolny obiekt As New następnie sprawdzenie Is Nothing staje się bezużyteczny. Powodem jest to, że gdy zadeklarujesz obiekt As New, zostanie on utworzony automatycznie po pierwszym wywołaniu, nawet jeśli za pierwszym razem go sprawdzisz, czy istnieje!

Dim MyObject As New Collection 
If MyObject Is Nothing Then ' <--- This check always returns False 

To nie wydaje się być przyczyną twojego konkretnego problemu. Ale ponieważ inni mogą znaleźć to pytanie w wyszukiwarce Google, chciałem uwzględnić to pytanie, ponieważ jest to typowy błąd dla początkujących.

Answer 2

Tylko dlatego, że obiekt klasy nie zawiera żadnych zmiennych, nie oznacza, że ​​jest on niczym. Deklarowanie i obiekt oraz tworzenie obiektu to dwie różne rzeczy. Sprawdź i zobacz, czy ustawiasz/tworzysz obiekt.

Weźmy na przykład obiekt słownika - tylko dlatego, że nie zawiera żadnych zmiennych, nie oznacza, że ​​nie został utworzony.

Sub test() 

Dim dict As Object 
Set dict = CreateObject("scripting.dictionary") 

If Not dict Is Nothing Then 
    MsgBox "Dict is something!" '<--- This shows 
Else 
    MsgBox "Dict is nothing!" 
End If 

End Sub 

Jednak jeśli zadeklarować obiekt, ale nigdy go utworzyć, to nic.

Sub test() 

Dim temp As Object 

If Not temp Is Nothing Then 
    MsgBox "Temp is something!" 
Else 
    MsgBox "Temp is nothing!" '<---- This shows 
End If 

End Sub 

Answer 3

W moim przykładowym kodzie ustawiłem my object na nic i nie mogłem uzyskać "nie" części instrukcji if do pracy z obiektem. Próbowałem if My_Object is not nothing, a także if not My_Object is nothing. Może to być po prostu kwestia składni, której nie mogę rozgryźć, ale nie miałem czasu, żeby się rozejrzeć, więc zrobiłem małe obejście tego:

if My_Object is Nothing Then 
    'do nothing 
Else 
    'Do something 
End if