《计算机财务管理》第12章.pptx

1、 天津财经大学天津财经大学 商学院会计系商学院会计系 第12章 财务信息系统集成 【本章重点本章重点】 利用宏进行财务信息系统集成利用宏进行财务信息系统集成 天津财经大学天津财经大学 商学院会计系商学院会计系 12.1 系统准备 本章目录 【课后习题】 12.2 设计宏 12.3 指定宏 12.4 启动与退出设计 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.1 系统准备 首先，新建一个一个首先，新建一个一个ExcelExcel文件，并将第文件，并将第1 1张工作表命名为张工作表命名为 “首页”，然后参照下图，利用文本框、矩形框等工具设计其“首页”，然后参照下图

2、，利用文本框、矩形框等工具设计其 样式。同时，可为工作表设置背景图片。样式。同时，可为工作表设置背景图片。 为便于引用，将已设计好的各财务模型工作表复制到该工为便于引用，将已设计好的各财务模型工作表复制到该工 作簿之中，并为各工作表制作一个“返回”按钮，以便从各模作簿之中，并为各工作表制作一个“返回”按钮，以便从各模 型返回首页。假定财务信息系统包括财务分析模型、项目投资型返回首页。假定财务信息系统包括财务分析模型、项目投资 决策模型、证券投资决策模型、最佳现金持有量决策模型、经决策模型、证券投资决策模型、最佳现金持有量决策模型、经 济批量决策模型、自制外购决策模型、财务预测模型、全面预济批量

3、决策模型、自制外购决策模型、财务预测模型、全面预 算模型、本量利分析模型和作业成本模型等算模型、本量利分析模型和作业成本模型等1010个模型。个模型。 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.1 系统准备 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.2 设计宏 首页中的各按钮需要链接到对应的宏，才能完成对财务模首页中的各按钮需要链接到对应的宏，才能完成对财务模 型的引用。可录制以下各宏，也可进入型的引用。可录制以下各宏，也可进入VBEVBE环境，插入一个标环境，插入一个标 准模块后，在该模块直接编写以下各子过程。针对各模型

4、，需准模块后，在该模块直接编写以下各子过程。针对各模型，需 要编写两个子过程，一个是主界面按钮子过程，其功能是：恢要编写两个子过程，一个是主界面按钮子过程，其功能是：恢 复在打开工作簿事件过程中屏蔽掉的各窗口参数设置，将该财复在打开工作簿事件过程中屏蔽掉的各窗口参数设置，将该财 务模型用到的工作表设为可见，首页工作表设置为不可见，并务模型用到的工作表设为可见，首页工作表设置为不可见，并 选择该模型的工作表；另一个是从该模型返回主界面的按钮子选择该模型的工作表；另一个是从该模型返回主界面的按钮子 过程，其功能是：屏蔽相关窗口参数设置，将首页工作表设置过程，其功能是：屏蔽相关窗口参数设置，将首页工

5、作表设置 为可见，将该模型各工作表设置为不可见。为可见，将该模型各工作表设置为不可见。 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.2 设计宏 12.2.112.2.1财务分析模型对应的宏财务分析模型对应的宏 1.1.进入按钮对应的宏进入按钮对应的宏 2.2.返回按钮对应的宏返回按钮对应的宏 12.2.212.2.2项目投资决策模型对应的宏项目投资决策模型对应的宏 1.1.进入按钮对应的宏进入按钮对应的宏 2.2.返回按钮对应的宏返回按钮对应的宏 12.2.312.2.3证券投资决策模型对应的宏证券投资决策模型对应的宏 1.1.进入按钮对应的宏进入按钮对应的宏

6、 2.2.返回按钮对应的宏返回按钮对应的宏 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.2 设计宏 12.2.412.2.4最佳现金持有量决策模型对应的宏最佳现金持有量决策模型对应的宏 1.1.进入按钮对应的宏进入按钮对应的宏 2.2.返回按钮对应的宏返回按钮对应的宏 12.2.512.2.5经济批量决策模型经济批量决策模型 1.1.进入按钮对应的宏进入按钮对应的宏 2.2.返回按钮对应的宏返回按钮对应的宏 12.2.612.2.6自制外购决策模型自制外购决策模型 1.1.进入按钮对应的宏进入按钮对应的宏 2.2.返回按钮对应的宏返回按钮对应的宏 天津财经大学

