VBA中的贷款摊销循环

Question

我需要为vba中的贷款池创建一个累积现金流量表，并希望得到一些帮助？

我可以在Excel中创建分期付款计划单贷款，但我需要一些东西来运行贷款000的时间表在一个执行....即

含贷款水平信息的电子表格开始（利率，术语，平衡等）的代码，在电子表格（第一贷款拾取第一行），并运行该贷款的摊销时间表，然后

1. 拾取数据的第二行和运行调度为贷款

2. 贷款2的数据汇总到贷款1，然后在运行调度用于行3点的数据等等等等

最终的结果是对于所有的贷款只是一个聚合的摊销时间表....

我对vba不太热，因此请求帮助。

任何帮助将不胜感激。

非常感谢， 马特

Answer 1

我要寻找从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

正如他们说，如果你想了解轮建设

Answer 2

随着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输入。