Ecel VBA编程 典型实例——银行贷款计算器.docxVIP

Excel VBA 编程 典型实例——银行贷款计算器 假如贷款买了一套房，如何通过更改贷款总额和还款年数，来快速的计算每月偿还贷款金额。为了快速计算出这一结果，下面通过运用控件及代码，来制作一个“银行贷款计算器”。 练习要点 控件的应用 代码的输入 操作步骤： 创建表格重命名新建一个空白工作簿，重命名 Sheet1 工作表标签名称为“计算器”文字。然后，在该工作表中，创建“银行贷款计算器”表格，如图10-17 创建表格 重命名 图 10-17 银行贷款计算器 绘制控件选择选择【开发工具】选项卡，单击【控件】组中的【插入】下拉按钮，在【 ActiveX控件】栏中，选择【命令控件】按钮。然后，在工作表中，绘制该控件， 如图10-18 绘制控件 选择 图 10-18 绘制“命令控件”按钮 单击输入效果选择绘制的控件按钮，在【控件】组中，单击【属性】按钮。然后，在弹出的【属性】对话框中，设置 Caption 属性为“计算”，效果如图 10-19 单击 输入 效果 图 10-19 更改控件名称 输入执行右击“命令按钮”控件，执行【查看代码】命令。然后，将进入 VBE 窗口， 并同时弹出代码编辑窗口，在该窗口中，输入如图10-20 输入 执行 图 10-20 输入代码 其中，输入的代码如下： Private Sub CommandButton1_Click() Private Sub CommandButton1_Click() 调用计算子过程 Call 计算 End Sub 输入效果运用相同的方法，绘制一个控件按钮，并重命名为“清除数据”。然后，右击该控件按钮，执行【查看代码】命令，在弹出的代码编辑窗口中，输入如图 10-21 输入 效果 图 10-21 输入代码 其中，在代码编辑窗口中，输入的代码如下： Private Sub CommandButton2_Click() Private Sub CommandButton2_Click() 调用清除数据子过程 Call 清除数据 End Sub 进入 VBE 窗口，右击【工程管理器】窗口的空白处，执行【插入】|【模块】命令，如图 10-22 所示。 插入执行插入图 插入 执行 插入 选择【开发工具】选项卡，单击【代码】组中的Visual Basic 选择【开发工具】选项卡，单击【代码】组中的Visual Basic 按钮，即可进入VBE 窗口。 提 示 在 VBE 窗口中，执行【插入】|【模块】命令，也可以插入一个模块。 技 巧 在模块 1 代码编辑窗口中，输入如图 10-23 所示的代码。 图 10-23 输入代码其中，在该窗口中，输入的代码如下： Sub 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