Только макрос "повешенный" на событие при котором происходит перерасчёт

Есть только по немногу

Fig, в Вашем случае, наверное можно, с помощью Поиска_решения,
найти нули производных сразу для всех функций (минимумы значений):

Это Вы о чём ?

Сорри, тогда

через поискпоз имел ввиду условие, если(И( (A2^H2+B2^H2)>(A2^H1+B2^H1),(A2^H2+B2^H2)<(A2^H3+B2^H3)),(A2^H2+B2^H2),0).
Вот типа того, а столбец Н задать по вертикали как значения ячеек от -1000 до 1000, вот только это смещение или поискпоз надо как-то перебирать Н до выполнения условия.

От спасибо-то а, мил человек! Вот что значит опыт, ато нельзя....)))Спасибо еще раз. Буду разбираться, дабы не дергать вопросами по мелочам.Если что не пойму, спрошу позже.

вариант с UDF, раз уж написал  

вот макрос из последнего файла
Function f(rng As Range, Optional vFrom = -1000, Optional vTo = 1000, Optional eps = 0.0000001)
 Dim arr#(1 To 5), i%, p1#, p2#, x#, px#
 For i = 1 To 5: arr(i) = rng.Cells(1, i): Next
 p1 = p(arr, vFrom): p2 = p(arr, vTo)
 If Sgn(p1) <> -1 And Sgn(p2) <> 1 Then f = CVErr(xlErrValue): Exit Function
 Do While Abs(p2 - p1) > eps
   x = (vTo + vFrom) / 2: px = p(arr, x)
   Select Case Sgn(px)
     Case 0: f = x: Exit Function
     Case -1: vFrom = x: p1 = px
     Case 1: vTo = x: p2 = px
   End Select
 Loop
 f = (vTo + vFrom) / 2
End Function

Function p#(a#(), x) ' производная
 Dim i%
 For i = 1 To 5: p = p + Log(a(i)) * a(i) ^ x: Next
End Function

и еще, там задан перебор степени от -1000 до 1000, я так пониаю с шагом 1.
А как сделать перебор степени от 0,001 до 1000, с шагом 0,001

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

Fig, я очень извиняюсь, но мои воспоминания о математике настолько смутные, что я и этот-то вариант сделал с некоторым трудом.
как решать для функций с несколькими экстремумами (убейбог!) - ничего не помню.

и еще, там задан перебор степени от -1000 до 1000, я так пониаю с шагом 1.
А как сделать перебор степени от 0,001 до 1000, с шагом 0,001.
что там поменять надо так ведь не пойдет ниже красным диапазон перебора поменял, а шаг который был единица поменять на шаг 0,001 где?
Function f(rng As Range, Optional vFrom = 0,001, Optional vTo = 1000, Optional eps = 0.0000001)
Dim arr#(1 To 5), i%, p1#, p2#, x#, px#
For i = 1 To 5: arr(i) = rng.Cells(1, i): Next
p1 = p(arr, vFrom): p2 = p(arr, vTo)
If Sgn(p1) <> -1 And Sgn(p2) <> 1 Then f = CVErr(xlErrValue): Exit Function
Do While Abs(p2 - p1) > eps
x = (vTo + vFrom) / 2: px = p(arr, x)
Select Case Sgn(px)
Case 0: f = x: Exit Function
Case -1: vFrom = x: p1 = px
Case 1: vTo = x: p2 = px
End Select
Loop
f = (vTo + vFrom) / 2
End Function

Function p#(a#(), x) ' производная
Dim i%
For i = 1 To 5: p = p + Log(a(i)) * a(i) ^ x: Next
End Function

А значение это вот это в коде Optional eps = 0.0000001 ?
Кажись допетрил я ) и правда у вас другой способ поиска этой точки, тогда еще вопрос, правильно ли я понял, что если такому способу подать 2 пораболы, одну обычную, другую перевернутую, то этот способ найдет именно не миниму пораболы на отрезке (вершина попадает в отрезок), а именно точки перегиба- то есть ее вершины?

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