Excel揭秘22：其实可以在编写VBA代码时直接添加行号

很多现代的代码编辑器在其左侧都会显示代码所在行的行号，然而在VBE中输入代码时，我们看不到行号，其实，我们可以在输入代码时直接手工添加行号。

如下面的测试代码，我在输入代码时也手动添加了行号：

Sub AddLineNo()

1 Dim str As String

2 str = "完美Excel"

3 MsgBox str

End Sub

运行代码结果如下图1所示。

图1

完全没有问题！

当然，有一些插件，可以自动给VBA代码添加行号，如果你需要这个功能的话，可以搜索一下，看有没有合适的。

那么，添加行号有什么用处呢？我认为最大的用处之一就是在代码调试时可以迅速定位到出错的代码语句。

在VBA中，有一个名为Erl的函数，可以用于返回发生错误的语句所在的行号。如下面的代码所示：

Sub testAddLineNo()

1 On Error GoTo errH

Dim i As Long

2 i = "完美Excel"

Finish:

3 Exit Sub

errH:

4 MsgBox "错误发生行的行号: " & Erl

End Sub

运行代码的结果如下图2所示。

图2

注意，如果代码没有添加行号，Erl函数将返回0。

欢迎分享本文，转载请注明出处。

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。