管理信息系统实指导书.docVIP

工商管理类专业《》课程实验指导书 2011年2月 目录………………………………2 实验二 基于Excel会计帐务处理开发………………………………9 实验三 基于Excel购销存管理系统开发……………………………20 实验四 基于Excel下的用户权限管理系统开发……………………23 实验五 基于Excel下的自定义菜单与工具栏开发…………………33 实验六 基于Excel下的客户关系管理原理系统开发………………41 实验七 基于Excel/Access下人事管理系统开发原理……………55 实验八 基于Excel/Access下人事管理系统开发应用 …………64 第一部分 绪论本书是根据《》课程实验教学大纲编写的，适用于 本课程实验的作用与任务 本课程实验的基础知识 三、本课程实验教学项目及其教学要求 序 号 实验项目名称 学 时 教学目标、要求 1 4 掌握基于Excel下通用工资开发 2 基于Excel下会计帐务处理开发 4 掌握基于Excel下会计帐务处理开发 3 基于Excel下购销存开发 4 掌握基于Excel下购销存开发 4 基于Excel下用户权限开发 4 掌握基于Excel下用户权限开发 5 基于Excel下自定义菜单与工具栏开发 4 掌握基于Excel下自定义菜单与工具栏开发 6 基于Excel下客户关系系统开发 4 掌握基于Excel下客户关系系统开发 7 基于Excel/Access下人事管理原理开发 4 掌握基于Excel/Access下人事管理开发原理 8 基于Excel/Access下人事管理应用开发 6 掌握基于Excel/Access下人事管理应用开发 合　　计 第二部分 基本实验指导 实验目的 1．了解2．掌握．实验内容及要求1．．．1．．．1．．．Cells.Select Dim mySht As Worksheet Dim num As Integer Dim col As Integer Dim endrow As Integer Dim I As Integer Set mySht = Worksheets(1) endrow = mySht.Range(A500).End(xlUp).Row 测示目前表中有几条记录 If endrow 4 Then 若小于4条记录，则最多一条记录。当一条记录时，就不必要生成工资条了。 MsgBox 工资算表中没有工资记录 Else num = 4 col = 10 For I = 1 To endrow - 1 循环插入空行 Range(Cells(num, 1), Cells(num, col)).Select 选中第num行的第1列到第col列 Selection.Insert Shift:=xlDown num = num + 2 Next I num = 4 For I = 1 To endrow - 3 循环插入标题行 Range(Cells(2, 1), Cells(2, col)).Select Application.CutCopyMode = False Selection.Copy Cells(num, 1).Select ActiveSheet.Paste num = num + 2 Next I End If （3）宏的运行 用同样的方法创建 “工资报表还原”宏，其代码为： Cells.Select Dim mySht As Worksheet Dim num1 As Integer Dim col As Integer Dim endrow As Integer Set mySht = Worksheets(1) endrow = mySht.Range(A65536).End(xlUp).Row - 2 num1 = 4 col = 10 Do While num1 = endrow + 1 选择需删除的行 Range(Cells(num1, 1), Cells(num1, col)).Select 删除需要删除的行 Selection.Delete num1 = num1 + 1 endrow = endrow - 1 Loop 3、自定义函数： （1）个人所得税国家征收标准 级数 全月应纳税所得额 税率 速扣数 1 不超过500元部分 5% 0 2 50