VBA 中的“与”是否相同？当第一个参数为 false 时，运算符评估第二个参数？

Question

Function Foo(thiscell As Range) As Boolean
  Foo = thiscell.hasFormula And (InStr(1, UCase(Split(thiscell.formula, Chr(40))(0)), "bar") > 0)
End Function

这个函数的存在是为了测试 ( 之前是否存在某个子字符串（在本例中为 bar）。

我遇到的问题是当传递到函数的单元格为空时， thisCell.hasFormula 为 false，但是and 后面的语句仍在计算中。这会在运行时产生下标超出范围错误。

即使第一个参数为 false，VBA 是否实际上会继续计算 And 的第二个参数？

Answer 1

您正在寻找的称为“短路评估”。

VBA没有这个功能。

您可以在此处查看可能适合您情况的方法。

此处选择的方法涉及用 Select Case 替换 If。还有一个使用嵌套 Ifs 的示例。

Answer 2

正如DOK提到的：不，VBA没有短路评估。

从技术上讲，使用 2 个 If-then 语句而不是使用 AND 运算符更有效，但除非您多次执行此操作，否则您不会注意到节省的费用，所以选择更具可读性的东西。如果您想真正了解技术，VBA 处理多个 If-then 语句的速度也比 Select Case 语句更快。

VBA 很奇怪:)

Answer 3

答案是肯定的，VBA 不会短路求值。

这不仅仅是风格问题；在这样的情况下，它会产生很大的不同：

If i <= UBound(Arr, 1) And j <= UBound(Arr, 2) And Arr(i, 1) <= UBound(Arr2, 1) Then
    Arr2(Arr(i, 1), j) = Arr(i, j)
End If

……这是不正确的。更恰当地说：

If i <= UBound(Arr, 1) And j <= UBound(Arr, 2) Then
    If Arr(i, 1) <= UBound(Arr2, 1) Then
        Arr2(Arr(i, 1), j) = Arr(i, j)
    End If
End If

或者如果您讨厌嵌套的 if：

If i > UBound(Arr, 1) Or j > UBound(Arr, 2) Then
    ' Do Nothing
ElseIf Arr(i, 1) > UBound(Arr2, 1) Then
    ' Do Nothing
Else
    Arr2(Arr(i, 1), j) = Arr(i, j)
End If

Answer 4

VBA 确实有一种类似短路的行为。
通常 Null 通过表达式传播，例如。 3 + Null 为 Null，True And Null 为 Null。
然而：

<代码>？假和空
错误

这看起来像是短路行为 - 发生了什么？当连词 (And) 的另一个参数为 False 或 0 时，Null 不会传播 - 结果只是 False 或 0。无论是左派还是右派争论都没关系。如果析取的另一个参数 (Or) 为 True 或非零整数（浮点值将使用 此规则）。

因此，在 And 和 Or 的参数中无法防止副作用和错误，但 Null 传播可以“短路”。此行为似乎继承自 SQL。

Answer 5

由于答案是 Google 中排名最高的答案之一，只是在寻找类似 vba if condition not lazy 的内容，我想提供一个更简单的示例，即两个条件的问题和解决方案：AND< /code> 和更有趣的 OR ...

Dim cond1 As Boolean   'some 1st condition that may be True or False
Dim obj As Collection  'just some sample object that may or may not be instantiated

（²：我发现最好向其他开发人员解释一下，为什么你不选择 OR 如果他们不知道背景）

---

AND 案例

cond1 = False
If cond1 Then Set obj = New Collection

问题：

If cond1 And obj.Count > 0 Then Debug.Print "Count > 0!"  'throws error if < cond1 = False > 
                                                          'because condition 2 is always evaluated

解决方案：

If cond1 Then If obj.Count > 0 Then Debug.Print "Count > 0!"  'AND would not short-cicuit!² https://stackoverflow.com/a/57521572/1915920

根据品味、复杂性和可读性，这样写可能是有意义的：

If cond1 Then
    If obj.Count > 0 Then  'AND would not short-cicuit!² https://stackoverflow.com/a/57521572/1915920
        Debug.Print "Count > 0!"
    End If
End If

---

