Поиск необходимых параметров с использованием циклов

[Petrov210217]

Здравствуйте! Нужен макрос решающий следующую задачу:
в ячейке D4, E4, F4 коэфиценты от -1 до 1, необходимо перебрать с помощью циклов все варианты коэфицентов, подставляя их в ячейки ячейке D4, E4, F4 до выполнения условия значение L6>M6, после выполнения условия коэффициенты копируются в ячейки D4, E4, F4, а действие макроса останавливается.

[IgorGO]

у меня все получилось!

[Petrov210217]

IgorGO, вы специалист в ВБА эксель, а я нет.

[Serge_Bliznykov]

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

IgorGO, вы специалист в ВБА эксель, а я нет

Это Игорь тонко намекнул, что без вашего файла понять, как связаны ячейки D4, E4, F4 с L6>M6, очень затруднительно.
Покажите файл, расскажите, как могут меняться коэффициенты, возможно, что получите готовое решение.

[Petrov210217]

Тонкий намек понял))). Выкладываю файл.

В ячейках D4,E4,F4 коэффициенты, которые необходимо перебрать в диапазоне от -1 до 1, для каждой ячейки. Перебор должен осуществляется до тех пор, пока значение в ячейке L6>=M6, если условие не выполнено и при всех вариантах L6<M6, то выбрать то значение D4,E4,F4 при котором значение L6 максимально.

[IgorGO]

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

которые необходимо перебрать в диапазоне от -1 до 1

с шагом?

[Petrov210217]

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

с шагом?

шаг 0,01

[MCH]

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

то выбрать то значение D4,E4,F4 при котором значение L6 максимально

С этой задачей справится "Поиск решения"

[сфинкс]

у меня работает макрос
с шагами 0.233 для ускорения:

Sub D4E4F4()
   
    For i = -1 To 1.2 Step 0.233
          For j = -1 To 1.2 Step 0.233
                For k = -1 To 1.2 Step 0.233

    Range("d4").Select
    ActiveSheet.Range("d4").Value = i
    Range("e4").Select
    ActiveSheet.Range("e4").Value = j
    Range("f4").Select
    ActiveSheet.Range("f4").Value = k

 If Range("L6") > Range("m6") Then End
 If Range("L6") > Range("L9") Then ActiveSheet.Range("L9").Value = Range("L6"): ActiveSheet.Range("L11").Value = i: ActiveSheet.Range("L12").Value = j: ActiveSheet.Range("L13").Value = k
 If Range("L6") < Range("L15") Then ActiveSheet.Range("L15").Value = Range("L6"): ActiveSheet.Range("L17").Value = i: ActiveSheet.Range("L18").Value = j: ActiveSheet.Range("L19").Value = k
 
    Next: Next: Next
End Sub

шаги нецелые против ошибки в точке -1 1 -1
или нужны формулы вида
=ЕСЛИОШИБКА((J329^2)/(C329^2);0)

но неясно достигается ли значение

зато впервые в теме циклы перебирают значения 3-ёх переменных
и остаётся сформулировать условие оптимальности

[Serge_Bliznykov]

Сообщение от сфинкс

у меня работает макрос

так работает ли?

если

Сообщение от сфинкс

неясно достигается ли значение

непонятно, достигается ли нужное значение?!

правильный ответ уже дан MCH выше.
нужно просто искать максимум в L6
можно без макроса, используя встроенный механизм - "Поиск решения".