本文本繼續上一節内容人機管理中的設備管理進行，主要有兩個部分，一個是設備故障管理，一個是特種設備檢測鑒定記錄管理。

設備故障管理，也是一個動态過程，因為動設備不可避免地發生故障問題，這是設備管理當中十分重點的内容。一個良好的管理行為過程，可以使設備正常連續運行，是我們在生産當中希望發生的事情。

通過對設備故障的分析和判斷，可以有效提高避免設備故障出現頻次，增加設備正常運行時間，提高生産效率，所以設備故障管理是一個十分必要的處理過程。

如上圖所示，可以實現對故障問題進行記錄、查詢、搜索、統計和打印操作。

從而實現，掌握設備故障發生的概率和頻率。

第二部分是特種設備的檢測和鑒定管理，這部分一般企業可能很少遇到，特别是特種設備較多的企業，如化工，煤礦，高危行業涉及的多。

特種設備的安全直接關乎對人的安全，所以，根據國家安全法律要求，特種設備需要定期進行核驗鑒定工作，這樣就可以盡最大可能因設備問題發生安全問題。

所以對此類設備，進行質量檢定就十分必要，通過上面的圖片，可以看到操作過程。

可以對設備進行檢定記錄、查詢、修改、删除、打印和到期提示。

代碼

Public Sub SetListViewDate(xlist As Object, xs As Worksheet, xDays As Variant, xic As Long)

'查詢并設置ListView數據

'xdays 查詢時間條件

'xic 條件列号

On Error Resume Next

If J Is Nothing Then Exit Sub

xDays = VBA.CInt(xDays)

If Not VBA.IsNumeric(xDays) Then Exit Sub

Application.ScreenUpdating = False

Dim ir As Long, ic As Long, i As Integer, jj As Long

Dim r As Range

ir = J.Cells(J.Rows.Count, 1).End(xlUp).Row

ic = J.Cells(1, J.Columns.Count).End(xlToLeft).Column

If ic < 1 Then Exit Sub

Set r = J.Cells(1, 1).Resize(1, ic)

With xlist

.ListItems.Clear

If xDays > 365 Then Exit Sub '如果大于1年

For jj = 2 To ir

If VBA.DateDiff("d", VBA.Date, VBA.CDate(J.Cells(jj, xic).Value)) <= xDays Then

If VBA.DateDiff("d", VBA.Date, VBA.CDate(J.Cells(jj, xic).Value)) > 0 Then

With .ListItems.Add

.Text = J.Cells(jj, 1).Value

For i = 2 To ic

.SubItems(i - 1) = xs.Cells(jj, i).Value

Next i

End With

End If

End If

Next jj

End With

Set r = Nothing

Application.ScreenUpdating = True

End Sub

至此，人機管理方面的内容，全部結束，也基本實現了相應的管理操作。

繼續完善的同時，再進行對料、法、環方面的編寫内容。

歡迎關注、收藏

---END---

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!