Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Включение функций, при ошибке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Включение функций, при ошибке (Макросы/Sub)
Включение функций, при ошибке
Gjlhzl Дата: Суббота, 05.08.2023, 15:30 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 20% ±

Для ускорения работы макросов пользуюсь:
[vba]
Код
Public Sub AccelerateBegin()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Application.DisplayStatusBar = False
Application.DisplayAlerts = False
End Sub

Public Sub AccelerateEnd()
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.DisplayStatusBar = True
Application.DisplayAlerts = True
End Sub
[/vba]

AccelerateBegin
сам макрос
AccelerateEnd

как сделать что бы в случае ошибки при выполнении макроса, все отключенные функции включались[vba][code][/code][/vba]


Сообщение отредактировал Gjlhzl - Суббота, 05.08.2023, 15:32
 
Ответить
СообщениеДля ускорения работы макросов пользуюсь:
[vba]
Код
Public Sub AccelerateBegin()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Application.DisplayStatusBar = False
Application.DisplayAlerts = False
End Sub

Public Sub AccelerateEnd()
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.DisplayStatusBar = True
Application.DisplayAlerts = True
End Sub
[/vba]

AccelerateBegin
сам макрос
AccelerateEnd

как сделать что бы в случае ошибки при выполнении макроса, все отключенные функции включались[vba][code][/code][/vba]
Автор - Gjlhzl
Дата добавления - 05.08.2023 в 15:30
MikeVol Дата: Суббота, 05.08.2023, 16:56 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 237
Репутация: 38 ±
Замечаний: 0% ±

Excel 2021
Gjlhzl, Здравствуйте. Как выход из вашего положения:
[vba]
Код

Option Explicit

Sub YourMacro()
    ' Данная строка в саммо начале вашего макроса, на ваше усмотрение или перед тем местом в коде где вы больше всего ожидаете что произойдёт ошибка
    On Error GoTo Gjlhzl

    ' Далее сам код вашего макроса
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    ' Перед End Sub вставьте данную строку
Gjlhzl:
    AccelerateEnd
End Sub
[/vba]

Ученик.
 
Ответить
СообщениеGjlhzl, Здравствуйте. Как выход из вашего положения:
[vba]
Код

Option Explicit

Sub YourMacro()
    ' Данная строка в саммо начале вашего макроса, на ваше усмотрение или перед тем местом в коде где вы больше всего ожидаете что произойдёт ошибка
    On Error GoTo Gjlhzl

    ' Далее сам код вашего макроса
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    ' Перед End Sub вставьте данную строку
Gjlhzl:
    AccelerateEnd
End Sub
[/vba]
Автор - MikeVol
Дата добавления - 05.08.2023 в 16:56
Gjlhzl Дата: Суббота, 05.08.2023, 18:37 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 20% ±

MikeVol, спасибо, ща попробую
 
Ответить
СообщениеMikeVol, спасибо, ща попробую
Автор - Gjlhzl
Дата добавления - 05.08.2023 в 18:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Включение функций, при ошибке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2023 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!