ERROR時 可以知道是那行的ERROR

[閔]

請問各位大大
是否有語法 可以知道是那行出現的ERROR

例如
ON ERROR GO
那在第三行出現錯誤跳開時 後面的MSGBOX可以提示是在哪行跳開的!

[fox3000]

提供一個簡單的範例給您參考

Private Sub xyz()
　　On Error GoTo ErrorHandle
　　Dim uFunction As String
　　Dim uStep As String

　　uFunction = "xyz"
　　
　　uStep = "說明1"
　　'程式碼......
　　
　　uStep = "說明2"
　　'程式碼......
　　
　　uStep = "說明3"
　　'程式碼......
　　
　　uStep = "說明4"
　　'程式碼......
　　
　　Exit Sub
　　
ErrorHandle:
　　MsgBox "程式發生錯誤：" & vbCrLf & vbCrLf & "Function:" & uFunction & vbCrLf & "Step:" & uStep & vbCrLf & "錯誤代碼:" & Err.Number & vbCrLf & "錯誤訊息:" & Err.Description, vbCritical + vbOKOnly, "錯誤訊息"
End Sub


uStep 可以當成是一般的註解，當程式有錯誤時，可以很容易知道錯在哪裡，
寫的越詳細，以後除錯或是要了解這段程式碼的用途都很方便