[ddtz]

Подскажите, знающие люди, решение вопроса по возможности.
была похожая тема, но не совсем похожа http://forum.dwg.ru/showthread.php?t=20838

Вопрос: Найти значение ячейки А удовлетворяющее условию В = С, где "В" должно подстраиваться под "С", при этом ячейка "С" независима и периодически может меняться.

вообщем на первый взгляд вроде все просто, есть три ячейки А,В и С из которых "С" независимая, а
значение в ячейке "В" меняется взависимости от перебора значений в ячейке "А".
Но вот беда ячейка "А" связана с ячейкой "В" не линейно т.е. задать типа ((A*B) = C) не получается.

Есть вот такой код (отдельная благодарность Олег (jr.)), но в нем ячейка "А" линейно зависима, помогите преобразовать кто понимает

Код:

[Выделить все]

Sub testiteration()
Application.Volatile True
Dim a, b, c,  As Double
Dim condition As Boolean

b = CDbl(Worksheets("1").Range("g5"))
c = Worksheets("1").Range("h5")

Dim step, start, epsilon As Double
step = 0.00000001
start = 0.00000001
epsilon = 0.00000001

Dim i As Long
i = 0
a = start
Do
a = a + step
condition = ((a * b) < (c - epsilon))
If condition = False Then
Exit Do
End If
Loop Until condition = False
With Sheets("1").Range("a8") = a
End With

MsgBox "Done"
End Sub

[Кулик Алексей aka kpblc]

А стандартный "подбор параметра" не подойдет?
По основному вопросу: замени .Range на .Cells - тогда получишь варианты намного более гибкие. Правда, немного поковыряться придется...

[ddtz]

Кулик Алексей aka kpblc, разово, конечно, через подбор параметра результат можно получить, но значение в ячейке "С" может измениться в любой не подходящий момент, и тогда вся картина искажается до нового подбора параметра, это получается надо мониторить в ручную, вернее "вглазную" - а глаза жалко да и эффекта мало (
Вот если можно бы было привязать этот подбор параметра не к подбору Мax, Min или конкретного Значения, а к подбору значения из ячейки "С" и запускать его из макроса тогда - Да, вот только как привязать к ячейке "С"?
На счет .Range на .Cells поменять - чет не пойму как это может помочь?

[Кулик Алексей aka kpblc]

.Cells позволит привязываться к любым ячейкам.
P.S. Приложи файл xls с конкретным примером и описанием закона зависимостей А .. В .. С. А то как-то не очень все понятно (по крайней мере, лично мне).

[KronSerg]

Посмотри:

Код:

[Выделить все]

Sub Расчет()
On Error Resume Next
For i = 1 To 400
j = Cells(i, 2)
Cells(i, 1).GoalSeek Goal:=j, ChangingCell:=Cells(i, 3)
Next i
End Sub

Может это ты хотел?