VBA编程，生产管理系统制作之人员管理

生产管理是一个综合管理项目，其中包含5大分类：人、机、料、法、环。

本文将介绍对于人的管理几个重点，当然重点在于如何实现对人的管理。

下图为制作过程，首先要制作一个表单，形式可以自己选择，本示例选择使用分页控件来区别各个管理模块，在表单左侧可以看到切入按钮。顶部有对人的管理其它项目。

说起人员管理，主要是对人进行个人信息统计，建立台账，班组分类，人员职务管理，奖金出勤等等的管理。

具体操作如下图所示：

可以对员工实现增减，修改，还是很方便的。

人员管理得到合理调节，对于生产起到了十分重要的作用。

添加员工

Private Sub Addinfo()
''''' ************ 添加员工信息
On Error Resume Next
If xSheet Is Nothing Then Exit Sub
ClearTextControlSource
If Not xSheet.Range("B1:B56666) Is Nothing Then Exit Sub
' 如果没有找到 添加信息
xSheet.Rows(2).Insert
Dim i As Integer
For i = 1 To UBound(xtobj)
    If i = 1 Then
        xSheet.Cells(2, i).Value = "=row()-1"
    Else
        xSheet.Cells(2, i).Value = xtobj(i).Value
    End If
Next i
'''' 刷新数据
Dim xR As Range
Set xR = xSheet.Range("A1:N1")
SetListView Me.ListView1, xSheet, xR
Set xR = Nothing
'''' 清空对象值
For i = LBound(xtobj) To UBound(xtobj)
    xtobj(i).Value = ""
Next i
End Sub

通过代码实现自动化操作是提高生产力的重要手段，更别说未来将实现智能化操作，也就是说发出更加人性化的语音指令就可以实现自动化操作。

通过简单的编码来实现生产管理的各方面内容，也是一个很好尝试。

欢迎关注、收藏

---END---