Автоматический Ярлык xls файла - Microsoft Office Excel - Страница 4

SAS888 · 19.01.2009, 10:16

Цитата:

А 3, пункт?

Если Вы про Application.EnableEvents, то в самом начале нашей процедуры обработчик событий отключается (это необходимо для корректной работы). По окончанию процедуры его нужно разрешить. В коде макроса есть две точки выхода из процедуры. Одна - при не верном вводе имени файла для сохранения (Exit Sub), другая - после выполнения всех операций. В обоих случаях, перед завершением работы макроса выполняется Application.EnableEvents = True.

valerij · 19.01.2009, 10:45

Цитата:

Сообщение от SAS888

Если Вы про Application.EnableEvents, .

Но я одну не нахожу их три всего, а не четыре, вот о чем я, это в макросе файла "На чч.чч.чч"

SAS888 · 19.01.2009, 10:58

Прочитайте пост № 31 еще раз. Внимательнее.
Application.EnableEvents = False - выполняется в начале процедуры.
Application.EnableEvents = True - выполняется в теле функции If перед условным выходом из процедуры.
Application.EnableEvents = True - выполняется в конце кода, перед безусловным выходом. (Итого 3 раза)
Т.е. перед тем, как завершить выполнение процедуры, хоть в первом, хоть во втором случае, обработчик событий необходимо восстановить.
Как еще объяснить?
Если выполнилось условие неправильного ввода имени файла для сохранения, то выводится сообщение (MsgBox), восстанавливается обработчик событий (Application.EnableEvents = True), и осуществляется выход из процедуры (Exit Sub).
Можно, конечно, вместо Exit Sub сделать GoTo на Application.EnableEvents = True, который расположен в конце кода, но зачем лишнее?

valerij · 19.01.2009, 11:04

Цитата:

Сообщение от SAS888

но зачем лишнее?

Все понял, вопросов больше. нет!.
Еще раз, Спасибо!!

19.01.2009, 10:58	#33
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Прочитайте пост № 31 еще раз. Внимательнее. Application.EnableEvents = False - выполняется в начале процедуры. Application.EnableEvents = True - выполняется в теле функции If перед условным выходом из процедуры. Application.EnableEvents = True - выполняется в конце кода, перед безусловным выходом. (Итого 3 раза) Т.е. перед тем, как завершить выполнение процедуры, хоть в первом, хоть во втором случае, обработчик событий необходимо восстановить. Как еще объяснить? Если выполнилось условие неправильного ввода имени файла для сохранения, то выводится сообщение (MsgBox), восстанавливается обработчик событий (Application.EnableEvents = True), и осуществляется выход из процедуры (Exit Sub). Можно, конечно, вместо Exit Sub сделать GoTo на Application.EnableEvents = True, который расположен в конце кода, но зачем лишнее? Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Автоматический запуск макроса	Len@	Microsoft Office Excel	6	23.07.2008 12:05
Автоматический скролинг в редакторе кода	Altera	Общие вопросы Delphi	0	05.06.2008 16:23
автоматический перевод с английского	Alar	Общие вопросы Delphi	5	04.04.2008 18:23
Автоматический вызов функции класса	Flaton	Общие вопросы C/C++	4	19.10.2007 17:56
Ярлык программы	Washington	Общие вопросы Delphi	10	07.04.2007 06:27