基于Excel-VBA的部门管理系统.docVIP

基于Excel-VBA的部门管理系统 基于Excel VBA的部门管理系统 一、实验目的： 通过本项目实践，掌握数据制作的添加、删除、更新和查询基本方法的应用。 二、实验意义： 以Excel作为数据库，制作一个部门管理模块，通过界面操作，进行方便地部门管理。对以后的相关数据管理应用具有一定的参考性和实用性。 三、模块开发技术 １、列表框ListIndex（索引）方法及属性 ColumnCount(列数)，RowSource(数据源)的运用 ２、数据精确查询应用； ３、ActiveWorkbook.Save(工作表保存方法)的应用； ４、Rows.Delete(删除记录方法)应用； ５、窗体加载事件的应用。 四、实验步骤： 请先完成程序填空 １、打开DepartmentInfo.xls文件，进入VBE环境，并插入一个用户窗体。界面设计如图１所示： End Sub 在Sub与End Sub之间输入如下代码： Worksheets(Sheet1).Select cs = Worksheets(Sheet1).Range(a1).End(xlToRight).Column rs = Worksheets(Sheet1).Range(A65536).End(xlUp).Row ListBox1.ColumnCount = cs ListBox1.RowSource = Worksheets