多行 If 语句

Question

我有一个包含多个条件的 if 语句。我无法在一个窗口视图中看到它们全部。有没有办法将它们分开在不同的行上，或者它们必须全部写在一行中？

Answer 1

VBA 行继续符是下划线 _

if ( _
    (something) _
    or (somethingelse) _
) 

Answer 2

可以使用续行符 _

这些都是一样的：

If Something Or  SomethingElse Or AnotherThing Then

If Something Or SomethingElse _
   Or AnotherThing Then

If Something Or _
   SomethingElse Or _
   AnotherThing Then

Answer 3

与上面一样，您可以使用下划线分解一个“IF”语句中的长条件集。

如果条件太多，我觉得阅读起来有困难，我会用 BOOLEANS 来表示条件。看起来代码有点多，但我觉得更容易阅读。

如果我有一个需要执行以下操作的场景：

IF (X = something1) OR (X = something2) OR (X = something2) OR (X = something2) OR (X = something2) OR (X = something2) OR (X = something2) OR (X = something2) THEN
END IF

我可以这样做：

IF _
    (X = something1) _
    OR (X = something2) _
    OR (X = something3) _
    OR (X = something4) _
    OR (X = something5) _
    OR (X = something6) _
    OR (X = something7) _
    OR (X = something8) _
THEN
END IF

...或者我可以这样做...

blnCondition1 = (X = something1)
blnCondition2 = (X = something2)
blnCondition3 = (X = something3)
blnCondition4 = (X = something4)
blnCondition5 = (X = something5)
blnCondition6 = (X = something6)
blnCondition7 = (X = something7)
blnCondition8 = (X = something8)

IF blnCondition1 OR blnCondition2 OR blnCondition3 OR blnCondition4 OR blnCondition5 OR blnCondition6 OR blnCondition7 OR blnCondition8 THEN
END IF

当然，定义了示例 BOOLEAN 变量，我将使用而不是像 blnCondition1 这样的名称有意义的名字。

再说一次，这只是我的一个偏好。

Answer 4

用低于分数 _ 来打破它们？

Microsoft 库

上面链接中的

If ActiveSheet.ChartObjects(1).Chart.ChartTitle = _
      ActiveSheet.Range("a2").Value Then
   MsgBox "They are equal."
End If

Answer 5

我非常确定您可以使用下划线 _ 来分隔行。