автоматический пересчет данных на листе - код

[peq]

добрый день!

интересен вопрос, возможно ли прописать в макросе, чтобы данные в книге пересчитывались автоматически, но только данные, привязанные к одному листу?

то есть есть саб, в начале сразу задается код "пересчет листа" (аналог комбинации shift+f9, но автоматический, запускающийся при изменении по умолчанию), в конце саба возвращается опять автоматический пересчет.

или такого нет, правильнее всего автоматическое обновление отключить и каждый раз при изменении данных вызывать код - аналог shift-f9

[motorway]

Попробуйте так (можно добавить нужные проверки и доп.условия):

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Calculate
End Sub

[peq]

спасибо, попробую завтра

p.s. хотел только спросить, перед этим надо где-то писать
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With

чтобы остальное не пересчитывалось или это лишнее?

[motorway]

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

[peq]

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

но, подумав, действительно правильнее всего автоматический пересчет отрубить по всему файлу, а в нескольких ключевых точках кода прописать пересчет листа

выигрыш по скорости получился крутой

в общем, спасибо, вопрос закрыт