Excel VBA编程 典型实例——银行贷款计算器
- 格式:doc
- 大小:298.56 KB
- 文档页数:5
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按钮,执行【打印】|【打印预览】命令,即可查看计算器的制作效果。