基于VBA的住房贷款规划模型设计与实现

　　［摘 要］ 本文利用Excel中的VBA功能，设计住房贷款规划模型。利用所设计模型，在输入贷款额、期限和利率后，可计算等额本息还款法或等额本金还款法各期的还款额、还款额中的本金部分和利息部分、累计还款本金、累计还款利息。利用该模型，还可以计算提前还贷情况下，已经偿还的本金、尚未偿还的本金、提前还款后每期还款额、还款本金及利息。 www.17net.net cctv论文发表Eo)]#K i%\~"Tb|$n
　　［关键词］ 住房贷款模型；等额本金还款法；等额本息还款法 cctv论文发表Y6UuR1o _
　
T.Y
@!Ej#c1k&T l0　　随着家庭财富的不断积累，个人理财逐渐被更多的家庭所接受与关注。虽然在政府一系列调控措施下房屋投资性需求被抑制，但房屋的刚性需求仍然很强。基于房贷政策的进一步缩紧，如何设计房贷，成为许多家庭理财的一个重要方面。金融机构提供的住房贷款期限、利率、还偿方式等各不相同，存在许多可选择的方案，如何简便计算，成为一种迫切的需求。本文结合等额本息、等额本金两种方式，基于ＶＢＡ设计还贷模型，解决不同还贷方案的测算，以及各影响中因素变化后，对还款额的影响。
tu I&g3b2z0　　
Ua {a
AS;Ha0　　一、还贷方法介绍 　　 cctv论文发表[
KhocD
　　住房贷款的规划涉及贷款额度、贷款期限、贷款利率、还款方式、提前还贷、利率变动、延期还款等因素。住房贷款一般金额较大，如果期限太长，借款人需要支付较多的利息；若期限太短，则每期还款额高，可能使借款人陷入财务危机，所以借款人应制定合理的还款方式，这样，选择不同的还款方式，计算相应的每期还款额，并考虑提前还贷或延期还款等情况，做好还款规划，既可以偿还债务又合理分配各期的债务负担。在计算各期还款额时，常用的方法是等额本息还款法与等额本金还款法。等额本息还款法是指在贷款期限内每月以相等的金额平均偿还贷款本金和利息的还款方法。其计算公式如下： cctv论文发表9BJZ&V2Pf8x N
　　２．系统实现 cctv论文发表T~e%h.B,A
_
　　在基本数据区域中输入贷款额、期限和利率，并在等额本息或等额本金区域中输入要计算的期数，单击计算按钮，就可以计算出两种方法下的该月还款额、其中的本金与利息，到该月为止已经偿还的本金合计和利息合计。
R?FU.CA*M\0　　 计算按钮的代码如下：
f-P Ll$R0dz0　　 Ｐｒｉｖａｔｅ Ｓｕｂ ＣｏｍｍａｎｄＢｕｔｔｏｎ１＿Ｃｌｉｃｋ（）
?+j3g3z/VCZW0　　Ｄｉｍ ｂｊ Ａｓ Ｓｉｎｇｌｅ， ｌｘ Ａｓ Ｓｉｎｇｌｅ， ｂｊｈｊ Ａｓ Ｓｉｎｇｌｅ， ｌｘｈｊ Ａｓ Ｓｉｎｇｌｅ cctv论文发表`,K9FJ/R#Wx
　　ＴｅｘｔＢｏｘ４．ＳｅｔＦｏｃｕｓ cctv论文发表rQ(r&r7{XZ ?b9k
　　ＴｅｘｔＢｏｘ７ ＝ Ｒｏｕｎｄ（Ｐｍｔ（利率 ／ １２， 期限， －贷款额， ， １）， ２） cctv论文发表,oQa1{@4\
　　Ｃａｌｌ ａｂｃ（Ｖａｌ（ＴｅｘｔＢｏｘ４．Ｖａｌｕｅ）， ｂｊ， ｌｘ， ｂｊｈｊ， ｌｘｈｊ）
E-c'Uo5O*o!A0　　ＴｅｘｔＢｏｘ５ ＝ ｂｊ cctv论文发表,o8h v$`.Hgmv4w L$A
　　ＴｅｘｔＢｏｘ６ ＝ ｌｘ cctv论文发表TMx~[w}q
　　ＴｅｘｔＢｏｘ８ ＝ ｂｊｈｊ cctv论文发表T1?e/W[u
　　ＴｅｘｔＢｏｘ９ ＝ ｌｘｈｊ
5[,E\ C"p&yZ s0　　ｂｊ ＝ ０： ｌｘ ＝ ０： ｂｊｈｊ ＝ ０： ｌｘｈｊ ＝ ０ cctv论文发表|Y+r;RF5kJ;n
　　Ｃａｌｌ ｃｄｅ（Ｖａｌ（ＴｅｘｔＢｏｘ４．Ｖａｌｕｅ）， ｂｊ， ｌｘ， ｂｊｈｊ， ｌｘｈｊ）
5r#Ey%i5v%|7_0　　ＴｅｘｔＢｏｘ１１ ＝ ｂｊ
;e(jg
qk)k,g0E0　　ＴｅｘｔＢｏｘ１２ ＝ ｌｘ cctv论文发表(@5HG;_nS"~7sG,g
　　ＴｅｘｔＢｏｘ１４ ＝ ｂｊｈｊ cctv论文发表4p9zEOmf X5x'RD
　　ＴｅｘｔＢｏｘ１５ ＝ ｌｘｈｊ cctv论文发表M}x*`B/a:RN%O
　　ＴｅｘｔＢｏｘ１３ ＝ ｌｘ ＋ ｂｊ cctv论文发表A4r h$N|Q
　　Ｅｎｄ Ｓｕｂ
Oj|*i}@0　　等额本息的计算过程代码： cctv论文发表$BI\,@l%\-L%}
　　Ｐｒｉｖａｔｅ Ｓｕｂ ａｂｃ（ａ Ａｓ Ｉｎｔｅｇｅｒ， ｂｊ Ａｓ Ｓｉｎｇｌｅ， ｌｘ Ａｓ Ｓｉｎｇｌｅ， ｂｊｈｊ Ａｓ Ｓｉｎｇｌｅ， ｌｘｈｊ Ａｓ Ｓｉｎｇｌｅ）
+Xu8}#S%B
P)Qp[o/|0　　ｂｊｈｊ ＝ ０： ｌｘｈｊ ＝ ０
R#^,l Oi)IO0　　Ｆｏｒ ｉ ＝ １ Ｔｏ ａ cctv论文发表1R6y#~p$j9E
　　ｌｘ ＝ （贷款额 － ｂｊｈｊ）*利率 ／ １２ cctv论文发表8r f)guN? `9??-a+Dg
　　ｂｊ ＝ ＴｅｘｔＢｏｘ７．Ｖａｌｕｅ － ｌｘ cctv论文发表!hDk*J s/ezQ
　　ｂｊｈｊ ＝ ｂｊｈｊ ＋ ｂｊ cctv论文发表{a9V
Yt0N
^x9G1}
　　ｌｘｈｊ ＝ ｌｘｈｊ ＋ ｌｘ cctv论文发表%an*zP z(_
　　Ｎｅｘｔ ｉ
;s9F
x3Rn3e{y N0　　 Ｅｎｄ Ｓｕｂ
H*CoP)@4b6|~&M\0　　等额本金的计算过程代码： cctv论文发表!V@a2Y*J7h!H
　　Ｐｒｉｖａｔｅ Ｓｕｂ ｃｄｅ（ａ Ａｓ Ｉｎｔｅｇｅｒ， ｂｊ Ａｓ Ｓｉｎｇｌｅ， ｌｘ Ａｓ Ｓｉｎｇｌｅ， ｂｊｈｊ Ａｓ Ｓｉｎｇｌｅ， ｌｘｈｊ Ａｓ Ｓｉｎｇｌｅ）
1a0O$[up&w-?3~9o0Nu0　　ｂｊｈｊ ＝ ０： ｌｘｈｊ ＝ ０ cctv论文发表S2vUG$f9m'i'OZ
　　Ｆｏｒ ｉ ＝ １ Ｔｏ ａ cctv论文发表u;W@]9QiNr's
　　ｂｊ ＝ 贷款额 ／ 期限
"B'{9[HM+N+pQ Yr0　　ｌｘ ＝ （贷款额 － ｂｊｈｊ） * 利率 ／ １２

X:a:S0p
u'pMe(V0　　ｂｊｈｊ ＝ ｂｊｈｊ ＋ ｂｊ cctv论文发表N)O,vp*n
　　ｌｘｈｊ ＝ ｌｘｈｊ ＋ ｌｘ cctv论文发表3w/o)b;Z4Y*X|}-t'E)t
　　Ｎｅｘｔ ｉ cctv论文发表%Hl1lhQQx0L.^
　　 Ｅｎｄ Ｓｕｂ cctv论文发表@6c y&g-c c
　　五、总结 cctv论文发表:mE7d"W'V)P3B
　　利用ＶＢＡ设计的住房贷款规划模型，在输入贷款额、贷款期和利率的情况下，可计算出需要的某月份在两种不同偿还方式下的该月还款额、其中的本金部分与利息，以及到该月为止，已经偿还的本金合计、利息合计，方便进行住房贷款决策。 cctv论文发表l,d_zw7CX!@l#v7ba
　　 cctv论文发表6kN[c'}AF,m.\sg@
　　主要参考文献 　
i4D0OR9F;@#d7A0　　［１］中国就业培训技术指导中心．助理理财规划师专业能力［Ｍ］．北京：中国财政经济出版社，２００6. cctv论文发表GdI3Rmm @u0?J
　　［２］杜亚斌． 金融建模：使用Ｅｘｃｅｌ和ＶＢＡ［Ｍ］． 北京：机械工业出版社，２０１０. cctv论文发表E,kvmc N
cctv论文发表(E8|c6E;~$PI!L{