VBA 中的 AndAlso/OrElse

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

可以切换逻辑条件，使用 Or 运算符并关闭错误消息，如下所示：

Err.Clear
On Error Resume Next
If myObject Is Nothing Or Not myObject.test() Then
    Err.Clear
    'do something else'
Else
    'do something'
End If
On Error Goto 0 ' or On Error Goto ErrorHandler (depending on previous setting in the code)

Nothing 测试不是必需的 - 它只是用来阐明含义。

Answer 2

由于以下语法有效

If myObject.test() Then do something

然后可以使用单行语法来缩短评估。下面，第一个If 语句确保myObject 是某物。否则，它甚至不会尝试评估第二个If。

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

当然，如果你想在 myObject 什么都没有的情况下“做其他事情”，那么这可能行不通。

---

2020/06/30 更新

在评论指出此答案无效后，我已验证该语法似乎不适用于现代 VBA。为遗留目的留下原始答案。

Answer 3

关于缺失值的技巧可能会有所帮助：

Dim passed, wrongMaxPercent, wrongPercent, rightMinPercent, rightPercent
wrongPercent = 33
rightPercent = 55

'rightMinPercent = 56
wrongMaxPercent = 40

passed = (Len(wrongMaxPercent) = 0 Or wrongPercent < wrongMaxPercent) And _
         (Len(rightMinPercent) = 0 Or rightPercent >= rightMinPercent)

Answer 4

在this answer 上改进关于同一基本问题的不同问题，这是我选择做的事情：

dim conditionsValid as boolean

conditionsValid = myObject Is Nothing
if conditionsValid then conditionsValid = myObject.test()
if conditionsValid then conditionsValid = myObject.anotherTest() 

if conditionsValid then
   'do something'
else
   'do something else'
end if

我认为此代码比已建议的其他答案更清晰，并且您（通常）不需要为每个验证使用不同的变量，这是对另一个问题的原始答案的改进。顺便说一句，您需要的每个新条件只增加一行代码。

Answer 5

唯一的短路（某种）是在 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 6

这是一个老问题，但这个问题仍然存在并且很好。我使用过的一种解决方法：

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 7

或者您可以创建一个函数，将您的对象作为参数并在任何一种情况下都返回布尔值。这就是我通常的做法。

即

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 8

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 不是很好吗？