1

Возможно ли как-то остановить выполнение макроса без завершения процесса, если он, допустим, зашел в бесконечный цикл и вызвал зависание всего Excel?

4
  • Без кода как-то не очень ясна ситуация и условия в которых возникает бесконечный цикл или вы говорите о любых вариантах когда нужна "серебряная пуля"?
    – asg
    13 сен 2017 в 3:16
  • Можно в цикле использовать DoEvents, тогда думаю его можно остановить без особых усилий. Если конечно речь об этом...
    – asg
    13 сен 2017 в 3:19
  • 1
    Для принудительной ручной остановки VBA-кода используется сочетание клавиш Ctrl-Break. Однако если в коде нет DoEvents, можно весьма долго ждать, пока это сочетание пробьётся к дебаггеру...
    – Akina
    13 сен 2017 в 4:38
  • При написании/отладке DoEvents. Но в рабочем коде не должно быть возможности зацикливания. Наgример, проверка значения переменной: If bf=True Then Exit For 13 сен 2017 в 11:29

1 ответ 1

1

Один из вариантов контроля бесконечного цикла это контроль по времени. Т.е. задаем максимально допустимый интервал времени по истечение которого происходит выход из цикла. Например.

TimeInterval = 25 'секунд
t1 = Timer        ' задаем начальное время

Do                ' бесконечный цикл 
   tElepsed = Timer - t1
   If tElapsed > TimeInterval Then
       Exit Do
   End if

   'тело цикла
   '
Loop

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.