Цикл амортизации кредита в VBA

Question

Мне нужно создать сводный график движения денежных средств для пула ссуд в vba, и я надеялся на некоторую помощь ??

Я могу создать графики амортизации в Excel для отдельных ссуд, но мне нужно что-то запуститьграфики для тысяч ссуд в одном исполнении .... Т.е.

Начиная с электронной таблицы, содержащей код информации об уровне ссуды (процентная ставка, срок, баланс и т. д.), который выбирает первую строку в таблице (первый заем)) и запускает график амортизации для этого кредита, а затем

1. выбирает вторую строку данных и запускает график для этого кредита

2. агрегатыданные для ссуды 2 на ссуду 1, а затем запускает график для данных строки 3 и т. д. и т. д.

Конечным результатом является всего один агрегированный график амортизации для всех ссуд ....

Я не слишком горяч на VBA, поэтому прошу о помощи.

Любая помощь будет принята с благодарностью.

Большое спасибо, Мэтт

Answer 1

С такими данными в A1: F4

Term Start Date Rate   Amount    Payment    End Date
30   1/1/2010    5%    120000     $644.19   1/1/2040
20   5/1/2010    5.50%  80000     $550.31   5/1/2030
30   8/1/2010    6%    190000   $1,139.15   8/1/2040

Вы можете создать кумулятивную таблицу амортизации следующим образом

F8:J8 = Date, Payment, Interest, Principle, Balance
F9:F? = 1/1/2010, 2/1/2010, etc..
G9 = {=SUM(($B$2:$B$4<F9)*($F$2:$F$4>=F9)*($E$2:$E$4))}
    copied down
H10 = =-ROUND(SUM(IF(ISERR(IPMT($C$2:$C$4/12,((YEAR(F10)-YEAR(B$2:B$4))*12)+MONTH(F10)-(MONTH(B$2:B$4)),$A$2:$A$4*12,$D$2:$D$4)),0,IPMT($C$2:$C$4/12,((YEAR(F10)-YEAR(B$2:B$4))*12)+MONTH(F10)-(MONTH(B$2:B$4)),$A$2:$A$4*12,$D$2:$D$4))),2)
    copied down
I10 = =G10-H10
    copied down
J9 = {=SUM(($B$2:$B$4=F9)*($D$2:$D$4))}
J10 = {=SUM(($B$2:$B$4=F10)*($D$2:$D$4))+J9-I10}
    copied down

Ясно, как грязь, а? Вы можете скачать мой тестовый лист здесь

http://www.dailydoseofexcel.com/excel/CumAmort.zip

Очевидно, здесь есть некоторые упрощения. Все кредиты выдаются и выплачиваются первого числа месяца и так далее. Эти формулы могут стать немного сложнее, поскольку ваши данные становятся более сложными. Я не ожидаю, что вы сможете подключить свои номера и заставить его работать, но, надеюсь, это начало модели, на которой вы можете построить.

Обратите внимание, что формулы в фигурных скобках являются формулами массива и должны вводиться с помощью клавиш control + shift + enter.

Answer 2

В этом случае я бы хотел держаться подальше от VBA, если не думаю, что он вам понадобится.В Excel есть множество функций для работы с кредитами.

http://www.exceltip.com/st/Formulas_to_calculate_Loan_payments_in_Microsoft_Excel/301.html

http://www.meadinkent.co.uk/excel-loan-repayments.htm

http://www.exceluser.com/tools/termloans.htm

Как говорится, нужно только заново изобретатьколесо, если вы хотите узнать о строительстве колеса