Решаем задачку

[VictorM]

Я на английском ничего не понимаю.

Окрываем страничку в Опере
пр.кн.мыши - перевести страницу

[Hugo121]

И кстати верное значение для B3/B14 = 0.99 а не 1.00

Sub Macro1()
'
'
    SolverOk SetCell:="$E$14", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$14"
    SolverSolve
End Sub

[Hugo121]

Что-то макрос Solver-а записался, но не работает.
Зато работает такой:

Sub Macro4()
    Range("E16").GoalSeek Goal:=[h16], ChangingCell:=Range("B16")
End Sub

Размножьте на остальные ячейки.
Или так - следующий шаг:

Sub Macro5()
Dim i As Byte
For i = 14 To 21
    Range("E" & i).GoalSeek Goal:=Range("H" & i), ChangingCell:=Range("B" & i)
Next
End Sub

Дальше...

Sub Macro6()
Dim y As Byte, x As Byte
For x = 2 To 4
For y = 14 To 21
    Range(Cells(y, x + 3), Cells(y, x + 3)).GoalSeek Goal:=Range(Cells(y, x + 6), Cells(y, x + 6)), ChangingCell:=Range(Cells(y, x), Cells(y, x))
Next y, x
End Sub

Результат

Pirmais	Otrais	Trešais
0.99	1.97	2.96
0.99	1.97	2.96
1.02	1.97	2.98
1.01	2.02	2.97
1.02	2.03	2.96
0.99	1.98	3.02
1.03	1.94	2.97
1.02	1.97	2.99

[symbio]

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

Может через функцию ПРЕДСКАЗ() попробовать решить

Вроде понятно! Но в 6. и в 8. строчке получается 0,001. И только если 49 поставить в первом столбике! В втором и в третьем вроде работает.
А вот в макросах мне не надо как предлагают, я в них совсем туплю.
У меня Офис 2007.

[kuklp]

А Вы название форума перечитайте мееедлееено и два раза.

[IgorGO]

вообще-то загадочая задачка.
см.вложение. правее таблиц посчитаны коэфф. к1 и к2. для 1-й таблицы они почти совпадают с теми, что посчитали Вы.
для второй таблицы, там получается просто среднее из чисел из 3-й группы колонок, потому что в первой группе значение не меняется.
для примера в первой строке второй таблицы записал 49,50,51 и получил 0.906 и -0.01. подставил в зеленые колонки (Вам для проверки)

[symbio]

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

вообще-то загадочая задачка.
см.вложение. правее таблиц посчитаны коэфф. к1 и к2. для 1-й таблицы они почти совпадают с теми, что посчитали Вы.
для второй таблицы, там получается просто среднее из чисел из 3-й группы колонок, потому что в первой группе значение не меняется.
для примера в первой строке второй таблицы записал 49,50,51 и получил 0.906 и -0.01. подставил в зеленые колонки (Вам для проверки)

Как бы понял, но я внижней таблице показал как надо (красным). Когда с левой стороны 3 раза 49 то в зеленых должно быть 0,000.
А если слева 1,00 2,00 3,00 то зеленые с коричневыми должны совпадать.

[symbio]

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

А Вы название форума перечитайте мееедлееено и два раза.

Спасибо за то что указали...
Прочитал правила! И там есть такая строчка:
Указать, какое решение требуется (встроенными в Excel формулами и функциями, средствами макросов (VBA), или любыми)
И мне как раз формулы и функции устраивают! И начинает мне уже кое что прояснятся.

[Hugo121]

Значит я неправильно понял, что нужно.
Но тогда "если слева 1,00 2,00 3,00 то зеленые с коричневыми " совпадать не будут.

[IgorGO]

так, что-ли? две формулы на все это хозяйство.