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

[strannick]

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

У меня в файле всё работает правильно.

Скинь, пожалуйста. А то "стою на траве я в лыжи обутый...". Ну а дальше понятно...

[Hugo121]

Что скидывать? Пустой файл с кодом в модуле листа из Вашего файла? Лениво...
Возьмите свой архив, измените код как я выше написал - будет тот же эффект.

[VictorM]

Вот почему я и не люблю Worksheet_Change
И применяю его КРАЙНЕ редко и только самые простые действия

[strannick]

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

Что скидывать? Пустой файл с кодом в модуле листа из Вашего файла? Лениво...
Возьмите свой архив, измените код как я выше написал - будет тот же эффект.

Изменил. Тот же эффект. Изменяю ЛЮБУЮ ячейку на листе, срабатывает первый Call, как будто я изменил ячейку в диапазоне D.

[strannick]

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

Вот почему я и не люблю Worksheet_Change
И применяю его КРАЙНЕ редко и только самые простые действия

Да вроде как действия и не сложные. Изменилась ячейка в диапазоне D - вызвались сторонние макросы, изменились ячейки в диапазоне E - в зависимости от значения проставились даты в этих же строках.

[Hugo121]

У меня не срабатывает.
Только конечно в примере пришлось все эти каллы закомментировать - иначе компилятор ругается.

[strannick]

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

У меня не срабатывает.
Только конечно в примере пришлось все эти каллы закомментировать - иначе компилятор ругается.

Эт понятно. А вот у меня срабатывает. Офис 2010. Кстати, обратил внимание на тот факт, что произошло это после последнего обновления (дня три назад). Вот сейчас открыл другой файл с другими делами. Смотрю, там тоже не все так как было. Может это как-то связано? Но в 2007-м та же ерунда.

[strannick]

Разложил макрос на две части. Первая часть по диапазону D4:D500, вторая часть по диапазону E4:E500. Вторая часть работает нормально. Но первая часть реагирует на изменение ЛЮБОЙ ячейки на листе и вызывает сторонние макросы. Причем, строку

If Intersect(Target, [D4:D500]) Is Nothing Then Exit Sub

(как сейчас), изменял на

If Not Intersect(Target, [D4:D500]) Is Nothing Then

(как во второй части), результат тот же - срабатывает при изменении ЛЮБОЙ ячейки.
В общем, проблема не ушла.

[ikki_pf]

попробуйте так

If Intersect(Target, Me.[D4:D500]) Is Nothing Then Exit Sub

[strannick]

Не, так тоже не пролезло. Странное дело, в исходном файле стал делать пошаговые модификации макроса, дошел до варианта, который во вложении - вроде работает нормально, но тормоз остался, идет пересчет формул при изменении любой ячейки на листе, а не только в чувствительных диапазонах. Вставил все таки отключение-включение пересчета формул. Тормоз ушел, но столкнулся со следующим: при изменении опять же любой ячейки на листе пересчет формул отключается и не включается в автомат, остается в ручном режиме. В последний раз выкладываю листинг и прошу глянуть, может что-то все таки не так:

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .ErrorCheckingOptions.BackgroundChecking = False
End With
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 Cells(Target.row, 4).Value <> Cells(Target.row, 1).Value Then MsgBox "Вы ввели неверный номер Покупателя", vbCritical, "Ошибка": Exit Sub
    If Cells(Target.row, 4).Value = Cells(Target.row, 1).Value Then
        Application.EnableEvents = False
        Call Договор
        Call Спецификация
        Call Накладная
        Call Счет_фактура
        Call Квитанция
        Call СформироватьДоговор
        Application.EnableEvents = True
    End If
Else
    If Target.Column = 5 Then
    If Target.Value = 1 Then Cells(Target.row, 26) = DateValue(Now)
    If Target.Value = 2 Then Cells(Target.row, 26) = DateValue(Now)
    If Target.Value = 3 Then Cells(Target.row, 25) = DateValue(Now)
    End If
End If
With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .ErrorCheckingOptions.BackgroundChecking = True
End With
End Sub

И правильно ли я проставил отключение-включение обработки событий? Спасибо!