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--
,免责声明：本文仅代表文章作者的个人观点，与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺，请读者仅作参考，并自行核实相关内容。文章投诉邮箱：anhduc.ph@yahoo.com
