资源描述：
《用excel开发管理信息系统》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、用EXCEL开发管理信息系统保定职业技术学院杨克勤摘要：Excel2000是Windows环境下的一种电子表格软件,可向用户提供史无前例的超强功能和易用性，内嵌有一种VisualBasicforApplication(简称VBA)超级宏语言，读者在熟练应用Excel的基础上，可按用户的需求用VBA建立适用的信息系统。关键词：EXCEL2000VBA管理信息系统（MIS）目前国内管理信息系统(MIS)开发研制一般采用人们熟悉的dBaseX、Foxbase或Foxpro等,本文介绍了如何用Excel开发MIS。一
2、般来说,一套MIS主要包括信息输入、信息处理、信息输出三大组成部分,用Excel处理这些部分均显得游刃有余。Excel是Windows环境下的一种电子表格软件,可向用户提供史无前例的超强功能和易用性。它同时具有电子数据表、图表和数据库的功能,具有极强的分析性能、报表制作工具和丰富的统计图表。在本文笔者用中文Excel2000forWindows开发了水电管理系统，充分感受到其强大功能和方便性。下面详细阐述水电管理系统的开发过程。应用程序：水电计价系统水电管理是每一个单位每月都要进行的工作。下面我们以保定农校水
3、电计价系统为例讲解VBA在水电管理中的应用。1、水电计价系统的功能本程序具有如下功能：自动计算功能：可完成各户水费、电费、合计的计算。自动汇总功能：自动汇总全校教职工楼的用电量、用水量及分类汇总。查询功能：可查询各户的电表数、水表数、电费数、水费数。报表的打印输出功能。系统保护功能：具有口令保护、工作表保护以防非法用户进入和修改。2、程序设计过程（1）程序总体设计返回主界面系统初始化报表存档打印取电表底取水表底返回主界面主报表报表查询存档记录单密码设置查表档案输入水电计价系统（2）界面设计水电计价系统主界面如
4、下所示：保定农校水电计价系统主界面是以EXCEL工作表作为输入输出界面。具体设计如下：选定一个工作表并命名为“主界面”。选定单元格区域，把区域颜色设置成你喜欢的颜色。放置命令按钮，并给按钮指定宏。分割区域并冻结，锁定界面使之不能滚动。工作表加密保护使用户不能修改。记录单界面如下所示：具体设计过程如下：选定一个工作表并命名为“记录单”。制表（如上图所示）。选定年、月、水表数、电表数空白单元格区域，取消锁定。放置命令按钮，并给按钮指定宏。工作表保护使用户不能修改。主报表如下图所示：具体设计过程如下：选定一个工作表
5、并命名为“主报表”。制表（如上图所示）。纵向冻结A、B两列，横向冻结1-5行。放置命令按钮，并给按钮指定宏。输入公式：计算上次表底、本月查表记录、水电用量、水、电费、水电费合计的校内、校外合计、楼房合计、平房合计。在C338单元格输入下面公式，拖动填充柄复制公式至L338。=SUMIF($M$6:$M$331,"=l校内",C6:C331)+SUMIF($M$6:$M$331,"=p校内",C6:C331)在C339单元格输入下面公式，拖动填充柄复制公式至L339。=SUMIF($M$6:$M$331,"=l
6、校外",C6:C331)+SUMIF($M$6:$M$331,"=p校外",C6:C331)在C340单元格输入下面公式，拖动填充柄复制公式至L340。=SUMIF($M$6:$M$331,"=l校外",C6:C331)+SUMIF($M$6:$M$331,"=l校内",C6:C331)在C341单元格输入下面公式，拖动填充柄复制公式至L341。=SUMIF($M$6:$M$331,"=p校外",C6:C331)+SUMIF($M$6:$M$331,"=p校内",C6:C331)工作表保护使用户不能修改。查表
7、档案界面如下所示：具体设计过程如下：选定一个工作表并命名为“档案”。制表（如上图所示）。纵向冻结A、B两列，横向冻结13行。放置命令按钮，并给按钮指定宏。工作表保护使用户不能修改。查询档案如下图所示：具体设计过程如下：选定一个工作表并命名为“查询”。制表（如上图所示）。纵向冻结A列，横向冻结13行。放置命令按钮，并给按钮指定宏。工作表保护使用户不能修改。(3)、水电计价系统的VBA代码及说明DimsAsVariantDimyAsVariantDimuAsVariant‘模块级变量声明Subshuru()‘指定
8、给主界面输入按钮s=Worksheets("主界面").Range("v1").Value‘获取密码Fory2=1To2x=InputBox("请输入密码：","保定农校水电计价系统")Ifx=sThenWorksheets("主界面").ActivateActiveSheet.UnprotectActiveSheet.DrawingObjects("按钮2").SelectSelection.On
