|
上一节介绍了生产管理当中的人员管理，本文介绍一下人员管理当中的职务相关内容。 职务管理其实很简单，不同的人分配不同职务，但是职务上面有一些相关定义，根据不同公司或企业有不同的相关联系内容，比如工作系数，职务薪酬，职务职责范围，等等。  什么样的职务做什么样的工作，明确定义之后，就会对管理有一个明确的方向，一旦出现问题也好应对，按章办事就简单多了。 具体操作如下图所示，实现了对不同人员的职务分配操作。  看上去十分简单，实际上也不难，但是其中的处理逻辑就要用一点时间去解决。 两个列表框，左侧列表为已经定义的人员职务情况，选择后可以实现删除人员，右侧为所有员工列表，可以从这里新增人员。 下图为班组管理当中的人员分配过程，和职务管理有相同之处，只是多一些信息。  代码 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-- |
|
|
