《excel会计与财务管理——理论、方案暨模型-第11章 excel财务管理系统的建立_课件》由会员分享，可在线阅读，更多相关《excel会计与财务管理——理论、方案暨模型-第11章 excel财务管理系统的建立_课件（61页珍藏版）》请在金锄头文库上搜索。
1、第11章 Excel财务管理系统的建立,本章主要内容： 11.1 宏和VBA 11.2 财务管理模型用户界面的设计 11.3 财务管理系统菜单的设计 11.4 控制应用系统自动启动的方法,本章目标：,VBA VBA是基于Visual Basic for Windows发展而来的新一代标准宏语言，提供了面向对象的程序设计方法和相当完整的程序设计语言。对于在工作中需要经常使用Office套装软件的用户，学习VBA有助于使工作自动化，提高工作效率。另外，由于VBA可直接应用Office套装软件的各项强大功能，所以对于程序设计人员的程序设计和开发也更加方便快捷。,11.1 宏和VBA,宏 宏程序是指用
2、VBA提供的各种函数、语句、对象、方法和属性等编写的程序。 宏程序可以被多次重复使用，自动执行复杂的任务，减少完成任务所需的步骤。,11.1 宏和VBA,宏的创建和运行 使用宏录制创建新宏 使用Visual Basic 编辑器创建新宏,11.1 宏和VBA,11.1.2 使用宏录制器录制宏,宏录制器是Excel提供的一种软件工具，它能够将用户的操作过程记录下来，并自动将所记录的操作转换成VBA程序代码。对于经常重复进行的操作过程，可以通过宏录制器将它记录下来，当需要再次进行这些操作时，只需运行录制的宏，Excel就能自动完成这些重复的操作。 需要注意的是，当录制宏的工作开始后，所有的操作步骤都
3、将被记录在宏中，所以应尽量减少不必要的或错误的操作，如果在录制宏时出现失误，更正失误的操作也会记录在宏中。,11.1.2 使用宏录制器录制宏_记录宏程序的方法和步骤,选择【工具】菜单上的【宏】命令，然后从子菜单中选择【录制新宏】命令。 在“宏名”框中输入宏程序的名称。 在“保存在”框中，指定存放宏的位置。 在“说明”框中，输入要录制宏的有关说明信息。 选择【确定】按钮，此时【停止录制】按钮出现在屏幕上。 用户可以进行各种操作，如选定单元格、输入标题、设置表格等。 单击【停止录制】按钮或者选择【工具】菜单上【宏】命令下的【停止录制】命令，结束宏录制。,11.1.2 使用宏录制器录制宏_记录宏实例
4、,【例11-1】打开工作簿cwgl11，用录制宏的方式记录以下工作：插入一张工作表，在新插入的工作表上制作一张简单的分部销售情况表，表结构如图11-4所示。录制一个能够建立这种表结构的宏Sales。,图11-4：销售情况表,11.1.2 使用宏录制器录制宏_录制宏的过程：,（1）选择【工具】菜单上【宏】命令下的【录制新宏】命令； （2）在“宏名”框中输入宏程序的名称“Sales”； （3）在“保存在”框中指定存放宏的位置“当前工作簿”； （4）在“说明”框中，输入要录制宏的有关说明信息； （5）选择【确定】按钮，此时【停止录制】按钮出现在屏幕上； （6）选择【插入】菜单上的【工作表】命令； （
5、7）选择A1单元格，输入“销售情况表”； （8）依次在其他单元格输入文字，并调整字体字号； （9）选择范围A1:AF，合并单元格； （10）选择标题，居中显示，单击【字体】工具，选择14号，加粗字体； （11）单击【停止录制】按钮，结束宏录制。,11.1.2 使用宏录制器录制宏_查看所录制的宏,宏程序录制完毕后，选择【工具】菜单上【宏】命令下 的【宏】菜单项，弹出“宏”对话框。 在“宏名”框中选择宏程序“Sales”，单击【编辑】按钮，则可显示刚才所录制的宏程序“Sales”。,11.1.3 利用VBA编写宏程序,宏录制器存在问题： 录制的宏往往语句冗长（记录了许多不需要的步骤，不需要的语句）
6、，会降低执行速度 当录制宏的工作开始后，所有的操作步骤都将被记录在宏中，如果在录制宏时出现失误，更正失误的操作也会记录在宏中。有时为了更正操作，可能需要重新录制新宏 宏录制器在灵活度方面有所欠缺 有些功能是无法通过录制实现的,因此需要用编写宏程序,11.1.3 利用VBA编写宏程序_宏程序的分类,子程序 子程序是VBA的最小程序单位。 函数 函数由Function和End Function 语句所包含起来的 VBA语句组成。 子程序可以执行某种操作，但无返回值。 Function函数和Sub子程序很类似，但函数有一个返回值。,11.1.3 利用VBA编写宏程序_结构化程序设计的控制结构,（1）
7、顺序结构 （2）选择结构 （3）循环结构,11.1.3 利用VBA编写宏程序,（1）顺序结构 在一般情况下，一个VBA的Sub子程序和Function函数的执行都是从程序代码的第一个语句行开始，逐条运行程序代码中的语句，直至遇到End Sub或End Function来结束整个程序的执行。这就是顺序结构。,11.1.3 利用VBA编写宏程序_（1）顺序结构,【例11-2】编写一宏程序。 过程名：PRO1 功能：在cwgl工作簿中的“Sales”工作表中，赋予B1单元报表的标题“销售情况分析表”；赋予B2单元日期“2010年12月”；在A3、B3、C3、D3、E3单元格中依次输入“部门”、“实际
8、销售额”、“保本销售额”、“盈亏状况”、和“销项税”；在A4、B4、C4单元格中依次输入“计算机部”、“100”和“80”。,11.1.3 利用VBA编写宏程序_（1）顺序结构,【例11-2】编写一宏程序。 过程名：PRO1 功能：在cwgl工作簿中的“Sales”工作表中，赋予B1单元报表的标题“销售情况分析表”；赋予B2单元日期“2010年12月”；在A3、B3、C3、D3、E3单元格中依次输入“部门”、“实际销售额”、“保本销售额”、“盈亏状况”、和“销项税”；在A4、B4、C4单元格中依次输入“计算机部”、“100”和“80”。,11.1.3 利用VBA编写宏程序_（1）顺序结构,编制
9、的宏程序如下： Sub pro1() Range(“B1“).Select ActiveCell.FormulaR1C1 = “销售情况分析表“ Range(“B2“).Select ActiveCell.FormulaR1C1 = “2010年12月“ Range(“A3“).Select ActiveCell.FormulaR1C1 = “部门“ Range(“B3“).Select ActiveCell.FormulaR1C1 = “实际销售额“ Range(“C3“).Select,11.1.3 利用VBA编写宏程序_（1）顺序结构,ActiveCell.FormulaR1C1 = “
10、保本销售额“ Range(“D3“).Select ActiveCell.FormulaR1C1 = “盈亏状况“ Range(“E3“).Select ActiveCell.FormulaR1C1 = “销项税“ Range(“A4“).Select ActiveCell.FormulaR1C1 = “计算机部“ Range(“B4“).Value = 100 Range(“C4“).Value = 80 End Sub,11.1.3 利用VBA编写宏程序_（2）选择结构,有些时候，需要程序代码按一定的条件执行，当条件成立时，执行一部分程序代码，条件不成立时执行另外一部分程序代码。这种功能需
11、要用VBA的选择结构来实现。 VBA中的条件判断语句有If语句和Select Case语句两种,11.1.3 利用VBA编写宏程序_（2）选择结构,单分支语句IfThen。 单行结构条件语句 单行结构条件语句是最基本的条件语句，其语法结构为：If 逻辑表达式 Then 语句 块结构条件语句 单行结构条件语句中，满足条件时只执行一条语句，若有多行语句需要执行，则需使用块结构条件语句。其语法结构如下： If 逻辑表达式 Then 语句序列1 语句序列2,11.1.3 利用VBA编写宏程序_（2）选择结构,二分支语句IfThenElse。 其语法结构如下： If 逻辑表达式 Then 语句序列1 E
12、lse 语句序列2 End If,11.1.3 利用VBA编写宏程序_（2）选择结构,【例11-5】编写一宏程序。 过程名：PRO3 功能：如果实际销售额大于等于保本点销售额，在屏幕上输出“胜利完成任务！”，并在盈亏状态单元格赋“盈利”；否则在屏幕上输出“仍需努力！”，并在盈亏状态单元赋“危险”。,11.1.3 利用VBA编写宏程序_（2）选择结构,编写的宏程序如下： Sub PRO3() If Range(“B3“).Value = Range(“C3“).Value Then MsgBox “胜利完成任务！“ Range(“D4“).Select ActiveCell.FormulaR1C
13、1 = “盈利“ Else MsgBox “仍需努力！“ Range(“D4“).Select ActiveCell.FormulaR1C1 = “危险“ End If End Sub,11.1.3 利用VBA编写宏程序_（2）选择结构,多分支语句：ifThenElseIf。语法结构为： If 条件1 Then 语句组1 ElseIf 条件2 Then 语句组2 ElseIf 条件n Then 语句组n Else 语句组n+1 End If,11.1.3 利用VBA编写宏程序_（2）选择结构,【例11-6】某汽车出租公司可为顾客提供货物运送服务，根据货物的价值及运输路程设置运费，并且可根据路程
14、远近给予适当的折扣。设运费F（单位为元），货物单价P（单位为元），货物重量W（单位为吨），路程S（公里）及优惠系数（D）之间的关系式为：F=P*W*S*(1-D)。优惠系数d与路程远近的关系如下，编写计算折扣的函数。,11.1.3 利用VBA编写宏程序_（2）选择结构,编写的函数如下： Function d(s) If s = 1000 Then d = 0.1 ElseIf s = 750 Then d = 0.07 ElseIf s = 500 Then d = 0.05 ElseIf s = 250 Then d = 0.02 Else d = 0 End If End Function
15、,11.1.3 利用VBA编写宏程序_（2）选择结构,多分支语句：Select Case。Select Case语句的语法结构如下： Select Case 测试表达式 Case 表达式1 语句组1 Case 表达式2 语句组2 Case Else 语句组n End Select,11.1.3 利用VBA编写宏程序_（2）选择结构,【例11-7】编写一宏程序。 过程名：PRO4 功能：如果实际销售额大于保本销售额，在屏幕上输出“盈利！”，并在盈亏状态单元格赋“盈利”；如果实际销售额等于保本销售额，在屏幕上输出“保本！”，并在盈亏状态单元格赋“保本”；如果实际销售额小于保本销售额，在屏幕上输出“
16、亏损！”，并在盈亏状态单元格赋“亏损”。,11.1.3 利用VBA编写宏程序_（2）选择结构,编写的程序如下： Sub PRO4() Dim sx As Double, bx As Double sx = Range(“B4“).Value bx = Range(“C4“).Value Select Case sx Case Is bx MsgBox “盈利！“ Range(“D4“).Select ActiveCell.FormulaR1C1 = “盈利“ End Select End Sub,11.1.3 利用VBA编写宏程序_（3）循环结构,在顺序结构的程序中，每个语句只执行一次。 在分支结构的程序中，根据逻辑表达式的值选择某一分支执行，所选分支的语句也只执行一次。 然而，在处理实际问题时，经常要用同一种方法对不同的数据进行重复处理，这些相同的操作可以通过重复执行同一程序段来实现。这种重复执行具有特定功能程序段的程序就是循环程序。,11.1.3 利用VBA编写宏程序_（3）循环结构,ForNext循环结构。语法结构为：
