Excel VBA编程典型实例——银行贷款计算器
假如贷款买了一套房，如何通过更改贷款总额和还款年数，来快速的计算每月偿还贷款金额。为了快速计算出这一结果，下面通过运用控件及代码，来制作一个“银行贷款计算器”。
1．练习要点
●控件的应用
●代码的输入
2．操作步骤：
（1）新建一个空白工作簿，重命名Sheet1工作表标签名称为“计算器”文字。然后，在该工作表中，创建“银行贷款计算器”表格，如图10-17所示。
创建表格
重命名
图10-17 银行贷款计算器
（2）选择【开发工具】选项卡，单击【控件】组中的【插入】下拉按钮，在【ActiveX 控件】栏中，选择【命令控件】按钮。然后，在工作表中，绘制该控件，如图10-18所示。
绘制控件选择
图10-18 绘制“命令控件”按钮
（3）选择绘制的控件按钮，在【控件】组中，单击【属性】按钮。然后，在弹出的【属性】对话框中，设置Caption 属性为“计算”，效果如图10-19所示。
图10-19 更改控件名称
（4）右击“命令按钮”控件，执行【查看代码】命令。然后，将进入VBE 窗口，并同时弹出代码编辑窗口，在该窗口中，输入如图10-20所示的代码
图10-20 输入代码
其中，输入的代码如下： Private Sub CommandButton1_Click()
'调用计算子过程
Call 计算
End Sub
（5）运用相同的方法，绘制一个控件按钮，并重命名为“清除数据”。然后，右击该控件按钮，执行【查看代码】命令，在弹出的代码编辑窗口中，输入如图10-21所示的代码。
图10-21 输入代码
其中，在代码编辑窗口中，输入的代码如下： Private Sub CommandButton2_Click()
'调用清除数据子过程
Call 清除数据 End Sub
输入 单击 效果 输入 执行 效果 输入
（5）进入VBE 窗口，右击【工程管理器】窗口的空白处，执行【插入】|【模块】命令，如图10-22所示。
图10-22 插入模块
提
示 选择【开发工具】选项卡，单击【代码】组中的Visual Basic 按钮，即可进入VBE 窗口。
技 巧 在VBE 窗口中，执行【插入】|【模块】命令，也可以插入一个模块。
（6）在模块1代码编辑窗口中，输入如图10-23所示的代码。
图10-23 输入代码其中，在该窗口中，输入的代码如下：
Sub 清除数据()
Range("6:65536").Clear
End Sub
Sub 计算()
'定义变量(a 是总额，b 是期数，c 是月利率，i 是月次)
If [count(a3:f3)] = 3 Then
Dim i As Integer, b As Byte, a, c, m, n, o As Single
执行
插入
'等额本息月还款额
a = Cells(3, 1) * 10000:
b = Cells(3, 3) * 12:
c = Cells(3, 5) / 12
m = -Pmt(c, b, a)
n = a / b
'等额本金月还款额
For i = 1 To b
Cells(i + 5, 1) = i
Cells(i + 5, 2) = m
Cells(i + 5, 3) = -PPmt(c, i, b, a)
Cells(i + 5, 4) = m - Cells(i + 5, 3)
'每月剩余本金
o = a - (i - 1) * n
Cells(i + 5, 6) = n
Cells(i + 5, 7) = o * c
Cells(i + 5, 5) = Cells(i + 5, 6) + Cells(i + 5, 7)
Next i
Cells(b + 6, 1) = "总计"
For i = 2 To 7
Cells(b + 6, i) = Application.WorksheetFunction.Sum(Range(Cells(6, i), Cells(b + 5, i))) Next i
Range(Cells(6, 2), Cells(b + 6, "g")).NumberFormatLocal = "￥#,##0.00;￥-#,##0.00" Range("a5:a" & (b + 6)).HorizontalAlignment = xlCenter
Range(Cells(6, "a"), Cells(b + 5, "g")).Borders.LineStyle = xlContinuous
End If
End Sub
（7）返回“计算器”工作表，并单击【计算】按钮，即可计算出等额本息还款和等额本金还款金额，如图10-24所示。
图10-24 计算还款金额
提 示 单击【清除数据】按钮，即可清除工作表中的数据。
（8）单击Office 按钮，执行【打印】|【打印预览】命令，即可查看计算器的制作效果。 单击
效果