7、天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.2 设计宏 12.2.712.2.7财务预测模型财务预测模型 1.1.进入按钮对应的宏进入按钮对应的宏 2.2.返回按钮对应的宏返回按钮对应的宏 12.2.812.2.8全面预算模型全面预算模型 1.1.进入按钮对应的宏进入按钮对应的宏 2.2.返回按钮对应的宏返回按钮对应的宏 12.2.912.2.9本量利分析模型本量利分析模型 1.1.进入按钮对应的宏进入按钮对应的宏 2.2.返回按钮对应的宏返回按钮对应的宏 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.2 设计宏 12.2.1012.2.1

8、0作业成本模型作业成本模型 1.1.进入按钮对应的宏进入按钮对应的宏 2.2.返回按钮对应的宏返回按钮对应的宏 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.3 指定宏 将首页中的各按钮分别指定各自对应的宏，方法是：右键将首页中的各按钮分别指定各自对应的宏，方法是：右键 单击该按钮，出现快捷菜单，从快捷菜单中选择“指定宏”，单击该按钮，出现快捷菜单，从快捷菜单中选择“指定宏”， 出现宏对话框，从中选择已编写或录制好的对应的宏。同样地，出现宏对话框，从中选择已编写或录制好的对应的宏。同样地， 为各财务模型工作表中的“返回”按钮指定宏。为各财务模型工作表中的“返回”

9、按钮指定宏。 经过以上设置，就建立了首页与模型间的链接关系，可以经过以上设置，就建立了首页与模型间的链接关系，可以 方便地在首页与各模型间切换。方便地在首页与各模型间切换。 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.4启动与退出设计 1.1.启动启动 打开工作簿时，为了控制首页格式及工作表可见性，可在打开工作簿时，为了控制首页格式及工作表可见性，可在 工作簿中编写以下事件过程：工作簿中编写以下事件过程： Private Sub Private Sub Workbook_OpenWorkbook_Open()() With With ActiveWindowA

10、ctiveWindow . .DisplayGridlinesDisplayGridlines = False= False . .DisplayHeadingsDisplayHeadings = False= False . .DisplayHorizontalScrollBarDisplayHorizontalScrollBar = False= False . .DisplayVerticalScrollBarDisplayVerticalScrollBar = False= False 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.4启动与退出设计 .

11、.DisplayWorkbookTabsDisplayWorkbookTabs = True= True End WithEnd With Sheets(“Sheets(“首页首页“).Visible = True“).Visible = True Sheets(“20Sheets(“201 1资产负债表资产负债表“).Visible = False“).Visible = False Sheets(“20Sheets(“201 1利润表利润表“).Visible = False“).Visible = False Sheets(“20Sheets(“202 2资产负债表资产负债表“).Vis

12、ible = False“).Visible = False Sheets(“20Sheets(“202 2利润表利润表“).Visible = False“).Visible = False Sheets(“Sheets(“主要财务指标分析主要财务指标分析“).Visible = False“).Visible = False Sheets(“Sheets(“财务报表比较分析财务报表比较分析“).Visible = False“).Visible = False 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.4启动与退出设计 Sheets(“Sheets(“财

13、务比率分析财务比率分析“).Visible = False“).Visible = False Sheets(“Sheets(“杜邦分析杜邦分析“).Visible = False“).Visible = False Sheets(“Sheets(“无风险投资决策模型无风险投资决策模型“).Visible = False“).Visible = False Sheets(“Sheets(“风险投资决策模型风险投资决策模型“).Visible = False“).Visible = False Sheets(“Sheets(“股票投资决策模型股票投资决策模型“).Visible = False“

14、).Visible = False Sheets(“Sheets(“债券投资决策模型债券投资决策模型“).Visible = False“).Visible = False Sheets(“Sheets(“贝他系数计算模型贝他系数计算模型“).Visible = False“).Visible = False Sheets(“Sheets(“证券组合投资决策模型证券组合投资决策模型“).Visible = False“).Visible = False Sheets(“Sheets(“最佳现金持有量模型最佳现金持有量模型“).Visible = False“).Visible = False

