Excel-VBA编程--典型实例——银行贷款计算器.doc

《Excel-VBA编程--典型实例——银行贷款计算器.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、ExcelVBA编程典型实例——银行贷款计算器假如贷款买了一套房，如何通过更改贷款总额和还款年数，来快速的计算每月偿还贷款金额。为了快速计算出这一结果，下面通过运用控件及代码，来制作一个“银行贷款计算器”。1．练习要点l控件的应用l代码的输入2．操作步骤：（1）新建一个空白工作簿，重命名Sheet1工作表标签名称为“计算器”文字。然后，在该工作表中，创建“银行贷款计算器”表格，如图10-17所示。创建表格重命名图10-17银行贷款计算器（2）选择【开发工具】选项卡，单击【控件】组中的【插入】下拉按钮，在【ActiveX控件】栏中，选择【命令控件】按钮。然后，在工作表中，绘制该控件，如图10-

2、18所示。选择绘制控件图10-18绘制“命令控件”按钮（3）选择绘制的控件按钮，在【控件】组中，单击【属性】按钮。然后，在弹出的【属性】对话框中，设置Caption属性为“计算”，效果如图10-19所示。效果单击输入图10-19更改控件名称（4）右击“命令按钮”控件，执行【查看代码】命令。然后，将进入VBE窗口，并同时弹出代码编辑窗口，在该窗口中，输入如图10-20所示的代码执行输入图10-20输入代码其中，输入的代码如下：PrivateSubCommandButton1_Click()'调用计算子过程Call计算EndSub（5）运用相同的方法，绘制一个控件按钮，并重命名为“清除数据”。然

3、后，右击该控件按钮，执行【查看代码】命令，在弹出的代码编辑窗口中，输入如图10-21所示的代码。输入效果图10-21输入代码其中，在代码编辑窗口中，输入的代码如下：PrivateSubCommandButton2_Click()'调用清除数据子过程Call清除数据EndSub（5）进入VBE窗口，右击【工程管理器】窗口的空白处，执行【插入】

4、【模块】命令，如图10-22所示。插入插入执行图10-22插入模块提示选择【开发工具】选项卡，单击【代码】组中的VisualBasic按钮，即可进入VBE窗口。技巧在VBE窗口中，执行【插入】

5、【模块】命令，也可以插入一个模块。（6）在模块1代码编辑窗口

6、中，输入如图10-23所示的代码。图10-23输入代码其中，在该窗口中，输入的代码如下：Sub清除数据()Range("6:65536").ClearEndSubSub计算()'定义变量(a是总额，b是期数，c是月利率，i是月次)If[count(a3:f3)]=3ThenDimiAsInteger,bAsByte,a,c,m,n,oAsSingle'等额本息月还款额a=Cells(3,1)*10000:b=Cells(3,3)*12:c=Cells(3,5)/12m=-Pmt(c,b,a)n=a/b'等额本金月还款额Fori=1TobCells(i+5,1)=iCells(i+5,2)=m

7、Cells(i+5,3)=-PPmt(c,i,b,a)Cells(i+5,4)=m-Cells(i+5,3)'每月剩余本金o=a-(i-1)*nCells(i+5,6)=nCells(i+5,7)=o*cCells(i+5,5)=Cells(i+5,6)+Cells(i+5,7)NextiCells(b+6,1)="总计"Fori=2To7Cells(b+6,i)=Application.WorksheetFunction.Sum(Range(Cells(6,i),Cells(b+5,i)))NextiRange(Cells(6,2),Cells(b+6,"g")).NumberFormat

8、Local="￥#,##0.00;￥-#,##0.00"Range("a5:a"&(b+6)).HorizontalAlignment=xlCenterRange(Cells(6,"a"),Cells(b+5,"g")).Borders.LineStyle=xlContinuousEndIfEndSub（7）返回“计算器”工作表，并单击【计算】按钮，即可计算出等额本息还款和等额本金还款金额，如图10-24所示。效果单击图10-24计算还款金额提示单击【清除数据】按钮，即可清除工作表中的数据。（8）单击Office按钮，执行【打印】

9、【打印预览】命令，即可查看计算器的制作效果。