上一節(jié)介紹了生產(chǎn)管理當(dāng)中的人員管理，本文介紹一下人員管理當(dāng)中的職務(wù)相關(guān)內(nèi)容。

職務(wù)管理其實(shí)很簡(jiǎn)單，不同的人分配不同職務(wù)，但是職務(wù)上面有一些相關(guān)定義，根據(jù)不同公司或企業(yè)有不同的相關(guān)聯(lián)系內(nèi)容，比如工作系數(shù)，職務(wù)薪酬，職務(wù)職責(zé)范圍，等等。

什么樣的職務(wù)做什么樣的工作，明確定義之后，就會(huì)對(duì)管理有一個(gè)明確的方向，一旦出現(xiàn)問(wèn)題也好應(yīng)對(duì)，按章辦事就簡(jiǎn)單多了。

具體操作如下圖所示，實(shí)現(xiàn)了對(duì)不同人員的職務(wù)分配操作。

看上去十分簡(jiǎn)單，實(shí)際上也不難，但是其中的處理邏輯就要用一點(diǎn)時(shí)間去解決。

兩個(gè)列表框，左側(cè)列表為已經(jīng)定義的人員職務(wù)情況，選擇后可以實(shí)現(xiàn)刪除人員，右側(cè)為所有員工列表，可以從這里新增人員。

下圖為班組管理當(dāng)中的人員分配過(guò)程，和職務(wù)管理有相同之處，只是多一些信息。

Private Sub AddJob()

On Error Resume Next

Dim y As Worksheet, R As Range, ri As Long

If y Is Nothing Then Exit Sub

ri = y.Range("B" & y.Rows.Count).End(xlUp).Row

If R Is Nothing Then Exit Sub

Dim xR As Range

Dim li As Long

For li = 0 To Me.ListBox2.ListCount - 1

If Me.ListBox2.Selected(li) = True Then

Set xR = R.Find(Me.ListBox2.List(li, 0))

If Not xR Is Nothing Then

If xR.Offset(0, 10).Value <> Me.TabStrip1.Tabs(Me.TabStrip1.Value).Caption Then

xR.Offset(0, 10).Value = Me.TabStrip1.Tabs(Me.TabStrip1.Value).Caption

Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = xR.Value

Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = xR.Offset(0, 1).Value

End If

End If

Next li

Set R = Nothing

Set y = Nothing

End Sub

代碼不能直接使用，可通過(guò)對(duì)代碼理解來(lái)增加vba編程的一些學(xué)習(xí)。

之后還有獎(jiǎng)金管理和出勤管理，獎(jiǎng)金管理中可能涉及到加班管理等內(nèi)容。

安全生產(chǎn)管理中的對(duì)人的管理是最重要的部分，所以，有必要仔細(xì)完整地制作一下。

---END--