15、天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.4启动与退出设计 Sheets(“Sheets(“经济批量基本模型经济批量基本模型“).Visible = False“).Visible = False Sheets(“Sheets(“自制外购决策模型自制外购决策模型“).Visible = False“).Visible = False Sheets(“Sheets(“销售趋势预测模型销售趋势预测模型“).Visible = False“).Visible = False Sheets(“Sheets(“销售因素预测模型销售因素预测模型“).Visible =

16、False“).Visible = False Sheets(“Sheets(“财务预测模型财务预测模型“).Visible = False“).Visible = False Sheets(“Sheets(“销售预算销售预算“).Visible = False“).Visible = False Sheets(“Sheets(“生产预算生产预算“).Visible = False“).Visible = False Sheets(“Sheets(“直接材料预算直接材料预算“).Visible = False“).Visible = False Sheets(“Sheets(“直接人工预算直接

17、人工预算“).Visible = False“).Visible = False 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.4启动与退出设计 Sheets(“Sheets(“制造费用预算制造费用预算“).Visible = False“).Visible = False Sheets(“Sheets(“产品成本预算产品成本预算“).Visible = False“).Visible = False Sheets(“Sheets(“销售费用预算销售费用预算“).Visible = False“).Visible = False Sheets(“Sheets(“

18、管理费用预算管理费用预算“).Visible = False“).Visible = False Sheets(“Sheets(“现金预算现金预算“).Visible = False“).Visible = False Sheets(“Sheets(“预算利润表预算利润表“).Visible = False“).Visible = False Sheets(“Sheets(“预算资产负债表预算资产负债表“).Visible = False“).Visible = False Sheets(“Sheets(“基本指标计算模型基本指标计算模型“).Visible = False“).Visible

19、 = False Sheets(“Sheets(“多因素变动分析模型多因素变动分析模型“).Visible = False“).Visible = False 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.4启动与退出设计 Sheets(“Sheets(“动态本量利分析模型动态本量利分析模型“).Visible = False“).Visible = False Sheets(“Sheets(“动态盈亏平衡分析模型动态盈亏平衡分析模型“).Visible = False“).Visible = False Sheets(“Sheets(“盈亏平衡销量随单价变化分

20、析模型盈亏平衡销量随单价变化分析模型“).Visible = “).Visible = FalseFalse Sheets(“Sheets(“实现目标利润所需销量分析模型实现目标利润所需销量分析模型“).Visible = False“).Visible = False Sheets(“Sheets(“基础档案基础档案“).Visible = False“).Visible = False Sheets(“Sheets(“作业作业- -成本动因成本动因“).Visible = False“).Visible = False Sheets(“Sheets(“作业消耗资源百分比作业消耗资源百分比“

21、).Visible = False“).Visible = False Sheets(“Sheets(“成本动因数量成本动因数量“).Visible = False“).Visible = False 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.4启动与退出设计 Sheets(“Sheets(“资源成本资源成本“).Visible = False“).Visible = False Sheets(“Sheets(“作业成本库作业成本库“).Visible = False“).Visible = False Sheets(“Sheets(“成本对象成本库成本对象

22、成本库“).Visible = False“).Visible = False Sheets(“Sheets(“首页首页“).Select“).Select Sheets(“Sheets(“首页首页“).“).EnableSelectionEnableSelection = = xlNoSelectionxlNoSelection Sheets(“Sheets(“首页首页“).Protect “).Protect 保护工作表，此时保护工作表，此时 EnableSelectionEnableSelection才生效才生效 MsgBoxMsgBox “ “欢迎使用财务信息系统欢迎使用财务信息系统!

23、“!“ End SubEnd Sub 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.4启动与退出设计 2.2.退出退出 关闭工作簿时，应恢复打开时设定的选项，以免影响其他关闭工作簿时，应恢复打开时设定的选项，以免影响其他 工作簿的使用。所以，应在工作簿中编写以下事件过程：工作簿的使用。所以，应在工作簿中编写以下事件过程： Private Sub Private Sub Workbook_BeforeCloseWorkbook_BeforeClose(Cancel As Boolean)(Cancel As Boolean) With With ActiveWin

24、dowActiveWindow . .DisplayGridlinesDisplayGridlines = True= True . .DisplayHeadingsDisplayHeadings = True= True . .DisplayHorizontalScrollBarDisplayHorizontalScrollBar = True= True . .DisplayVerticalScrollBarDisplayVerticalScrollBar = True= True 天津财经大学天津财经大学 商学院会计系商学院会计系 目录目录 本节本节 12.4启动与退出设计 . .Dis

25、playWorkbookTabsDisplayWorkbookTabs = True= True End WithEnd With ThisWorkbook.SaveThisWorkbook.Save 保存工作簿保存工作簿 MsgBoxMsgBox “ “谢谢使用，再见谢谢使用，再见!“!“ End SubEnd Sub 天津财经大学天津财经大学 商学院会计系商学院会计系 准备若干设计好的财务模型，在此基础上利用宏技术进行准备若干设计好的财务模型，在此基础上利用宏技术进行 财务信息系统集成。要求：在系统首页可通过链接直接转至相财务信息系统集成。要求：在系统首页可通过链接直接转至相 应模型页面，在各模型页面通过链接可直接返回系统首页。应模型页面，在各模型页面通过链接可直接返回系统首页。 目录目录 本节本节 课后习题