生產(chǎn)管理是一個綜合管理項目，其中包含5大分類：人、機、料、法、環(huán)。

本文將介紹對于人的管理幾個重點，當然重點在于如何實現(xiàn)對人的管理。

下圖為制作過程，首先要制作一個表單，形式可以自己選擇，本示例選擇使用分頁控件來區(qū)別各個管理模塊，在表單左側(cè)可以看到切入按鈕。頂部有對人的管理其它項目。

說起人員管理，主要是對人進行個人信息統(tǒng)計，建立臺賬，班組分類，人員職務管理，獎金出勤等等的管理。

具體操作如下圖所示：

可以對員工實現(xiàn)增減，修改，還是很方便的。

人員管理得到合理調(diào)節(jié)，對于生產(chǎn)起到了十分重要的作用。

添加員工

Private Sub Addinfo()

''''' ************ 添加員工信息

On Error Resume Next

If xSheet Is Nothing Then Exit Sub

ClearTextControlSource

If Not xSheet.Range("B1:B56666) Is Nothing Then Exit Sub

' 如果沒有找到 添加信息

xSheet.Rows(2).Insert

Dim i As Integer

For i = 1 To UBound(xtobj)

If i = 1 Then

xSheet.Cells(2, i).Value = "=row()-1"

Else

xSheet.Cells(2, i).Value = xtobj(i).Value

End If

Next i

'''' 刷新數(shù)據(jù)

Dim xR As Range

Set xR = xSheet.Range("A1:N1")

SetListView Me.ListView1, xSheet, xR

Set xR = Nothing

'''' 清空對象值

For i = LBound(xtobj) To UBound(xtobj)

xtobj(i).Value = ""

Next i

End Sub

通過代碼實現(xiàn)自動化操作是提高生產(chǎn)力的重要手段，更別說未來將實現(xiàn)智能化操作，也就是說發(fā)出更加人性化的語音指令就可以實現(xiàn)自動化操作。

通過簡單的編碼來實現(xiàn)生產(chǎn)管理的各方面內(nèi)容，也是一個很好嘗試。

歡迎關注、收藏

---END---