EXCEL人事工资管理系统操作全过程 - 图文

l-z File

6、激活人事管理菜单

为了能使上面创建的“人事管理系统”菜单能够使用，必须使用程序激活，可在工作簿的

VBE窗口中插入一个模块5完成，其完整代码如下：

Private Sub 在职名册表() Sheets(\事业\End Sub

Private Sub 在职审批表() Sheets(\事业审批表\End Sub

Private Sub 在职报批表()

Sheets(\事业(报批表)\End Sub

Private Sub 离退休名册表() Sheets(\离退休\End Sub

Private Sub 离退休审批表() Sheets(\离退休审批表\End Sub

Private Sub 离退休报批表()

Sheets(\离退休(报批表)\End Sub

代码说明：以上代码是在分别单击“人事管理系统”菜单中的“在职名册表”等子菜单时，激活自定义菜单，然后相应激活各自的工作表，激活后即可对工作表进行操作。

2007年3月15日

通讯地址：浙江省诸暨市滨江中路19号会计核算中心 许国 办公室电话 05757375026 邮政编码311800 Email：xuguo@zjjy.com 网址：http://www.zjhszx.cn

至此，系统登录窗口的设计工作完成，为用户提供了一个比较友好的人机交互界面。

9

l-z File

最新EXCEL人事工资管理系统

——设计在职人员工改名册表（一）

诸暨市教育局核算中心 许 国 诸暨市教育局 郑文建

进入系统后，选择【人事管理系统】 →【事业在职】→【在职名册表】菜单，即可打开“诸暨市事业单位工作人员收入分配制度改革名册表”（以下简称在职名册表），如图9。

图9

四、在职名册表

1、按工改的要求设计好此表格的相应栏目，然后输入单位工作人员的相关信息，其中A列至S列的信息由手工输入，W列的信息如果与K列的信息一致，则可由计算自动给出，如果不一致，则需手工输入，这里我们暂以手工输入为例说明，其他列的信息由计算机自动给出。

2、表中的岗位名称，职务名称要统一标准。 （1）岗位名称分为管理、专技、工人、见习。

（2）职务名称要按岗位分为四大类，其中管理岗位的职务名称分为处级正职、处级副职、科级正职、科级副职、科员、办事员；专技岗位的职务名称分为正高、副高、中级、助理级、员级；工人岗位的职务名称分为高级级技师、技师、高级工、中级工、初级工、普工。见习岗位（即新分配人员）的职务名称为见习。

（3）岗位为见习的人员，由于在城区和非城区工作其工资标准有差别，必须在备注栏列注明是“城区”还是“非城区”。

10

l-z File

3、需要手工输入的信息录入完成后，我们就需要对计算机自动给出的列进行处理。 （1）T列（工改前工资中的津贴30%）、U列（工改前工资中的10%浮动工资）和AB列（工改后工资中的10%浮动工资）工资标准的处理。

在工作簿的VBE窗口中插入一个模块6，并输入代码如下：

Private Sub 津贴30及浮动10()

Row = Worksheets(\事业\取得行数 Application.ScreenUpdating = False '关闭屏幕更新 For i = 8 To Row

'如果J列I行单元格为\管理\或者\专技\那么T列,U列,AB列的公式如下 If Range(\管理\专技\

Range(\Range(\

Range(\'如果J列I行单元格为\工人\那么T列的公式如下,,U列和AB列的值为15 ElseIf Range(\工人\

Range(\Range(\Range(\

'如果J列I行单元格为\见习\并且AF列I行单元格为\非城区\那么T列的公式如下,,U

列和AB列的值为0

ElseIf Range(\见习\非城区\Range(\Range(\Range(\

'如果J列I行单元格为\见习\并且AF列I行单元格为\城区\那么T列,U列,AA列和AB

列的值为0

ElseIf Range(\见习\城区\Range(\Range(\Range(\Range(\End If: Next i

Application.ScreenUpdating = True '打开屏幕更新 End Sub

代码说明：以上代码是在先判断J列I行单元格以及AF列I行单元格的内容，然后根据此内容对T列、U列和AB列进行处理，自动获得相应公式或数值。

上述代码输入完成后退出并保存，然后在【工具】 →【宏】菜单中运行“津贴30及浮动

10”宏，即可得到T列、U列和AB列的值。

（2）Y列单元格的数据处理。

Y列为工改后的岗位工资标准，岗位工资的标准是根据现任职称或职务而定的，如中级职

称为680元， 要使此列的标准自动给出，需建立一个自定义函数，具体可在工作簿的VBE

11

l-z File

窗口中插入一个模块7完成，其完整代码如下：

Function gz(a As String) As Single gz = 0

'如果职务为处级正职，那么岗位工资为1045 If a = \处级正职\ ElseIf a = \处级副职\ ElseIf a = \科级正职\ ElseIf a = \科级副职\ ElseIf a = \科员\ ElseIf a = \办事员\ ElseIf a = \正高\ ElseIf a = \副高\ ElseIf a = \中级\ ElseIf a = \助理级\ ElseIf a = \员级\ ElseIf a = \高级技师\ ElseIf a = \技师\ ElseIf a = \高级工\ ElseIf a = \中级工\ ElseIf a = \初级工\ ElseIf a = \普工\Else: End If End Function

代码说明：以上代码是一个自定义函数，函数名gz，a为变量，代表职称或职务，如职务为处级正职，则岗位工资为1045元。

2007年3月15日

上述代码输入完成后退出并保存，在Y8单元格中输入“=gz(w8)”，可得到Y8单元格的

值，向下拖动此公式可得到其他单元格的岗位工资标准。

此文在《软件报》2007年第14期开始连载

通讯地址：浙江省诸暨市滨江中路19号会计核算中心 许国 办公室电话 05757375026 邮政编码311800 Email：xuguo@zjjy.com 网址：http://www.zjhszx.cn

12