1 单位设备管理现状
本人所在单位是一所高校，过去设备长期使用手工管理的方式，近年随着设备数量增加，虽然部分使用Excel，但是因为管理过程中经手人太多，Excel的使用水平参差不齐，再加上没有标准的规范。导致了目前整个设备管理混乱、低效。鉴于这种情况，学校决定全面采用信息化管理。
2 解决方案
为了改变单位设备管理现状，我们采用Excel管理设备，并通过VBA自动实现。
在Excel中建立“设备详细信息”表、“校园楼宇分布示意图”表和“楼层房间分布示意图”表。在后文中分别称为信息表、校园图、楼层图。在校园图中显示出楼字的分布位置。楼层图中显示出该楼各层平面结构，并统计出每个房间的设备种类和数量。需要了解房间设备具体情况时，通过某个操作(如双击房间)，快捷、准确地显示该房间设备的详情。
3 方案的具体实施
3.1 建立“信息表”该表内容为设备各种属性，越全面越好。需要注意的是，每台设备建立一条记录，如1个房间有多台同样设备就要有多条记录，每条记录编号等信息应不同。
3.2 建立“校园图”和各楼宇的“楼层图”用绘制自定义图形画出每一栋楼的外形，然后按照它的地理位置将它分布到合适位置，这样就画出了整个校园的楼宇分布图。
给单元格写入门牌号模拟1个房间，按照房间分布情况1层层排列单元格，就画出了每栋楼的“楼层图”。我们用1张工作表建立1栋楼的示意图，并且将表名称改为对应楼名称。我们在每个门牌号下方留出1个空单元格，调整到合适大小用来填写统计的设备种类和数量。
3.3 校园图→楼层图在“校园图”中，选中1个楼宇→右键单击→超链接→本文档中对应“楼层图”所在的工作表。这样将来直接单击它就会打开对应楼的“楼层图”。
3.4 统计每个房间的设备情况通过门牌号要在“信息表”中统计出该房间各类设备的数量，并填到下方空单元格内。
a)建立1个“统计数量”表
b)表格第1行建立表头，内容为“门牌号、设备类型”
c)表格第A列第2行开始填入所有房间的门牌号
d)以门牌号在“信息表”中查询出该房间各类设备数量填入对应类别下
公式说明：该公式用sumproduct函数在“信息表”F列(设备信息中F列为地址)中查询和“统计数量表”$A17(为具体门牌号地址，如：4-206)内容相同的记录，同时又在G列(设备信息中G列为设备类型)中查询和B$1(“统计数量”表头中的设备类型)相同的记录。当2个条件都满足是记一次数。最终统计出全部3000记录中符合条件的设备总数。用同样方法得到其他类别设备总数
e)用字符串运算符“＆”将统计总数变成文字
字符运算符＆，可以直接将前后字符链接起来。
公式说明：B3是设备数量(如为1)，B1是设备类别(如为计算机)，结果是“1台计算机：”。IF用来判断房间没有该类型设备时的情况。
用同样方法将别的类型变成文字描述。再用“＆”将它们都连起来，就形成了该房间设备的完整文字描述。如：“1台计算机；2台打印机；3台笔记本”。
f)将上面的结果直接引用到“楼层图”中门牌号下方空单元格内显示
3.5 双击门牌号单元格时，高亮显示该房间设备详细记录后面的功能我们用VBA代码编写的宏实现。
This WorkBook中的代码：
“双击鼠标左键”事件宏：这个宏用来在工作表中发生“双击鼠标左键”事件时，调用“高亮显示对应记录”宏Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object，ByVal Trarget As Range，Cancel As BooLEAN)高亮显示对应记录
End Sub
模块中的代码：
“高亮显示对应记录”宏：这个宏用来在双击一个门牌号单元过后，将地址相对应的记录设置为高亮。过程如下：
a、将被双击的“门牌号”赋值给1个变量。b、选取信息表→清除整个背景色→字体设为默认色。c、用For Next建立1个循环，循环次数为表中据记录条数。d、在循环中将每一记录对应地址单元格内容和赋值变量比较，当相同时把这一行设置为高亮，进行下一次循环。否则直接进行下一次循环。e、将“门牌号”输出到屏幕。
到此为止设计要求已经实现。但为使用户获得更好的视觉效果，同时防止误操作。
3.6 界面的设置This WorkBook中的代码：
“打开文档时显示指定工作表并隐藏部分Excel系统功能”宏：这个宏在Excel文档打开是执行，显示“校园图“工作表，并运行“HideMenu”宏(该宏用来隐藏部分Excel系统功能)
“关闭Excel时恢复Excel系统功能”宏这个宏在通过Excel系统功能关闭时执行，运行“ShowMenu”宏(该宏用来恢复Excel系统功能)
模块中的代码：
“隐藏部分Excel系统功能”宏：
通过上面的代码文档打开时就会将Excel部分系统功能隐藏，所以用户将无法退出系统和在工作表中切换。这个问题可以使用按钮实现，为了界面美观，我们没用“控件”。而用了自定义图形岭指定宏来实现，因为自定义图形可以设置背景和边框。
3.7 制作按钮
“返回楼层图“宏：按钮放在信息表中，当用户双击门牌号高亮显示对应记录后，用来返回。
“退出系统”宏：这个按钮放在校园图中用来退出系统。下面代码中首先恢复系统功能，然后设置对所有改的都默认不保存，最后直接退出Excel。
核心关注：拓步ERP系统平台是覆盖了众多的业务领域、行业应用，蕴涵了丰富的ERP管理思想，集成了ERP软件业务管理理念，功能涉及供应链、成本、制造、CRM、HR等众多业务领域的管理，全面涵盖了企业关注ERP管理系统的核心领域，是众多中小企业信息化建设首选的ERP管理软件信赖品牌。
转载请注明出处：拓步ERP资讯网http://www.toberp.com/
本文标题：VBA在设备管理信息化中的应用
相关文章
