原標題：設(shè)備檢修記錄管理，全自動Excel工作表制作方法

No.1

設(shè)備檢修是安全生產(chǎn)過程當中很重要的環(huán)節(jié)，是安全生產(chǎn)預防為主的重點體現(xiàn)。

既然是檢修作業(yè)，那么就要留下工作痕跡，記錄管理也要做到完善。

如果是一些同質(zhì)化的表格記錄，可以利用Excel高效地完成這些記錄操作。

本節(jié)重點介紹一下，如何制作檢修記錄管理的操作過程。

No.2

如下圖所示，主要的維修記錄模版大概就是這個樣子，也是所有檢修記錄操作的主頁。

右側(cè)為一些操作按鈕，分別實現(xiàn)不同的功能。

技術(shù)要求、施工方案、檢修人員這三個按鈕實現(xiàn)對表格的輸入功能，單擊按鈕后彈出一個對話框，分別進行內(nèi)容輸入，確定之后，自動添加到表格里。

下圖為，單擊檢修人員按鈕彈出檢修人員列表框，這些人員都是自定義預設(shè)在表格內(nèi)的姓名。

檢修記錄按鈕可實現(xiàn)對檢修記錄表查看，刪除的一些功能。

檢修記錄列表，可自動查找出所有記錄表，正常情況下，這些表都設(shè)置了隱藏模式，單擊查看按鈕可自動顯示，進行修改、打印等操作。

也可實現(xiàn)記錄表刪除功能。

選擇某一個記錄列表，單擊刪除記錄按鈕，記錄表就刪除了。

打印預覽、和保存記錄也是十分實用的兩個功能。

No.3

下面看一下代碼：

上圖代碼為保存記錄表的按鈕代碼，其功能是將編輯完成的表進行保存，首先對記錄表進行一個檢重處理，也就是說是否已經(jīng)保存過了，如果表已經(jīng)存在，那么就刪除以前的表。

如果是第一次保存，就進行保存。

為什么要對表進行保存，這是一個十分重要的過程，如果不保存那么就沒有記錄的意義。

而所有操作都在這一個表進行操作，所以，要對當前編輯的表另外復制到一個新表里面。

設(shè)備名稱和代碼匹配代碼：

Private Sub Worksheet_Change(ByVal Target As Range)

設(shè)置設(shè)備代碼

If Not Target.Address = "$B$2" Then Exit Sub

Dim S As Worksheet, cell As Range, cR As Range, ri As Integer

Set S = ThisWorkbook.Worksheets("set")

ri = S.Cells(S.Rows.Count, 1).End(xlUp).Row

If ri <= 1 Then Exit Sub

Set cell = S.Range("A2:A" & ri)

Set cR = cell.Find(what:=Target.Value, LookIn:=xlValues, lookat:=xlWhole)

If Not cR Is Nothing Then

Target.Offset(0, 2).Value = cR.Offset(0, 1).Value

Else

Target.Offset(0, 2).ClearContents

End If

End Sub

為什么要進行設(shè)備名稱和設(shè)備代碼的自動匹配，這里是為了更方便地以設(shè)備名稱和代碼錄入編制了一些代碼。

代碼放在Worksheet_Change過程里，這個過程觸發(fā)的條件是當表格內(nèi)容發(fā)生改變的時候。

做了一些條件判斷，當改變的單元格為設(shè)備名稱單元格的時候，執(zhí)行以上代碼。

也就是說，當選擇某一個設(shè)備名稱的時候，相應的設(shè)備代碼自動更新。

默認設(shè)備代碼和設(shè)備名稱應該是一一對應的。

結(jié)尾

總體來說，檢修記錄表的功能都實現(xiàn)了，不足之處沒有做一結(jié)統(tǒng)計。

如果增加一些統(tǒng)計，對設(shè)備檢修管理是一個很有用的數(shù)據(jù)，那樣就對某些經(jīng)常維修的設(shè)備有一個清楚的認識。

歡迎關(guān)注、收藏。

---END---返回搜狐，查看更多

責任編輯：