OR案例

 cond1 = True
 If Not cond1 Then Set obj = New Collection  'obj stays < Nothing > otherwise

问题：

 If cond1 Or obj.Count = 0 Then Debug.Print "no objects!"  'throws error if < cond1 = True >
                                                           'because condition 2 is always evaluated

解决方案1：

in-使用 Select 放置不带 GoTo 的非冗余单行：

 Select Case True:  Case cond1, obj.Count = 0:  Debug.Print "no objects!":  End Select  'OR would not short-cicuit!² https://stackoverflow.com/a/57521572/1915920

以防它应该/必须位于多行上以及其他一些内容：

 Select Case True
     Case cond1, obj.Count = 0  'OR would not short-cicuit!² https://stackoverflow.com/a/57521572/1915920
         Debug.Print "no objects!"
     Case Else
         Debug.Print "object count: " & obj.Count
 End Select

解决方案 2：

就地、非冗余代码，最少GoTo 用法，但更冗长 If - 多行代码：

 If cond1 Then
 noObjs:
     Debug.Print "no objects!"
 ElseIf obj.Count = 0 Then  'OR would not short-cicuit!² https://stackoverflow.com/a/57521572/1915920
     GoTo noObjs
 End If

解决方案 3：

就地，条件（可能适合）在一行上类似to OR - 与相当多的 GoTo 用法的连接：

 If cond1 Then GoTo noObjs ElseIf obj.Count = 0 Then GoTo noObjs  'OR would not short-cicuit!² https://stackoverflow.com/a/57521572/1915920
 GoTo skipOnAllFalse
 noObjs:
     Debug.Print "no objects!"

 skipOnAllFalse:    'use more specific label/scenario name if possible

解决方案 4：

异地代码 (Sub) ，避免 GoTo，条件（可能适合）一行，但模块/类代码可能更难以阅读/分散/混乱：

 Private Sub noObjs():  Debug.Print "no objects!"

 If cond1 Then noObjs ElseIf obj.Count = 0 Then noObjs  'OR would not short-cicuit!² https://stackoverflow.com/a/57521572/1915920

解决方案 5：

使用一个条件变量：

 Dim any As Boolean:  any = cond1
 If Not any Then any = obj.Count = 0  'OR would not short-cicuit!² https://stackoverflow.com/a/57521572/1915920
 If any Then Debug.Print "no objects!"

解决方案 6：

使用多个条件变量：

 Dim c1 As Boolean:  Dim c2 As Boolean
 c1 = cond1
 If Not c1 Then c2 = obj.Count = 0  'OR would not short-cicuit!² https://stackoverflow.com/a/57521572/1915920
 If c1 Or c2 Then Debug.Print "no objects!"  'safe to use Or now

Answer 6

我认为这是最佳实践：

sub my conditions()
        If Condition1=constraint1 then
         if Condition2=constraint2 then
          if condition3=constraint3 then
           ...
            ....
        end if
         end if
          end if
    else
      end if
           ....
    end if
end sub

因此，当且仅当满足条件 i 时，您才会通过条件。

Answer 7

考虑必须运行的机器代码。
最快的应该是混合代码，例如...

if sfsf then goto SkipAB

if fdf then goto goneBad

if dffdefedwf then goto MustHave

SkipAB：
如果 dsda > 4 然后 MustHave

GoneBad：
退出函数

必须具备：
ThisIS = true

'仅在程序必须运行时节省一些时间
数千次...例如搜索大驱动器的文件
或者当使用简单的布尔测试来跳过耗时的函数时
就像在封闭的工作表中查找所有工作表和名称一样
[代码]

     If Not wFF.UsingFileExtMatch Then GoTo SkipExt
                If Not wFF.OKFileEXTMatch Then GoTo BADFile

跳过扩展：
如果不是 wFF.UsingFileNameMatch 则转到 SkipFileMatch
如果不是 wFF.OKFileNameMatch 则转到 BADFile
跳过文件匹配：
如果不是 wFF.UsingDaysAgo 则转到 SkipDaysAgo
如果不是 wFF.OKDaysAgo 则转到 BADFile
跳过DaysAgo：

[/代码]