AndAlso/OrElse в VBA

Question

Я пытаюсь получить ленивые оценки с «А» в моем макросе Excel, выполнив следующие действия:

If Not myObject Is Nothing *And* myObject.test() Then 
    'do something' 
Else 
    'do something else' 
End If 

Я знаю, что ленивые вычисления существует в VB.NET, как AndAlso и OrElse но не может найти ничего подобного в VBA. Если в VBA нет ленивой оценки, каков наилучший способ структурирования кода, чтобы он оценивал то, что я ожидаю?

Answer 1

Единственное короткое замыкание (из рода) находится в пределах Case оценки выражения, поэтому следующее неувядаемое утверждение делает то, что я думаю, что вы спрашиваете;

Select Case True 
    Case (myObject Is Nothing), Not myObject.test() 
     MsgBox "no instance or test == false" 
    Case Else 
     MsgBox "got instance & test == true" 
    End Select 
End Sub 

Answer 2

If Not myObject Is Nothing Then 
    If myObject.test() Then 
     'do something' 
    End If 
Else 
    'do something else' 
End If 

Я думаю, что так вам и нужно.

Редактировать

Может быть, как этот

Dim bTestsFailed as Boolean 
bTestsFailed = False 

If Not myObject Is Nothing Then 
    If myObject.test() Then 
     'do something' 
    Else 
     bTestsFailed = True 
    End If 
Else 
    bTestsFailed = True 
End If 

If bTestsFailed Then 
    'do something else 
End If 

Не VBA велик?

Answer 3

Или вы можете создать функцию, которая берет ваш объект в качестве параметра и возвращает значение boolean для любого случая. Это то, к чему я обычно привык.

т.е.

if Proceed(objMyAwesomeObject) then 
     'do some really neat stuff here 
else 
     'do something else, eh 
end if 
... 
end sub 

private function Proceed(objMyAwesomeObject as Object) 
    if not objMyAweseomeObject is nothing then 
      Proceed = true 
    elseif objMyAwesomeObject.SomeProperty = SomeValue then 
      Proceed = true 
    else 
      Proceed = false 
    endif 
end function 

Answer 4

Это старый вопрос, но этот вопрос все еще жив и здоров. Один из способов я использовал:

Dim success As Boolean  ' False by default. 

If myObj Is Nothing Then  ' Object is nothing, success = False already, do nothing. 
ElseIf Not myObj.test() Then ' Test failed, success = False already, do nothing. 
Else: success = True   ' Object is not nothing and test passed. 
End If 

If success Then 
    ' Do stuff... 
Else 
    ' Do other stuff... 
End If 

В основном это переворачивает логику в оригинальный вопрос, но вы получите тот же результат. Я думаю, что это более чистое решение, чем другие, которые используют только операторы If. Решение с использованием инструкции Select умно, но если вы хотите использовать альтернативу только с помощью операторов If, я думаю, что это тот, который нужно использовать.

Answer 5

Поскольку следующий синтаксис работает

If myObject.test() Then do something 

Вы можете попробовать

If Not myObject Is Nothing Then If myObject.test() Then 
    'do something' 
Else 
    'do something else' 
End If 

Конечно, если вы хотите 'сделать что-то еще', если MyObject Is Nothing, то это может не работать.