上一節介紹了生産管理當中的人員管理，本文介紹一下人員管理當中的職務相關内容。

職務管理其實很簡單，不同的人分配不同職務，但是職務上面有一些相關定義，根據不同公司或企業有不同的相關聯系内容，比如工作系數，職務薪酬，職務職責範圍，等等。

什麼樣的職務做什麼樣的工作，明确定義之後，就會對管理有一個明确的方向，一旦出現問題也好應對，按章辦事就簡單多了。

具體操作如下圖所示，實現了對不同人員的職務分配操作。

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

兩個列表框，左側列表為已經定義的人員職務情況，選擇後可以實現删除人員，右側為所有員工列表，可以從這裡新增人員。

下圖為班組管理當中的人員分配過程，和職務管理有相同之處，隻是多一些信息。

代碼

Private Sub AddJob() '添加職工職務 On Error Resume Next Dim y As Worksheet, R As Range, ri As Long Set y = GetSheet(xInfo) If y Is Nothing Then Exit Sub ri = y.Range("B" & y.Rows.Count).End(xlUp).Row Set R = y.Range("B2:B" & ri) 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.AddItem 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 End If Next li Set R = Nothing Set y = Nothing End Sub

代碼不能直接使用，可通過對代碼理解來增加vba編程的一些學習。

之後還有獎金管理和出勤管理，獎金管理中可能涉及到加班管理等内容。

安全生産管理中的對人的管理是最重要的部分，所以，有必要仔細完整地制作一下。

歡迎關注、收藏

---END--

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