基于Excel VBA库房管理系统的设计与实现.docVIP

基于Excel VBA库房管理系统的设计与实现 　　【摘要】Excel在处理数据上灵活方便，在表格制作以及统计分析等方面功能也很强大。而其开发工具VBA又可以轻松实现Excel操作的自动化。根据我院库房耗材管理工作的现状，利用Excel VBA来处理耗材数据并自动生成相应报表，进而达到提高库房管理工作效率的目的。 　　【关键词】Excel VBA；耗材；库房管理 　　1 引言 　　在学院后勤管理工作中，耗材的出入库管理是一件日常性的工作，管理员需要及时了解掌握各种耗材的出库量、入库量和库存量，便于合理安排工作。由于耗材种类繁多，而传统管理是采用纸质版或大量电子版文件、文件夹数据的管理方式，不仅时间上工作效率低，而且造成大量资源浪费。随着学院规模不断壮大，耗材数据将持续增长，数据库将非常庞大，管理也将越来越困难。为此开发了基于Excel VBA技术实现出库、入库、库存盘点、库存统计、数据转结等方面功能的库房管理系统。 　　2 设计思路 　　开发本管理系统，有效控制耗材积压，方便库房管理员随时出库、入库、修改、查询等，逐步完善和规范数据。此系统主要有一个主模块，八个子模块以及各模块下面的若干低一级子模块组成。目前系统主要解决任务如下： 　　2.1 出、入库简单方便，且能及时打印出、入库单，减轻了原来手工填写出入库单的工作量。 　　2.2 便于及时统计出库和入库情况。 　　2.3 按类型统计汇总各类耗材数量。 　　2.4 随时可以查看库存情况，同时支持查看单件耗材库存数量。 　　2.5 通过数据库管理可以修改相应数据，且规范数据库数据类型，避免信息统计不准确。 　　2.6 通过上报数据功能实现数据人性化处理和即时共享。 　　2.7 学期数据转结主要是减少了数据冗余。 　　2.8 数据安全保密，每次登录系统需要进行身份验证。 　　库房管理系统数据关系图（如图1） 　　3 系统结构、功能设计（如图2） 　　4 报表生成 　　系统内各类查询功能均可以根据学院原先报表样式生成相应电子报表，方便打印存档。为解决各类报表数据类型不统一问题，则在后台设计了一个临时工作表，此工作表可以根据报表生成时的一些代码命令临时存放一些数据，关闭报表的同时清空当前数据。 　　5 数据统计分析、查询、转结等 　　5.1 在打开统计功能时，通过触发事件命令运行事先设置好的数据透视表功能，则可以实时按要求实现各类数据的统计汇总。 　　5.2 通过命令代码实现部分数据的查询统计功能（例：出库情况查询统计） 　　Sub 出库统计（） 　　Sheets（缓存表）.Cells.ClearContents 　　Sheets（缓存表）.Range（A1：I65535）.Value = Sheets（数据表）.Range（A2：I65535）.Value 　　Sheets（出入库统计）.Range（A3：F65535）.ClearContents 　　Dim arr，brr（），i%，j% 　　arr =[a1].CurrentRegion 　　ReDim brr（1 To UBound（arr），1 To 6） 　　For i = 1 To UBound（arr） 　　If arr（i，7） Then 　　j = j + 1 　　brr（j，1）= arr（i，1） 　　brr（j，2）= arr（i，2） 　　brr（j，3）= arr（i，3） 　　brr（j，4）= arr（i，6） 　　brr（j，5）= arr（i，7） 　　brr（j，6）= arr（i，8） 　　End If 　　Next i 　　Sheets（出入库统计）.[a2].Resize（UBound（brr），6）= brr 　　End Sub 　　5.3 通过命令代码实现学期数据转结功能（例：学期数据转结） 　　Sub 学期数据结转（） 　　ThisWorkbook.RefreshAll 　　Sheets（数据转结缓存）.Cells.ClearContents 　　Sheets（数据转结缓存）.Range（A1：F65531）.Value = Sheets（库存盘点）.Range（A5：F65535）.Value 　　r = Range（A65536）.End（xlUp）.Row 　　For h = r To 1 Step -1 　　If Cells（h，5）= Or Cells（h，5）= 0 Then Cells（h，2）.EntireRow.Delete 　　Next 　　Sheets（数据转结缓存）.Range（B1：B65535，C1：C65535，F1：F65535）.ClearCo