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.guhuozai8.cn/
本文標題：VBA在設備管理信息化中的應用
相關文章
