Страницы: 1
RSS
Остановка работы макроса по нажатию кнопки в форме, Остановка макроса через кнопку в форме
 
Добрый вечер, подскажите, пожалуйста. Если в макросе выполняется цикл, то сработает ли другое событие по нажатию на кнопку в этой же форме? Мне надо прервать работу макроса. Сделал кнопку "Стоп". На эту кнопку повесил код:
Код
Private Sub Knop_stop_Click()
    stopec = True
End Sub

В цикле основного макроса прописал:
   
Код
  If stopec = True Then Exit Sub
stopec - глобальная переменная

не работает. Что сделать?
 
Цитата
Radomir-m написал:
Что сделать?
приложить файл, вангую отсутствие DoEvents в теле основного макроса
Изменено: buchlotnik - 11.09.2020 19:43:28
Соблюдение правил форума не освобождает от модераторского произвола
 
Тот файл, который пишу - очень большой. Сделал файл с примером задачи
 
подтверждаю
Цитата
buchlotnik написал:
отсутствие DoEvents в теле основного макроса
Код
Sub Кнопка2_Щелчок()
    Dim x, y, z As Long
    'stopec = False - это по желанию, для перезапуска
    For z = 1 To 100
        For y = 1 To 100
            For x = 1 To 100
                ActiveSheet.Cells(y, x) = z
                DoEvents
                If stopec = True Then Exit Sub
            Next x
        Next y
    Next z
End Sub
Изменено: buchlotnik - 11.09.2020 20:28:30
Соблюдение правил форума не освобождает от модераторского произвола
 
Спасибо большое! Работает!  :)  
 
Добрый вечер. Еще такой вариант есть.
Страницы: 1
Наверх