ExcelVBA编程典型实例——计算月还款金额

1、Excel VBA编程 典型实例计算月还款金额本例模拟计算器的外型，使用VBA中的内置的财务函数pmt（该函数是基于固定利率及等额分期付款方式，返回贷款的每期付款额），来制作一个“计算月还款金额”的计算器。1练习要点l 图片的应用l 艺术字的应用l 控件的应用l 调用Pmt函数2操作步骤：（1）新建一张空白的工作簿，并选择【插入】选项卡，单击【插图】组中的【图片】按钮。然后，在弹出的【插入图片】对话框中，选择合适的图片进行插入，如图9-11所示。选择单击图9-11 插入图片提 示单击【插入图片】对话框中的【插入】按钮，即可将图片插入到工作表中。提 示如果插入到工作表中的图片的大小需要改变，可以

2、选择图片，将鼠标置于控制点上，当光标变成“双向”箭头时拖动即可调整图片大小。（2）选择【插入】选项卡，单击【文本】组中的【艺术字】下拉按钮，选择“填充-强调文字颜色左，暖色粗糙棱台”项。然后，更改艺术字文字为“月来款金额”，如图9-12所示。选择输入图9-12 插入艺术字（3）选择“月还额金额”文字，并在【字体】组中，设置【字体】为“华文新魏”；【字号】为28；【字体颜色】为“黄色”，效果如图9-13所示。设置图9-13 设置字体格式（4）选择【开发工具】选项卡，单击【代码】组中的【插入】下拉按钮，选择【ActiveX控件】栏中的【命令控件（ActiveX控件）】按钮。然后，在图片上方绘制一个

3、“命令控件”按钮，如图9-14所示。绘制选择图9-14 绘制“命令控件”按钮（5）选择“命令控件”按钮，在【属性】对话框中，设置控件的BackColor为“绿色”；Caption为“计算”；并设置其控件中的字体格式，如图9-15所示。设置效果图9-15 设置控件格式提 示选择【开发工具】选项卡，单击【控件】组中的【属性】按钮，即可弹出【属性】对话框。提 示单击【属性】对话框中的Font选项后面的【浏览】按钮。然后，在弹出的【字体】对话框中，设置【字体】为“华文新魏”；【字号】为“小二”。（6）单击【控件】组中的【插入】下拉按钮，选择【ActiveX控件】栏中的【文本框（ActiveX控件）】按

4、钮。然后，在图片上方绘制一个“文本框”控件，如图9-16所示。单击绘制图9-16 绘制“文本框”控件（7）选择绘制的“文本框”控件，然后，打开【属性】对话框。设置【字体】为Times New Roman；【字号】为“小三”。（8）选择“文本框”控件按钮，在【属性】对话框中，设置BackColor为“非活动边框”，如图9-17所示。效果绘制选择选择图9-17 设置“文本框”控件属性（8）双击图片上方的“计算”控件按钮。然后，在弹出的代码编辑窗口中，输入如图9-17所示的代码。输入图9-17 输入代码Private Sub CommandButton1_Click()声明变量Static loan

5、AmtStatic loanIntStatic loanTermloanAmt = Application.InputBox _ (Prompt:=输入贷款总额(100,000 for example), _ Default:=loanAmt, Type:=1)loanInt = Application.InputBox _ (Prompt:=输入贷款年利率(8.75 for example), _ Default:=loanInt, Type:=1)loanTerm = Application.InputBox _ (Prompt:=输入货款年限 (30 for example), _ De

6、fault:=loanTerm, Type:=1)调用Pmt函数payment = Application.WorksheetFunction _ .Pmt(loanInt / 1200, loanTerm * 12, loanAmt)TextBox1.Value = Format(payment, Currency)End Sub（9）单击【控件】组中的【设计模式】按钮，即可取消设计模式。（10）单击“计算”控件按钮，然后在弹出的【输入】对话框中，输入贷款总额为525000，如图9-18所示。显示输入图9-18 输入贷款金额（11）在【输入】对话框中，输入贷款年利率为5.6，如图9-19所示。图9-19 输入贷款年利率（12）在【输入】对话框中，输入贷款年限为10，如图9-20所示。图9-20 输入贷款年限（13）单击【输入】对话框中的【确定】按钮，