Excel-VBA编程--典型实例——计算月还款金额.doc

《Excel-VBA编程--典型实例——计算月还款金额.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、ExcelVBA编程典型实例——计算月还款金额本例模拟计算器的外型，使用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控件】

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

4、）单击【控件】组中的【插入】下拉按钮，选择【ActiveX控件】栏中的【文本框（ActiveX控件）】按钮。然后，在图片上方绘制一个“文本框”控件，如图9-16所示。单击绘制图9-16绘制“文本框”控件（7）选择绘制的“文本框”控件，然后，打开【属性】对话框。设置【字体】为TimesNewRoman；【字号】为“小三”。（8）选择“文本框”控件按钮，在【属性】对话框中，设置BackColor为“非活动边框”，如图9-17所示。效果绘制选择选择图9-17设置“文本框”控件属性（8）双击图片上方的“计算”控件按钮。然后，在弹出的代码编辑窗口中，输入如图9-

5、17所示的代码。输入图9-17输入代码PrivateSubCommandButton1_Click()'声明变量StaticloanAmtStaticloanIntStaticloanTermloanAmt=Application.InputBox_(Prompt:="输入贷款总额(100,000forexample)",_Default:=loanAmt,Type:=1)loanInt=Application.InputBox_(Prompt:="输入贷款年利率(8.75forexample)",_Default:=loanInt,Type:=1)l

6、oanTerm=Application.InputBox_(Prompt:="输入货款年限(30forexample)",_Default:=loanTerm,Type:=1)'调用Pmt函数payment=Application.WorksheetFunction_.Pmt(loanInt/1200,loanTerm*12,loanAmt)TextBox1.Value=Format(payment,"Currency")EndSub（9）单击【控件】组中的【设计模式】按钮，即可取消设计模式。（10）单击“计算”控件按钮，然后在弹出的【输入】对话框中，

7、输入贷款总额为，如图9-18所示。显示输入图9-18输入贷款金额（11）在【输入】对话框中，输入贷款年利率为5.6，如图9-19所示。图9-19输入贷款年利率（12）在【输入】对话框中，输入贷款年限为10，如图9-20所示。图9-20输入贷款年限（13）单击【输入】对话框中的【确定】按钮，即可在图片的上方显示出计算结果，效果如图9-21所示。图9-21显示计算结果提示用户可以根据实际情况，在【输入】对话框中，输入不同的贷款总额，年利率和贷款年限的值，从而得到不同的贷款月偿还额。