Нумерация строк кода VBA и функция vba.Erl (строка ошибки в коде)

[Valetnina]

Добрый день.
Если Кто-то пользуется функций vba.Erl, поделитесь опытом, пожалуйста - сталкивались ли уже с какими-то особенностями ее использования.
В справочника vba она, похоже, не задокументирована (появилась недавно ?).
Возвращает 0, если в коде нет пронумерованных строк и номер строки с ошибкой, если нумерация есть.
(нумерация я проставляла с помощью надстройки MZ-Tools, но выяснилось, что в качестве номера строки может стоять какая угодно цифра и в произвольном порядке).

[Дмитрий Щербаков(The_Prist)]

похоже, не задокументирована

документировано, но очень давно и на данный момент является скрытым. Его можно посмотреть даже среди методов и свойств из VBA.
Жмем F2. На иконке поиска(бинокль) жмем правой кнопкой мыши и ставим галочку на пункте "Show Hidden Members". В поле поиска вбиваем Erl и оно найдется, но будет бледным.
А вот встроенных возможностей нумерации строк не было тогда и нет до сих пор.
Маленький пример использования:

Код: (vb)

Sub SomeSub()
10 On Error GoTo 40
20 Debug.Print 1 / 0
30 Exit Sub
40 Debug.Print "Ошибка в строке: " & Erl ' вернет 20
End Sub

Следует помнить, что erl воспринимает нумерацию, ограниченную типом Integer(т.е. только до 32 ​​767). И если вдруг произойдет переполнение - никакой ошибки не будет выведено или показано - просто в момент вывода номера строки функцией Erl результат может быть неверным:

Код: (vb)

Sub SomeSub()
99997 On Error GoTo 99999
99998 Debug.Print 1 / 0
99999
 Debug.Print "Ошибка в строке: " & Erl ' вернет 34462
End Sub

[Valetnina]

Браво.
Спасибо.
Теперь еще бы найти функцию, которая возвращает номер строки (безотносительно ошибки).

[Дмитрий Щербаков(The_Prist)]

Нет такой функции. Можно, конечно, и Erl прикрутить, генерируя ошибку на нужной строке. Только совсем неясно зачем это, если строки все равно нумеровать придется руками?

Код: (vb)

Sub SomeSub()
   Dim t&
   t = 1
10 MsgBox "Start"
On Error Resume Next
20 t = t + t
   VBA.Err.Raise "65535", "Module 1", "Custom Error"
30
   Debug.Print "Ошибка в строке: " & Erl & ", описание ошибки: " & Err.Description & ". t=: " & t
40 t = t + t
50 MsgBox "Error raised. t=: " & t
End Sub

[Valetnina]

У меня ругается на строку

Код: (vb)

 Dim t&

, требует объявить переменную (с выключенным Option Explicit тоже).
И следующие строки горят красным :

Код: (vb)

VBA.Err.Raise "65535", "Module 1", "Custom Error"

...

Код: (vb)

Debug.Print "Ошибка в строке: " & Erl & ", описание ошибки: " & Err.Description & ". t=: " & t

[Дмитрий Щербаков(The_Prist)]

В Excel? А в Tools -References нет библиотек с Missing?

[Valetnina]

Да, в Excel.
В референсах подключены только четыре первые в списке библиотеки (visual basic for applications, microsoft excel 16.0 object library, OLE Automation и Microsoft Office 16.0 object library).

[Дмитрий Щербаков(The_Prist)]

Не знаю. Текст копировала из форума или переписывала?
t& - это все равно что t As Long. Попробуй заменить. Хотя будет странно, потому что код рабочий во всех версиях и подобное краткое обозначение не должно влиять на работу кода.
Точно именно объявить требует? Может ошибка другая?

[Valetnina]

Да, ошибка точно по переменной.
Код копировала из clipboard. Дело еще было возможно в пробелах (после номера строк), подкорректировала их и красная подсветка исчезлаю
Всё наладилось, обошлась без переменной t вообще, главное - принцип и он ясен.
Спасибо большое. До новых встреч !

[RAN]

Дело еще было возможно в пробелах

Достаточно часто встречается при копировании кода, например, с Планеты.
Поэтому, если строка вдруг покраснела, первым делом нужно удалить все, что там есть "типа пробел", в начале строки.