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

No.1

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

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

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

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

No.2

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

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

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

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

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

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

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

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

打印預(yù)覽、和保存記錄也是十分實(shí)用的兩個(gè)功能。

No.3

下面看一下代碼：

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

如果是第一次保存，就進(jìn)行保存。

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

而所有操作都在這一個(gè)表進(jìn)行操作，所以，要對當(dāng)前編輯的表另外復(fù)制到一個(gè)新表里面。

設(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

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

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

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

也就是說，當(dāng)選擇某一個(gè)設(shè)備名稱的時(shí)候，相應(yīng)的設(shè)備代碼自動(dòng)更新。

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

結(jié)尾

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

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

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

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

責(zé)任編輯：