Стал тормозить макрос

[strannick]

Добрый день, уважаемые форумчане!
После очередного преобразования функционала сократил код в листе и получил:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("D4:D500,E4:E500")) Is Nothing Then Exit Sub
If Target.Column = 4 Then
    If Target.Value > 0 Then
        Call Договор
        Call Спецификация
        Call SendmailTheBat1
        Call Накладная
        Call Счет_фактура
        Call Квитанция
        Call СформироватьДоговор
    End If
    'End If
Else
    If Target.Column = 5 Then
    If Target.Value = 1 Then Cells(Target.row, 25) = DateValue(Now)
    If Target.Value = 2 Then Cells(Target.row, 25) = DateValue(Now)
    If Target.Value = 3 Then Cells(Target.row, 24) = DateValue(Now)
    End If
End If
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

Но при этом стал жутко тормозить файл. При любом вводе любой информации в любую ячейку идет пересчет формул, что очень тормозит процесс. Отключать пересчет формул нельзя, потому как они там есть и они должны работать. Имеется условное форматирование всех строк диапазона. Но, опять же, даже если вводится информация в ячейки, не влияющие ни на пересчет формул, ни на условное форматирование, все равно тормоз пересчетом формул. Суть еще в том, что предыдущий код был значительно обширнее и там были задействованы даже не два, а три диапазона, по которым отслеживались изменения с тем же набором формул и УФ, но тормозов не было. Что я тут не учел?
Заранее спасибо!

[EducatedFool]

странный код:

Application.EnableEvents = False
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("D4:D500,E4:E500")) Is Nothing Then Exit Sub

т.е. достаточно изменить несколько ячеек, или любую ячейку кроме D4:D500,E4:E500 - и ваш макрос безвозвратно отключит обработку событий, и событие Worksheet_Change больше не сработает


По теме: без вашего файла со всеми макросами, формулами и УФ - не разобраться
Мы - не телепаты.

[strannick]

Сделал отдельный файл с этим листом - вообще перестал работать.))))))) Меняешь значению любой ячейки - вываливается. Данные импортируются и вбиваются вручную в диапазон (затенен).

[ikki_pf]

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

Сделал отдельный файл с этим листом - вообще перестал работать.))))))) Меняешь значению любой ячейки - вываливается.

мда... неожиданное поведение макроса, написанного с синтаксическими ошибками.

у вас там один If не закрыт.
не говоря уж о том, что ни одной вызываемой процедуры в файле нет.

[strannick]

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

у вас там один If не закрыт.
не говоря уж о том, что ни одной вызываемой процедуры в файле нет.

Да, это я при копипасте нужное убрал. Вот:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("D4:D500,E4:E500")) Is Nothing Then Exit Sub

    If Target.Column = 4 Then
    If Target.Value > 0 Then
        Call Договор
        Call Спецификация
        Call SendmailTheBat1
        Call Накладная
        Call Счет_фактура
        Call Квитанция
        Call СформироватьДоговор
    End If
Else
    If Target.Column = 5 Then
    If Target.Value = 1 Then Cells(Target.row, 25) = DateValue(Now)
    If Target.Value = 2 Then Cells(Target.row, 25) = DateValue(Now)
    If Target.Value = 3 Then Cells(Target.row, 24) = DateValue(Now)
End If
End If
End Sub

При вводе в любую ячейку (не только в контролируемые диапазоны), макрос срабатывает. Суть там простая: если в диапазон D вводится любое значение >0, вызываются перечисленные макросы, если в диапазон Е - проставляются даты.

[ikki_pf]

формулируйте вопросы понятнее - не будет простыни ответов с вариантами и уточнениями.
макрос Private Sub Worksheet_Change(ByVal Target As Range) и должен срабатывать при изменении любой ячейки.

другое дело - что в начале вашего макроса производятся проверки и, если изменена не одна ячейка или ячейка не в "нужном" диапазоне, то ваш макрос завершает работу.

имхо, всё правильно и нормально (именно в макросе из поста #5).

[strannick]

Так вот и я о том же, что вроде все правильно. Но срабатывает макрос как раз при изменении любой ячейки. Как будто проверки-то и нету.
И подскажите где правильно прописать отключение-включение обработки событий?

[Hugo121]

If Target.Column = 5 Then
лишнее - там другого уже и быть не может.

[strannick]

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

If Target.Column = 5 Then
лишнее - там другого уже и быть не может.

В принципе да, но суть то не в этом. Перебрал код руками, один хрен. Также срабатывает на изменение абсолютно любой ячейки.

[Hugo121]

У меня в файле всё работает правильно.
Да и Ваш сейчас проверил - в такой версии работает корректно:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("D4:D500,E4:E500")) Is Nothing Then Exit Sub

    If Target.Column = 4 Then
    If Target.Value > 0 Then
'        Call Договор
'        Call Спецификация
'        Call SendmailTheBat1
'        Call Накладная
'        Call Счет_фактура
'        Call Квитанция
'        Call СформироватьДоговор
    End If
Else
'    If Target.Column = 5 Then
    If Target.Value = 1 Then Cells(Target.row, 25) = DateValue(Now)
    If Target.Value = 2 Then Cells(Target.row, 25) = DateValue(Now)
    If Target.Value = 3 Then Cells(Target.row, 24) = DateValue(Now)

End If
End Sub