vba 订单管理（生产管理系统之职务管理）

上一节介绍了生产管理当中的人员管理，本文介绍一下人员管理当中的职务相关内容。

职务管理其实很简单，不同的人分配不同职务，但是职务上面有一些相关定义，根据不同公司或企业有不同的相关联系内容，比如工作系数，职务薪酬，职务职责范围，等等。

什么样的职务做什么样的工作，明确定义之后，就会对管理有一个明确的方向，一旦出现问题也好应对，按章办事就简单多了。

具体操作如下图所示，实现了对不同人员的职务分配操作。

看上去十分简单，实际上也不难，但是其中的处理逻辑就要用一点时间去解决。

两个列表框，左侧列表为已经定义的人员职务情况，选择后可以实现删除人员，右侧为所有员工列表，可以从这里新增人员。

下图为班组管理当中的人员分配过程，和职务管理有相同之处，只是多一些信息。

代码

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--