Подбор параметра для нахождения минимального положит. значен

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подбор параметра для нахождения минимального положит. значен (Макросы/Sub)

Anton1013

Дата: Четверг, 25.05.2017, 15:03 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 203

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день форумчане!

Столкнулся со следующей проблемой: нужно найти такое значение, при котором увеличение срока периодов будет давать минимальное положительное значение для расчета NPV (функция ЧПС).

По прилагаемому примеру:
В ячейку C6 нужно последовательно подставлять положительные значения (1,2,3,4,5,6....) до того момента пока в ячейке C13 остается положительное число. Решение в примере число 5. Как понимаю функцией это сделать вообще нереально, есть ли решение через VBA?

К сообщению приложен файл: 8680294.xlsm (13.1 Kb)

Никогда не поздно научиться!

Ответить

Udik

Дата: Четверг, 25.05.2017, 16:00 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

Есть такой штатный инструмент Поиск решения. Но сейчас чего-то не могу его настроить. Попробуйте задать вопрос именно по нему. На ВБА можно, конечно, написать под ваш пример код, но есть же вариант для лентяев

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Ответить

sboy

Дата: Четверг, 25.05.2017, 16:14 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
если интересует именно ВБА, то вот так [vba]

Код

Sub Подбор()
For x = 1 To 100 ' может быть в теории больше 100?
    [C6].Value = x
    If [C13].Value <= 0 Then
        [C6].Value = x - 1
        Exit For
    End If
Next x
End Sub

[/vba]