怎样用EXCEL开发管理信息系统Word文件下载.docx

1、（1）程序总体设计（）（2）界面设计水电计价系统主界面如图2所示。（）主界面是以EXCEL工作表作为输入输出界面。具体设计如下：选定一个工作表并命名为“主界面”。选定单元格区域，把区域颜色设置成你喜欢的颜色。放置命令按钮，并给按钮指定宏。分割区域并冻结，锁定界面使之不能滚动。工作表加密保护使用户不能修改。记录单界面如（）所示。具体设计过程如下：选定一个工作表并命名为“记录单”。制表（如上图所示 ）。选定年、月、水表数、电表数空白单元格区域，取消锁定。工作表保护使用户不能修改。主报表如（、）所示。选定一个工作表并命名为“主报表”。纵向冻结A、B两列，横向冻结1-5行。输入公式：计算上次表底、本月

2、查表记录、水电用量、水、电费、水电费合计的校内、校外合计、楼房合计、平房合计。在C338单元格输入下面公式，拖动填充柄复制公式至L338。=SUMIF（$M$6:$M$331,=l校内,C6:C331）+SUMIF（$M$6:=p校内C331） 在C339单元格输入下面公式，拖动填充柄复制公式至L339。=l校外=p校外C331）在C340单元格输入下面公式，拖动填充柄复制公式至L340。在C341单元格输入下面公式，拖动填充柄复制公式至L341。查表档案界面如（下）所示：选定一个工作表并命名为“档案”。制表（如所示 ）。纵向冻结A、B两列，横向冻结1-3行。查询档案如（下）所示：选定一个工作

3、表并命名为“查询”。纵向冻结A列，横向冻结1-3行。（3）、水电计价系统的VBA代码及说明Dim s As VariantDim y As VariantDim u As Variant 模块级变量声明Sub shuru（） 指定给主界面输入按钮s = Worksheets（主界面）.Range（v1）.Value 获取密码For y2 = 1 To 2x = InputBox（请输入密码：, 保定农校水电计价系统）If x = s ThenWorksheets（）.Activate（按钮 2）.Select = vbb按钮 3ibda（按钮 5 = 退出按钮 4报表查询记录单Exit Sub

4、ElseIf x = ThenMsgBox 请输入密码ElseEnd IfNext y2End Sub 以上是根据密码正确与否选择执行代码段Sub 返回1（） 指定给返回按钮End SubSub 存档（） 指定给记录单上的存档按钮thecode = vbYesNo + vbDefaultButton2 + vbExclamation + vbapplicationmodelMsgBox 请对输入进行检查，是否正确？, thecodethereply = MsgBox（prompt:=, Buttons:=thecode）Select Case thereplyCase vbYesm = Wor

5、ksheets（c5n = Worksheets（d5If m And n c5:d330ElseIf m And n = c330ElseIf m = d5:报表Worksheets（e6f6档案y1 = Worksheets（c2）.Valuex = 0Do Until z = y1x = x + 1z = Worksheets（）.Cells（2, x）.ValueLoop）.Cells（4, x）.Select）.Cells（4, x + 1）.SelectCase vbNoEnd SelectEnd Sub 以上代码是把录入数据存入主报表和查表档案Sub 返回2（） 指定给主报表上的

6、返回主界面按钮Sub 取电表底（） 指定给主报表上的取电表底按钮y = InputBox（请输入电表底（y0,1,2.12）：If y = y0Range（c4:c329c6ElseIf y = 1e4:e3292g4:g3293i4:i3294k4:k3295m4:m3296o4:o3297q4:q3298s4:s3299u4:u32910w4:w32911y4:y32912aa4:aa329With Application.Calculation = xlAutomatic.MaxChange = .001End With = FalseEnd Sub 以上代码是使用选择语句从查表档案中取

7、电表底Sub 取水表底（） 指定给主报表上的取电表底按钮u = InputBox（请输入水表底（y0,1,2.12）：If u = d4:d329d6ElseIf u = f4:f329h4:h329j4:j329l4:l329n4:n329p4:p329r4:r329t4:t329v4:v329x4:x329z4:z329ab4:ab329End Sub 以上代码是使用选择语句从查表档案中取水表底Sub bsy（） 由报表存档过程调用x = 3Do While Not （IsEmpty（Worksheets（）.Cells（11, x）.Value）.Cells（11, x）.Value =

8、 Worksheets（）.Cells（11, x + 1）.Value = 月）.Cells（12, x）.Value = u）.Cells（13, x）.Value = y）.Cells（12, x + 1）.Value = ）.Cells（13, x + 1）.Value = c3:f5c334:f336a1 = 6End Sub 以上代码是把报表月份和表底月份放入主界面上的表格里Sub 返回3（） 指定给返回主界面按钮Sub 打印设置（） 指定给主界面上的打印设置按钮With .PrintTitleRows = $1:$5.PrintTitleColumns = .LeftHeader

9、 = .CenterHeader = 水电计价系统.RightHeader = 第 &P 页.LeftFooter = .CenterFooter = .RightFooter = .LeftMargin = .RightMargin = （.96063）.TopM.HeaderMargin = （.5118110.PrintHeadings = False.PrintGridlines = False.PrintNotes = False.PrintQuality = Array（360, 180）.CenterHorizontally = True.CenterVertically = False.Orientation = xlPortrait.Draft = False.PaperSize = xlPaperUser.FirstPageNumber = xlAutomatic.Order = xlDownThenOver.BlackAndWhite = False.Zoom = 100End Sub 进行打印设置Sub vbb（） 指定给主界面上的主报表按钮End Sub 激活主报表Sub ibda（） 指定给主界面上的报表查询按钮End Sub 激活档案工作表