员工信息管理，VBA编程一步一步制作-01

员工信息管理在企业或公司里面是一个基本管理项目。

如果是一个小型公司或企业，完全可以用Excel来进行管理，毕竟人员流动不频繁，管理流程也较简单。

下面我们对整个管理流程及VBA实现过程进行一个整体介绍。

员工管理系统：

主要功能包括机构管理、信息录入、批量处理、查询输出、工资管理、系统管理、职务管理等。

本篇主要介绍功能有员工信息录入和机构管理两个模块。

信息录入是整个员工管理的入口，除了一些设置外，这里就是对人员信息管理的起步阶段。

包含了一个人的基本信息内容，有些做了预设处理，如编号、性别、学历、职务等。

显示控件大多以代码自动生成，根据数据表字段变化，也以任意扩展，所以普遍适用性比较强。

表单大小也随字段变化而自动调整。

职务管理很简单，单独拿来定义一个表进行处理。

只有三个字段序号、部门编号和部门。

表单内有添加、修改、删除三个常用功能。

可以对数据表进行增删改操作，调试完全通过。

根据本示例可扩展对其它表操作。

下面重点介绍代码实现

添加ListBox控件代码

DimlobjasobjectSetlobj=("")'添加ListBox控件=++10.Width==20.Height==3.ColumnHeads==RGB(111,222,112).BorderStyle==11.Name="微软雅黑"=(1,0).Resize(,).AddressWith

由于ListView控件实在不太友好，所以本次对数据表的显示应用ListBox控件来制作，希望对于不同的Excel版本有更加适用性。

添加ListBox方法就是下面这一句：

("")

Me代表当前窗体变量，也可以写作如下代码：

("FormName")

其中FormName是当前窗体名。

添加Label控件

("")

添加TextBox控件

("")

方法雷同，主要是添加类型要写正确。

信息录入按钮代码

PrivateSubSaveInof()DimcObjAsObject,cArr,xAsLongReDimcArr(0)'遍历窗体控件IfTypeName(cObj)="ComboBox"OrTypeName(cObj)="TextBox"Then'如果是ComboBox或TextBox控件就进行保存(())=0"：不能是空值！":ExitSubIfx=0ThencArr(x)="=row()-2"ElseReDimPreservecArr(x)cArr(x)==x+1IfNextcObjDiminSAsWorksheet,irAsLong,crAsLong,inRAsRangeSetinS=SetAcsheet(Sinfo)=GetRow(inS,1)+1cr=GetColumn(inS,2)SetR=((ir,1),(ir,cr))'定义输入表格区域=cArr'添加信息Sub

以上代码是对员工信息录入表单进行的一个数据保存代码，要配合相应的表单进行处理，所以不要直接拿来用，会报错，如果喜欢可以对程序代码做一些相应的修改后再应用。

接下来会继续做其它功能。