Excel VBA 中的自动换行？

Question

我正在编写一个 IF-THEN-ELSE 语句，其中包含 19 个 OR 语句。有没有办法使用自动换行来更轻松地查看我正在编码的内容？或者有什么方法可以使这更可行？跟踪所有语句是非常困难的。

注意：我不是在尝试使用 Wrapandfit() 函数或任何其他函数来修改单元格，我是在谈论 VBA 窗口本身。

声明的一个例子：

If InStr(1, Cells(i, 1).Value, "Administration") > 0 Or InStr(1, Cells(i, 1), "Administrative") > 0 Or InStr(1, Cells(i, 1), "Administrator") > 0 Or InStr(1, Cells(i, 1), "Assistant") > 0 Or InStr(1, Cells(i, 1), "Coordinator") > 0 Then
Cells(i, 2).Value = "Administrative"

这在一定程度上很重要，因为我不能将所有内容都放在单独的行上，然后由于调试器（这也需要额外的工作才能禁用）而删除换行符。

Answer 1

您可以使用行继续符_：

Function SmallPrime(n As Integer) As Boolean
    If n = 2 Or n = 3 Or n = 5 Or n = 7 _
       Or n = 11 Or n = 13 Or n = 17 _
       Or n = 19 Then
        SmallPrime = True
    Else
        SmallPrime = False
    End If
End Function

注意前面的空格 _

编辑时：

如果您希望在编辑器级别使用真正的自动换行，您可以保留一个启用了自动换行的TextPad的打开副本，并且可以从他们的网站上获得 VBA 语法高亮定义，然后复制粘贴到 VBA 编辑器中。（Notepad++ 可能有类似的功能，虽然我熟悉的是 Textpad）。