Ты можешь прервать макрос в Excel в любой момент, нажав Esc или Ctrl + Break.
Поместите командную кнопку на свой рабочий лист и добавьте следующие строки кода:
Dim x As Long
х = 5
Сделать пока x> 2
х = х + 1
Петля
1. Щелкните командную кнопку на листе. Этот макрос никогда не останавливается, потому что часть после 'Do While' всегда будет истинной (x всегда будет больше 2).
2. Чтобы остановить этот бесконечный цикл, нажмите Esc или Ctrl + Break. Появится следующее диалоговое окно:
3. Нажмите «Конец», чтобы завершить макрос, нажмите «Отладка», чтобы просмотреть макрос в редакторе Visual Basic.
4. Добавьте следующую строку кода в начало вашего кода, если вы не хотите, чтобы пользователи вашей программы могли прерывать ваш макрос (не рекомендуется).
Application.EnableCancelKey = xlDisabled
5. Хотя Excel VBA автоматически сбрасывает свойство EnableCancelKey на xlInterrupt в конце макроса, рекомендуется (при использовании предыдущей строки кода) завершить макрос следующей строкой кода:
Application.EnableCancelKey = xlInterrupt
Примечание: если Excel зависает и вы больше не можете прерывать выполнение макроса, нажмите Ctrl + Alt + Delete и закройте Excel.
