关于脚本：VBA：如何使VBE中的当前光标跳转到最后一个错误发生的行？

VBA: How to make the current cursor in VBE jump to the line where the last error occured?

这仍然与我之前的问题有关，VBA: How to display an error message就像标准错误消息有一个"调试"按钮？

现在，我成功地使 VBE 中的当前光标跳转到 VBE 中的特定过程。我使用 Application.Goto 来实现这一点。但是，实际上我想要的是使 VBE 中的当前光标跳转到最后一个错误发生的行。我怀疑在 Application.VBE 对象中应该有一些对此有用的东西，但不知道是哪个？

解决这个问题也意味着完全满足我之前的问题。有任何提示甚至是肮脏的把戏吗？

相关讨论

接上一个问题:)

我想您已经在使用行号(如上一个问题中的回答)。

因此，将错误处理例程修改为：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Sub aa()
Dim zz As Long

10: On Error GoTo ErrorHandler
20: DivisionByZero = 1 / 0
30: Exit Sub
ErrorHandler:
41: If Err.Number <> 0 Then
42: Msg ="Error #" & Str(Err.Number) &" was generated by" _
& Err.Source & Chr(13) &"Error Line:" & Erl & Chr(13) & Err.Description
43: MsgBox Msg, ,"Error", Err.HelpFile, Err.HelpContext
zz = CodeFind("","", Str(Erl), 0)
44: End If
50: Resume Next
End Sub

现在是 CodeFind() 的事情。我在这里找到了它(在底部，最后一个)，但不得不稍微修改一下，所以我发布了很多代码......对不起。

将此代码插入新模块并确保您已选中"Microsoft Visual Basic For Applications Extensibility 5.3"的引用，并且该项目不受保护。有疑问请看这里。

HTH！

这里是代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

Option Explicit
'---------------------------------------------------------------------------------------
' Procedure : CodeFind
' DateTime : 7/5/2005 18:32
' Author : Nelson Hochberg
' Purpose : Find a module, a procedure and/or a string in code and highlight it
' Returns : 0 if not found, line number in module if found
' Syntax : lngReturn = CodeFind ([FindMod],[FindProc],[FindStr],[TypeOfSearch])
' Arguments : Optional FindMod As String: Part of a name of a module
' Optional FindProc As String: Part of a name of a procedure
' Optional FindStr As String: Part of a string to search
' NOTE: One of the above three is required
' Optional TypeOfSearch As Long: -1 Find line number, 0 Find string,
' >0 Continue search starting at line number: TypeOfSearch + 1
' Thanks : To stevbe at Experts Exchange for the initial code.
'---------------------------------------------------------------------------------------
'
Public Function CodeFind( _
Optional FindMod As String ="", _
Optional FindProc As String ="", _
Optional FindStr As String ="", _
Optional TypeOfSearch As Long = 0 _
) As Long

Dim vbc As VBIDE.VBComponent
Dim cm As VBIDE.CodeModule
Dim VBAEditor As VBIDE.VBE
Dim VBProj As VBIDE.VBProject

Dim startline As Long, startcol As Long, endline As Long, endcol As Long

If FindMod <>"" Then
CodeFind = FindModule(FindMod, vbc, cm)
If CodeFind = False Then Exit Function
If FindProc <>"" Then
CodeFind = FindProcedure(FindProc, startline, startcol, endline, endcol, cm)
If CodeFind = False Then Exit Function
If FindStr <>"" Then
CodeFind = FindString(FindStr, startline, startcol, endline, endcol, cm, TypeOfSearch)
If CodeFind = False Then Exit Function
Else
GoTo CodeLineFound
End If
Else
startline = 1
If FindStr <>"" Then
CodeFind = FindString(FindStr, startline, startcol, endline, endcol, cm, TypeOfSearch)
If CodeFind = False Then Exit Function
Else
GoTo CodeLineFound
End If
End If
Else
Set VBAEditor = Application.VBE
'''''''''''''''''''''''''''''''''''''''''''
Set VBProj = VBAEditor.ActiveVBProject
For Each vbc In VBProj.VBComponents

Set cm = vbc.CodeModule
If FindProc <>"" Then
CodeFind = FindProcedure(FindProc, startline, startcol, endline, endcol, cm)
If CodeFind = False Then GoTo Nextvbc2 Else Exit For
Else
startline = 1
If FindStr <>"" Then
CodeFind = FindString(FindStr, startline, startcol, endline, endcol, cm, TypeOfSearch)
If CodeFind = False Then GoTo Nextvbc2 Else Exit For
Else
MsgBox"CodeFind: At least one of the following is required:" & vbCrLf & _
" Module" & vbCrLf &" Procedure" & vbCrLf &" String"
CodeFind = False
Exit Function
End If
End If
Nextvbc2:
Next vbc
If CodeFind <> False Then
If FindStr <>"" Then
CodeFind = FindString(FindStr, startline, startcol, endline, endcol, cm, TypeOfSearch)
If CodeFind = False Then Exit Function
Else
GoTo CodeLineFound
End If
End If
End If

CodeLineFound:
If CodeFind <> False Then
If endline = -1 Then endline = 1
If endcol = -1 Then endcol = 1
cm.CodePane.Show
cm.CodePane.SetSelection startline, startcol, endline, endcol
End If

End Function