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

ExcelVBA编程典型实例——计算月还款金额本例模拟计算器的外型，使用VBA中的内置的财务函数pmt（该函数是基于固定利率及等额分期付款方式，返回贷款的每期付款额），来制作一个“计算月还款金额”的计算器。1．练习要点图片的应用艺术字的应用控件的应用调用Pmt函数2．操作步骤：（1）新建一张空白的工作簿，并选择【插入】选项卡，单击【插图】组中的【图片】按钮。然后，在弹出的【插入图片】对话框中，选择合适的图片进行插入，如图9-11所示。图9-11插入图片单击【插入图片】对话框中的【插入】按钮，即可将图片插入到工作表中。单击选择提示提示如果插入到工作表中的图片的大小需要改变，可以选择图片，将鼠标置于控制点上，当光标变成“双向”箭头时拖动即可调整图片大小。（2）选择【插入】选项卡，单击【文本】组中的【艺术字】下拉按钮，选择“填充-强调文字颜色左，暖色粗糙棱台”项。然后，更改艺术字文字为“月来款金额”，如图9-12所示。图9-12插入艺术字（3）选择“月还额金额”文字，并在【字体】组中，设置【字体】为“华文新魏”；【字号】为28；【字体颜色】为“黄色”，效果如图9-13所示。图9-13设置字体格式（4）选择【开发工具】选项卡，单击【代码】组中的【插入】下拉按钮，选择【ActiveX控件】栏中的【命令控件（ActiveX控件）】按钮。然后，在图片上方绘制一个“命令控件”按钮，如图9-14所示。输入选择设置图9-14绘制“命令控件”按钮（5）选择“命令控件”按钮，在【属性】对话框中，设置控件的BackColor为“绿色”；Caption为“计算”；并设置其控件中的字体格式，如图9-15所示。图9-15设置控件格式提示选择【开发工具】选项卡，单击【控件】组中的【属性】按钮，即可弹出【属性】对话框。提示单击【属性】对话框中的Font选项后面的【浏览】按钮。然后，在弹出的【字体】对话框中，设置【字体】为“华文新魏”；【字号】为“小二”。（6）单击【控件】组中的【插入】下拉按钮，选择【ActiveX控件】栏中的【文本框（ActiveX控件）】按钮。然后，在图片上方绘制一个“文本框”控件，如图9-16所示。选择绘制效果设置图9-16绘制“文本框”控件（7）选择绘制的“文本框”控件，然后，打开【属性】对话框。设置【字体】为TimesNewRoman；【字号】为“小三”。（8）选择“文本框”控件按钮，在【属性】对话框中，设置BackColor为“非活动边框”，如图9-17所示。图9-17设置“文本框”控件属性（8）双击图片上方的“计算”控件按钮。然后，在弹出的代码编辑窗口中，输入如图9-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)loanTerm=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）单击“计算”控件按钮，然后在弹出的【输入】对话框中，输入贷款总额为525000，如图9-18所示。图9-18输入贷款金额（11）在【输入】对话框中，输入贷款年利率为5.6，如图9-19所示。图9-19输入贷款年利率（12）在【输入】对话框中，输入贷款年限为10，如图9-20所示。图9-20输入贷款年限（13）单击【输入】对话框中的【确定】按钮，即可在图片的上方显示出计算结果，效果如图9-21所示。输入显示图9-21显示计算结果提示用户可以根据实际情况，在【输入】对话框中，输入不同的贷款总额，年利率和贷款年限的值，从而得到不同的贷款月偿还额。