Помогите переделать формулу с неизвестным

[kaury]

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

Есть аж 3 разных способа:
1. Завязать на этот диапазон формулу и использовать событие пересчёта.
2. Завязать на эту ячейку текстбокс (или комбобокс, не помню) и использовать его события.
3. Было что-то умное, забыл... Но это должно быть тут: http://www.planetaexcel.ru/forum/ind...ID=8&TID=10022

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

Sub my1()
Dim PauseTime As Single
Dim Start As Single

PauseTime = 1 ' время в секундах

Do While True

[N48].GoalSeek Goal:=[M17], ChangingCell:=[D48]
[N49].GoalSeek Goal:=[M18], ChangingCell:=[D49]

Start = Timer

Do While Timer < Start + PauseTime
DoEvents
Loop
Loop

End Sub

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

[IgorGO]

можно и так, конечно, но уж очень расточительно.

в любую ячейку =В1*1 или =В1+0 - чтобы В1 участвовла в расчете
и обрабатывать событие calculate этой ячейки.

читайте это в справке: Range.Calculate Method

[Hugo121]

Ну да.
А если нужно контролировать диапазон - ну посчитайте по нему сумму, или количество занятых ячеек.
Чего там сложного - у Вас ведь уже код висит на событии. Ну и перевесьте его на другое событие.

Вероятно так - вешаем на пересчёт, а внутри проверяем что считалось:

To calculate Follow this example
All open workbooks: Application.Calculate (or just Calculate)
A specific worksheet: Worksheets(1).Calculate
A specified range: Worksheets(1).Rows(2).Calculate

Хотя можно конечно и на каждый чих макрос отрабатывать. Особенно если там других формул нет

[kaury]

IgorGO, Hugo121 ещё раз большое спасибо за помощь и подсказки. После тестирования всё-таки пришлось оставить вариант с циклом и даже увеличить тайминг, т.к. при очень частом обновлении выяснилось, что при некоторых, так называемых "аномальных" значениях ...Goal:=[M17]... (их больше 30 шт.) методом итераций формула просто физически не находит решений. Таким образом практически оставалось целесообразнее оставить цикл и сущетвенно увеличить тайминг, чтобы не "хватать" каждую аномалию.