员工信息管理在企业或公司里面是一个基本管理项目。
如果是一个小型公司或企业，完全可以用Excel来进行管理，毕竟人员流动不频繁，管理流程也较简单。
下面我们对整个管理流程及VBA实现过程进行一个整体介绍。
No.1
员工管理系统：
主要功能包括机构管理、信息录入、批量处理、查询输出、工资管理、系统管理、职务管理等。
本篇主要介绍功能有员工信息录入和机构管理两个模块。
信息录入是整个员工管理的入口，除了一些设置外，这里就是对人员信息管理的起步阶段。
包含了一个人的基本信息内容，有些做了预设处理，如编号、性别、学历、职务等。
显示控件大多以代码自动生成，根据数据表字段变化，也以任意扩展，所以普遍适用性比较强。
表单大小也随字段变化而自动调整。
No.2
职务管理很简单，单独拿来定义一个表进行处理。
只有三个字段序号、部门编号和部门。
表单内有添加、修改、删除三个常用功能。
可以对数据表进行增删改操作，调试完全通过。
根据本示例可扩展对其它表操作。
No.3
下面重点介绍代码实现
添加ListBox控件代码
Dim lobj as object
Set lobj = Me.Controls.Add("Forms.ListBox.1")'添加ListBox控件
With lobj
.Top = tobj.Top + tobj.Height + 10
.Width = Me.Width - 50
.Left = 20
.Height = Me.Height - .Top - 150
.ColumnCount =3
.ColumnHeads = True
.BackColor = RGB(111, 222, 112)
.BorderStyle = fmBorderStyleSingle
With .Font
.Size = 11
.Name = "微软雅黑"
End With
.RowSource = R.Offset(1, 0).Resize(R.Rows.Count, R.Columns.Count).Address
End With由于ListView控件实在不太友好，所以本次对数据表的显示应用ListBox控件来制作，希望对于不同的Excel版本有更加适用性。
添加ListBox方法就是下面这一句：
Me.Controls.Add("Forms.ListBox.1")
Me 代表当前窗体变量，也可以写作如下代码：
ThisWorkbook.VBProject.VBComponents ("FormName")
其中FormName是当前窗体名。
添加Label控件
Me.Controls.Add("Forms.Label.1")
添加TextBox控件
Me.Controls.Add("Forms.TextBox.1")
方法雷同，主要是添加类型要写正确。
信息录入按钮代码
Private Sub SaveInof()
Dim cObj As Object, cArr, x As Long
ReDim cArr(0)
For Each cObj In Me.Controls'遍历窗体控件
If TypeName(cObj) = "ComboBox" Or TypeName(cObj) = "TextBox" Then
'如果是ComboBox或TextBox控件就进行保存
If VBA.Len(VBA.Trim(cObj.Value)) = 0 Then MsgBox cObj.Name & "：不能是空值！": Exit Sub
If x = 0 Then
cArr(x) = "=row()-2"
Else
ReDim Preserve cArr(x)
cArr(x) = cObj.Value
End If
x = x + 1
End If
Next cObj
Dim inS As Worksheet, ir As Long, cr As Long, inR As Range
Set inS = SetAcsheet(Sinfo)
inS.Activate
ir = GetRow(inS, 1) + 1
cr = GetColumn(inS, 2)
Set R = inS.Range(inS.Cells(ir, 1), inS.Cells(ir, cr))'定义输入表格区域
R.Value = cArr'添加信息
End Sub以上代码是对员工信息录入表单进行的一个数据保存代码，要配合相应的表单进行处理，所以不要直接拿来用，会报错，如果喜欢可以对程序代码做一些相应的修改后再应用。
接下来会继续做其它功能。
欢迎关注、收藏