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

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

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

3、，绘制一个控件按钮，并重命名为“清除数据”。然后，右击该控件按钮，执行【查看代码】命令，在弹出的代码编辑窗口中，输入如图10-21所示的代码。输入效果图10-21 输入代码其中，在代码编辑窗口中，输入的代码如下：Private Sub CommandButton2_Click()'调用清除数据子过程Call 清除数据End Sub专心-专注-专业（5）进入VBE窗口，右击【工程管理器】窗口的空白处，执行【插入】|【模块】命令，如图10-22所示。插入插入执行图10-22 插入模块提 示选择【开发工具】选项卡，单击【代码】组中的Visual Basic按钮，即可进入VBE窗口。技 巧在V

4、BE窗口中，执行【插入】|【模块】命令，也可以插入一个模块。（6）在模块1代码编辑窗口中，输入如图10-23所示的代码。图10-23 输入代码其中，在该窗口中，输入的代码如下：Sub 清除数据()Range("6:65536").ClearEnd SubSub 计算()'定义变量(a是总额，b是期数，c是月利率，i是月次)If count(a3:f3) = 3 ThenDim i As Integer, b As Byte, a, c, m, n, o As Single'等额本息月还款额a = Cells(3, 1) * 10000: b = Cells(

5、3, 3) * 12: c = Cells(3, 5) / 12m = -Pmt(c, b, a)n = a / b'等额本金月还款额For i = 1 To bCells(i + 5, 1) = iCells(i + 5, 2) = mCells(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)

6、 + Cells(i + 5, 7)Next iCells(b + 6, 1) = "总计"For i = 2 To 7Cells(b + 6, i) = Application.WorksheetFunction.Sum(Range(Cells(6, i), Cells(b + 5, i)Next iRange(Cells(6, 2), Cells(b + 6, "g").NumberFormatLocal = "￥#,#0.00;￥-#,#0.00"Range("a5:a" & (b + 6).HorizontalAlignment = xlCenterRange(Cells(6, "a"), Cells(b + 5, "g").Borders.LineStyle = xlContinuousEnd IfEnd Sub（7）返回“计算器”工作表，并单击【计算】按钮，即可计算出等额本息还款和等额