财务决策支持系统实验课件.pptVIP

MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * MS1 Lesson summary 8 * 0109 201309030045 * 0109 201309030045 * 实验步骤 相关控件程序代码的编写 （1）为复合框添加行选项 （2）自动运行窗体“时间价值” （3）为清除表格按钮编写代码 （4）为退出按钮编写代码 （5）为计算按钮编写代码 创建一个宏，名称为“资金时间价值”，编辑宏代码用于打开时间价值窗体 在工作表中插入一个命令按钮，为其指定宏“资金时间价值”，按钮显示名称改为“开始计算”。 0109 201309030045 * 实验4-3：混合现金流终值现值计算系统 0109 201309030045 * 实验目的： 利用VBA中常用的宏和图形控件构建混合现金流终值现值计算系统，并借助该系统分析一些日常决策，支持日常财务决策。 进一步理解系统构建过程中用户需求和系统设计之间的关系。 实验内容： 利用宏和图形控件建立可支持混合现金流终值现值计算支持系统。 实验准备： 在VBA财务模型2.XLS的基础上建立EXCEL文件VBA财务模型3.XLS 实验原理 企业每年流入的现金不可能是等额的现金流，而是非等额的混合现金流。 0109 201309030045 * 实验步骤： 在VBA财务模型2.XLS文件中建立一张新的工作表“混合现金流现值与终值计算模型”，并在该工作表中录入基本的数据，参见工作表相关区域。 年计息次数通过组合框控件完成，年计息次数的组合框控件的数据源和单元格链接如下图所示：在单元格G2:G5中分别输入按年计息，按半年计息，按季度计息，按月计息 计息时间也通过不同的组合框控件来完成，计息时间的组合框控件的数据源和单元格链接如下图所示：在单元格G6:G7中分别输入期末，期初。 0109 201309030045 * 0109 201309030045 * 实验目的： 4.建立如图所示的三个命令按钮 0109 201309030045 * 实验步骤： 5.各期现金流的数据通过“准备数据”按钮自动生成。为“准备数据”按钮新建一个名称为“数据准备”的宏，程序代码如下： Sub 数据准备() n = Cells(5, 2) If Cells(6, 2) = 1 Then xx = 1 ElseIf Cells(6, 2) = 2 Then xx = 2 ElseIf Cells(6, 2) = 3 Then xx = 4 ElseIf Cells(6, 2) = 4 Then xx = 12 End If nt = n * xx For t = 1 To nt Cells(15 + t, 1) = t Next t End Sub 0109 201309030045 * 实验步骤： 6.混合现金流的终值和现值通过“计算”按钮自动生成。为“计算”按钮新建一个名称为“计算”的宏，程序代码