Страницы: 1
RSS
Подбор параметра по ДВУМ критериям, Нужно подобрать параметр, учитывая 2 критерия
 
Добрый день!
Нужно подобрать параметр (цену), учитывая выполнение двух критериев.
Сделать нужно макросом, т.к. много вариантов и расчет производится в цикле.
Хотя как без макроса сделать пока тоже не соображу (по одному критерию только).
На всякий случай пример во вложении (сам расчет большой, в примере оставила только нужные строки).
Заранее спасибо.
 
Честно говоря не понял что там и как у вас считается, но самый простой способ перебором. В примере смотрите макрос. Самый не оптимальный и требующий кучу машинного времени, но работает.
 
Можно ещё "Поиском решения", ТУТ или ТУТ описание как работает
Изменено: Msi2102 - 14.04.2022 16:50:05
 
Msi2102,
я ещё через поиск параметра попробовал, но что то он несколько раз не нашёл, и .. и вот. :)
 
Цитата
написал:
Самый не оптимальный и требующий кучу машинного времени, но работает.
Спасибо за ответ. Дааа..боюсь, куча времени понадобится(( цена от 50 до 250 тыс. может меняться и 10 вариантов еще расчета.
 
Цитата
написал:
Можно ещё "Поиском решения",  ТУТ  или  ТУТ  описание как работает
Спасибо. Буду изучать.
 
Цитата
tutochkin написал:
Честно говоря не понял что там и как у вас считается
Вот и я не понял
Цитата
tutochkin написал:
я ещё через поиск параметра попробовал, но что то он несколько раз не нашёл
В файл пример вникать лень, а то тоже попытался бы :D
 
Цитата
написал:
В файл пример вникать лень, а то тоже попытался бы
Жаль))) вроде всего несколько строчек оставила, старалась максимально прозрачно(((
 
Код
Sub Подобрать()
    Dim yy As Long
    Dim d1 As Double
    Dim d2 As Double
    Dim d3 As Double
    
    For d1 = 49 To 50 Step 0.01
        d3 = 0.7 * [B8].Value
        For d2 = 1 To d3
            [C4].Value = d1
            [B10].Value = d2
            If [B10].Value <= 0.2 * [B5].Value Then
                If Not IsError([B12].Value) Then
                    If Abs([B12].Value - 0.15) < 0.00005 Then
                        MsgBox d1 & vbCrLf & d2
                        Exit Sub
                    End If
                End If
            End If
        Next
    Next
End Sub
 
,Спасибо
Спасибо всем! ,  ,  С использованием всего того, что вы мне тут предложили, я сделала! Спасибооооо!!!!
Страницы: 1
Наверх