第10章智能财务分析与决策系统的建立

第10章

智能财务分析与决策系统的建立中国人民大学上学殷建红主要内容宏语言概述模型界面与自定义功能区的设计自动启动工作簿的方法宏程序宏程序是指用VBA提供的各种函数、语句、对象、方法和属性等编写的程序，也称为过程；是在vba模块中的一个可执行的程序代码块，这些代码序列组合在一起可完成某项任务。vba的过程可分为两类子过程（subProcedure）过程函数（function

Procedure）宏程序过程以Sub语句开始，以EndSub语句结束。过程可以执行某种操作，但无返回值。Sub过程名（）命令序列１……命令序列NEndSub宏程序过程函数以过程函数以Function语句开头，以End

Function语句结束，可以有返回值。Function函数名（参数……）命令序列１……命令序列NEnd

Function建立宏程序方法一：选择【开发工具】选项卡下的【Visualbasic】命令，便编辑器界面。选择【插入】菜单中【模块】命令，Excel在工作簿中增加宏模块１，此时可以输入和编辑宏程序。方法二：选择【开发工具】选项卡下的【录制宏】命令，Excel可以自动录制简单的宏程序，记录鼠标和键盘的操作程序结构顺序（sequencial）条件（condition）或分支（Branch）循环（Loop）宏程序示例1宏程序示例2Functiontax(sales)tax=sales*0.13EndFunctionSubSales_2()Range("E4").Value=tax(Range("b4").Value)EndSub宏程序示例3宏程序示例4SubSales_4()DimsxAsDouble,bxAsDoublesx=Range("B4").Valuebx=Range("C4").ValueSelectCasesxCaseIs<bxMsgBox"亏损！"Range("D4").SelectActiveCell.FormulaR1C1="亏损"CaseIs=bxMsgBox"保本！"Range("D4").SelectActiveCell.FormulaR1C1="保本"CaseIs>bxMsgBox"盈利！"Range("D4").SelectActiveCell.FormulaR1C1="盈利"EndSelectEndSub执行宏程序方法一在【开发工具】选项卡下选择【宏】命令，弹出【宏】对话框在【宏名】框中选择宏程序选择【执行】按钮，计算机自动执行该宏程序方法二建立宏按钮，通过驱动宏按钮执行宏程序主要内容宏语言概述模型界面与自定义功能区的设计自动启动工作簿的方法模型界面模型界面Subvisual()Workbooks.Open(ThisWorkbook.Path&"\cwgl03.xlsm")Sheets("界面").SelectEndSub自定义功能区自定义功能区自定义功能区主要内容宏语言概述模型界面与自定义功能区的设计自动启动工作簿的方法Auto_open在CWGL10.XLSM工作簿中建立一个自动执行的宏程序功能：显示“欢迎您使用财务管理系统”，并自动显示财务管理系统主界面Auto_close在CWGL10.XLSM工作簿中建立一个当工作簿关闭时自动