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

No.1

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

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

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

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

No.2

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

右側為一些操作按鈕，分別實現不同的功能。

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

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

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

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

也可實現記錄表刪除功能。

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

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

No.3

下面看一下代碼：

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

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

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

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

設備名稱和代碼匹配代碼：

Private Sub Worksheet_Change(ByVal Target As Range)

設置設備代碼

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

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

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

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

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

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

結尾

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

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

歡迎關注、收藏。

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

責任編輯：