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后面的语句仍然被评估。这会导致运行时出现下标超出范围的错误。
VBA实际上是否继续评估And的第二个参数，即使第一个参数为false？
正如DOK所提到的：不，VBA没有短路求值。
使用2个If-Then语句比使用AND运算符在技术上更有效率，但除非你需要频繁使用，否则你不会注意到任何节省，因此选择更易读的方式。如果你想要变得更加技术化，VBA处理多个If-Then语句比处理Select Case语句更快。
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
A和B条件的示例来说明它是如何工作的？ - EnissayAnd。也许你能更好地解释一下你所困惑的是什么？ - Hugh Allen由于答案是谷歌排名靠前的之一，只需要搜索类似于 vba if condition not lazy 的东西，我想提供一个更简单的例子，解决方案和问题都包括两种条件：AND 和更有趣的 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)
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://dev59.com/7Ww05IYBdhLWcg3w0U8O#57521572
根据口味、复杂度和可读性，写成这样可能更有意义：
If cond1 Then
If obj.Count > 0 Then 'AND would not short-cicuit!² https://dev59.com/7Ww05IYBdhLWcg3w0U8O#57521572
Debug.Print "Count > 0!"
End If
End If
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
Select，在原地进行操作，不冗余，一行代码，无需使用 GoTo。 Select Case True: Case cond1, obj.Count = 0: Debug.Print "no objects!": End Select 'OR would not short-cicuit!² https://dev59.com/7Ww05IYBdhLWcg3w0U8O#57521572
如果需要跨越多行并且还有其他内容：
Select Case True
Case cond1, obj.Count = 0 'OR would not short-cicuit!² https://dev59.com/7Ww05IYBdhLWcg3w0U8O#57521572
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://dev59.com/7Ww05IYBdhLWcg3w0U8O#57521572
GoTo noObjs
End If
解决方案3:
原地修改，在一行上使用类似于OR连接的条件（可能适用），并且使用了相当多的GoTo。
If cond1 Then GoTo noObjs ElseIf obj.Count = 0 Then GoTo noObjs 'OR would not short-cicuit!² https://dev59.com/7Ww05IYBdhLWcg3w0U8O#57521572
GoTo skipOnAllFalse
noObjs:
Debug.Print "no objects!"
skipOnAllFalse: 'use more specific label/scenario name if possible
解决方案4：
避免使用GoTo，将条件（如果适用）放在一行上，但模块/类代码可能更难以阅读/散乱/混乱。
Private Sub noObjs(): Debug.Print "no objects!"
If cond1 Then noObjs ElseIf obj.Count = 0 Then noObjs 'OR would not short-cicuit!² https://dev59.com/7Ww05IYBdhLWcg3w0U8O#57521572
解决方案 5:
使用一个条件变量：
Dim any As Boolean: any = cond1
If Not any Then any = obj.Count = 0 'OR would not short-cicuit!² https://dev59.com/7Ww05IYBdhLWcg3w0U8O#57521572
If any Then Debug.Print "no objects!"
Dim c1 As Boolean: Dim c2 As Boolean
c1 = cond1
If Not c1 Then c2 = obj.Count = 0 'OR would not short-cicuit!² https://dev59.com/7Ww05IYBdhLWcg3w0U8O#57521572
If c1 Or c2 Then Debug.Print "no objects!" 'safe to use Or now
我认为这是最佳实践：
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 的情况下，你才会通过条件。
If Not wFF.UsingFileExtMatch Then GoTo SkipExt
If Not wFF.OKFileEXTMatch Then GoTo BADFile
SkipExt： 如果wFF.UsingFileNameMatch为假，则跳过文件名匹配 如果wFF.OKFileNameMatch为假，则转到BADFile SkipFileMatch： 如果wFF.UsingDaysAgo为假，则跳过天数匹配 如果wFF.OKDaysAgo为假，则转到BADFile SkipDaysAgo：
[/code]
GoTo替换了嵌套的If。由于在如此简单的情况下使用GoTo被认为是不好的编程风格，因此这个答案有点超出范围。 - Andreas Covidiot
And运算符不会短路，因为它是一个按位运算符，而不是逻辑运算符。参见：https://dev59.com/clzUa4cB1Zd3GeqP8f6f#8047021 - jtolleOr的左侧参数是 "all 1s" (&HFFFFFFFF或-1&)，则右侧参数也可以被跳过，同样适用于And如果左侧参数为 0。 - Hugh Allen