Excel之VBA应用篇：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---