您好,欢迎访问三七文档
当前位置:首页 > 商业/管理/HR > 咨询培训 > 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显示计算结果提示用户可以根据实际情况,在【输入】对话框中,输入不同的贷款总额,年利率和贷款年限的值,从而得到不同的贷款月偿还额。
本文标题:Excel-VBA编程--典型实例——计算月还款金额
链接地址:https://www.777doc.com/doc-4772981 .html