基于VBA的住房贷款规划模型设计与实现
开篇：润墨网以专业的文秘视角，为您筛选了一篇基于VBA的住房贷款规划模型设计与实现范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！
［摘 要］ 本文利用excel中的vba功能，设计住房贷款规划模型。利用所设计模型，在输入贷款额、期限和利率后，可计算等额本息还款法或等额本金还款法各期的还款额、还款额中的本金部分和利息部分、累计还款本金、累计还款利息。利用该模型，还可以计算提前还贷情况下，已经偿还的本金、尚未偿还的本金、提前还款后每期还款额、还款本金及利息。
［关键词］ 住房贷款模型；等额本金还款法；等额本息还款法
随着家庭财富的不断积累，个人理财逐渐被更多的家庭所接受与关注。虽然在政府一系列调控措施下房屋投资性需求被抑制，但房屋的刚性需求仍然很强。基于房贷政策的进一步缩紧，如何设计房贷，成为许多家庭理财的一个重要方面。金融机构提供的住房贷款期限、利率、还偿方式等各不相同，存在许多可选择的方案，如何简便计算，成为一种迫切的需求。本文结合等额本息、等额本金两种方式，基于vba设计还贷模型，解决不同还贷方案的测算，以及各影响中因素变化后，对还款额的影响。
一、还贷方法介绍
住房贷款的规划涉及贷款额度、贷款期限、贷款利率、还款方式、提前还贷、利率变动、延期还款等因素。住房贷款一般金额较大，如果期限太长，借款人需要支付较多的利息；若期限太短，则每期还款额高，可能使借款人陷入财务危机，所以借款人应制定合理的还款方式，这样，选择不同的还款方式，计算相应的每期还款额，并考虑提前还贷或延期还款等情况，做好还款规划，既可以偿还债务又合理分配各期的债务负担。在计算各期还款额时，常用的方法是等额本息还款法与等额本金还款法。等额本息还款法是指在贷款期限内每月以相等的金额平均偿还贷款本金和利息的还款方法。其计算公式如下：
2．系统实现
在基本数据区域中输入贷款额、期限和利率，并在等额本息或等额本金区域中输入要计算的期数，单击计算按钮，就可以计算出两种方法下的该月还款额、其中的本金与利息，到该月为止已经偿还的本金合计和利息合计。
计算按钮的代码如下：
private sub commandbutton1＿click（）
dim bj as single， lx as single， bjhj as single， lxhj as single
textbox4．setfocus
textbox7 ＝ round（pmt（利率 ／ 12， 期限， －贷款额， ， 1）， 2）
call abc（val（textbox4．value）， bj， lx， bjhj， lxhj）
textbox5 ＝ bj
textbox6 ＝ lx
textbox8 ＝ bjhj
textbox9 ＝ lxhj
bj ＝ 0： lx ＝ 0： bjhj ＝ 0： lxhj ＝ 0
call cde（val（textbox4．value）， bj， lx， bjhj， lxhj）
textbox11 ＝ bj
textbox12 ＝ lx
textbox14 ＝ bjhj
textbox15 ＝ lxhj
textbox13 ＝ lx ＋ bj
end sub
等额本息的计算过程代码：
private sub abc（a as integer， bj as single， lx as single， bjhj as single， lxhj as single）
bjhj ＝ 0： lxhj ＝ 0
for i ＝ 1 to a
lx ＝ （贷款额 － bjhj）*利率 ／ 12
bj ＝ textbox7．value － lx
bjhj ＝ bjhj ＋ bj
lxhj ＝ lxhj ＋ lx
next i
end sub
等额本金的计算过程代码：
private sub cde（a as integer， bj as single， lx as single， bjhj as single， lxhj as single）
bjhj ＝ 0： lxhj ＝ 0
for i ＝ 1 to a
bj ＝ 贷款额 ／ 期限
lx ＝ （贷款额 － bjhj） * 利率 ／ 12
bjhj ＝ bjhj ＋ bj
lxhj ＝ lxhj ＋ lx
next i
end sub
五、总结
利用vba设计的住房贷款规划模型，在输入贷款额、贷款期和利率的情况下，可计算出需要的某月份在两种不同偿还方式下的该月还款额、其中的本金部分与利息，以及到该月为止，已经偿还的本金合计、利息合计，方便进行住房贷款决策。
主要参考文献
［1］中国就业培训技术指导中心．助理理财规划师专业能力［m］．北京：中国财政经济出版社，2006.
［2］杜亚斌． 金融建模：使用excel和vba［m］． 北京：机械工业出版社，2010.