Ecel VBA编程 典型实例——计算月还款金额.docxVIP

Excel VBA 编程 典型实例——计算月还款金额 本例模拟计算器的外型，使用VBA 中的内置的财务函数 pmt（该函数是基于固定利率及等额分期付款方式，返回贷款的每期付款额），来制作一个“计算月还款金额” 的计算器。 练习要点 图片的应用 艺术字的应用 控件的应用 调用Pmt 函数 操作步骤： 选择单击新建一张空白的工作簿，并选择【插入】选项卡，单击【插图】组中的【图 片】按钮。然后，在弹出的【插入图片】对话框中，选择合适的图片进行插入，如图 9-11 选择 单击 图 9-11 插入图片 单击【插入图片】对话框中的【插入】按钮，即可将图片插入到工作表中。 单击【插入图片】对话框中的【插入】按钮，即可将图片插入到工作表中。 提 示 提 示 如果插入到工作表中的图片的大小需要改变，可以选择图片，将鼠标置于控制点 如果插入到工作表中的图片的大小需要改变，可以选择图片，将鼠标置于控制点 上，当光标变成“双向”箭头时拖动即可调整图片大小。 提 示 输入选择选择【插入】选项卡，单击【文本】组中的【艺术字】下拉按钮，选择“填充-强调文字颜色左，暖色粗糙棱台”项。然后，更改艺术字文字为“月来款金额”，如图 9-12 输入 选择 图 9-12 插入艺术字 选择“月还额金额”文字，并在【字体】组中，设置【字体】为“华文新魏；” 设置【字号】为 28；【字体颜色】为“黄色”，效果如图 9-13 所示。 设置 图 9-13 设置字体格式 选择【开发工具】选项卡，单击【代码】组中的【插入】下拉按钮，选择【 ActiveX控件】栏中的【命令控件（ActiveX 控件）】按钮。然后，在图片上方绘制一个“命令控件”按钮，如图 9-14 所示。 绘制选择图 9-14 绘制 选择 设置效果选择“命令控件”按钮，在【属性】对话框中，设置控件的BackColor 为“绿色”；Caption 为“计算”；并设置其控件中的字体格式，如图9-15 设置 效果 图 9-15 设置控件格式 选择【开发工具】选项卡，单击【控件】组中的【属性】按钮，即可弹出【属性】对话框。 选择【开发工具】选项卡，单击【控件】组中的【属性】按钮，即可弹出【属性】 对话框。 提 示 单击【属性】对话框中的Font 选项后面的【浏览】按钮。然后，在弹出的【字体】 对话框中，设置【字体】为“华文新魏”；【字号】为“小二”。 提 示 单击【控件】组中的【插入】下拉按钮，选择【ActiveX 控件】栏中的【文本框（ActiveX 控件）】按钮。然后，在图片上方绘制一个“文本框”控件，如图 9-16 所示。 绘制单击图 9-16 绘制 单击 选择绘制的“文本框”控件，然后，打开【属性】对话框。设置【字体】为 Times New Roman；【字号】为“小三”。 效果选择选择“文本框”控件按钮，在【属性】对话框中，设置BackColor 为“非活动边框”，如图 9-17 效果 选择 图 9-17 设置“文本框”控件属性 输入双击图片上方的“计算”控件按钮。然后，在弹出的代码编辑窗口中，输入如图 9-17 所示的代码。 输入 图 9-17 输入代码 Private Sub CommandButton1_Click() Private Sub CommandButton1_Click() 声明变量 Static loanAmt Static loanInt Static loanTerm loanAmt = Application.InputBox _ 选择 选择 (Prompt:= (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), _ Default:=loanTerm, Type:=1) 调用 Pmt 函数 payment = Application.WorksheetFunction _ .Pmt(loanInt / 1200, loanTerm * 12, loanAmt) TextBox1.Value = Format(payment, Currency) End Sub 单击【控件】组中的【设计模式】按钮，即可取消设计模式。 单击“计算”控件按钮，然后在弹出的【输入】对话框中，输入贷款总额为 输入显示525000，如图 9-18 输入 显示 图 9-18 输入贷款金额 在