Пересчет итогов по столбцам после удаления строки.

[irina181]

Всем привет. Имеется строка с итогами, которые рассчитываются макросом. Всё работает нормально, но при удалении строки не происходит перерасчет итогов. Как бы устранить эту проблему в моём документе ? В VBA познания мизерные, строго не судить за код, т.к. слеплено из разных источников. Всем, откликнувшимся, спасибо. Файл во вложении.

[Serge_Bliznykov]

зачем использовать макросы там, где можно прекрасно обойтись формулами?
они будут работать и быстрее и надёжнее. да и это проще, в конце концов!

[vefer]

Не, ну при желании конечно можно отследить удаление строки, но в данном случае действительно проще формулами обойтись. Либо можно сделать удаление строки с помощью макроса.

[IgorGO]

сделать удаление строки с помощью макроса - легко
отследить удаление строки - чуть сложнее, но действительно можно
а самый геморрой - запретить пользователю удалять строку стандартными средствами (только в этом контролируемом файле, в остальных-то можно, зачем пользователя ограничивать, он начнет нервничать)

т.е. с практической точки зрения формула - это идеальное решение,
но с познавательной (если интересно осваивать VBA) - можно заморочиться со всеми этими макросами. и замечено: кому интересно осваивать, тот тихонько и самостоятельно ищет ответы на возникшие вопросы)

[irina181]

Понятно, что формула в данном случае лучше всего. Но хотелось бы узнать, как это можно сделать макросом. Пример решения этого мне в инете не попадался, вот и интересуюсь.

[Watcher_1]

Модифицировал

[vefer]

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

Модифицировал

Хитро

[Serge_Bliznykov]

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

Но хотелось бы узнать, как это можно сделать макросом.

так технически это не сложно.
дело в том, что процедура, которая у Вас назначена в качестве обработчика при событии возникновения изменений на листе (я имею в виду Worksheet_Change), вызывается и в случае удаления.
это легко посмотреть - либо сделайте точку останова в коде, либо вставьте в процедуру первой строчкой MsgBox
например,

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox "вызван обработчик Worksheet->onChange"
....

теперь о том, как отследить действие.
можно, например, не заморачиваться и при любом вызове Worksheet_Change пересчитывать итоги.
Производительность, конечно, рухнет ниже плинтуса.
Можно пытаться оптимизировать - например, при удалении/вставки строки - счётчик Target.Cells.Count равен 16384 (для одной строки - если выделено несколько строк - то надо умножить на число строк) и вызывать пересчёт только в этом случае.
Но это всё равно "квадратные колёса" - не смысла в этом нет, ни проку, ни скорости, ни надёжности.

Вообще, запомните "золотое" правило макросов в MS Excel ( (c) не мой) -
"Всё, что может быть сделано без макросов (формулами) должно быть сделано без макросов (формулами)."

[Serge_Bliznykov]

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

Модифицировал

молодец! надо было и вычисления по строке тоже формулами сделать.

irina181, поймите, что удаление/вставка строки это не единственные косяки в вычислениях макросом.
например,скопируйте одно значение в несколько ячеек. пересчет не сработает.

[irina181]

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