高校业绩津贴管理中Excel VBA的应用

摘要：根据高校业绩津贴管理的特点和实际需求，开发运用 Excel VBA程序，提高业绩津贴管理的规范性和准确性。
　　关键词：业绩津贴 VBA 应用
　　
　　Excel是高校津贴管理的重要工具，经常被用于津贴的汇总、发放、统计等方面。Excel VBA就是将Excel作为开发平台来开发应用程序，通过记录宏直接生成宏程序代码来对Excel工作表行控制，从而实现对Excel工作表数据处理的自动化。
　　一、需求分析
　　高校业绩津贴主要指学校根据各二级单位的人员结构及全年完成的教学、科研、论文、专利、奖项、人才引进等任务数量，按照高校总体的核拨方案，核算各二级单位的总的津贴，扣除二级单位年度按月预支的校内津贴后，剩余的部分作为二级单位的业绩津贴。业绩津贴具有激励性绩效工资的属性，主要用于奖励对学院及学校发展有突出贡献的教职工。业绩津贴的发放一般采用年终一次性发放的方式。由于各二级单位所完成的总体任务中，存在不同单位之间互相合作的情况，因此年度业绩津贴的发放会存在同一职工在不同二级分配单位同时出现的情况，不同的二级单位会根据其工作情况发放相应的业绩津贴。这就需要查找出同一职工在不同单位获得的业绩津贴，并进行汇总求和后送财务处发放。具体如表1所示（某高校2008年度业绩津贴发放表），那么就需要对通信工程学院的张一和黄飞所享受的业绩津贴进行求和汇总，并只保留有总数的一行即可。
　　上述需求，对于人员较多的高校，如果采用手动方式，数据的处理会显得十分复杂，Excel中的Vba语言能够很好地处理上述问题。
　　二、解决方案
　　对于需求分析后，发现数据存于一个Excel表格中，运用函数的方法也可实现目标，具体可以使用Countif函数和Sumif函数。但运用上述两个函数后仍需要手工筛选和删除，并且函数在数据量很大的情况下运行速度不及Vba程序的速度，因此采用程序会更加高效快捷。具体步骤如下：
　　① 打开表格所在文档，为表格起名为sheet1。
　　② 按Alt+Fll快捷键，进入VBA代码编写窗口，点击菜单—插入—模块，新建模块1，点击模块1，在代码窗口输入以下命令后运行：
　　Sub compare ()
　　Dim i As Integer, j As Integer, m As Integer '定义变量
　　Dim row As Integer, row1 As Integer
　　row = 8 '取表格的总行数
　　row1 = row
　　For i = 1 To row - 1 '循环用于查找相同人员
　　If Cells(i, "g") <> "DELETE" Then '如果已经添加删除标记，不进行下列循环
　　For j = i + 1 To row
　　If Cells (j, "e") = Cells (i, "e") and Cells (j, "d") = Cells (i, "d") Then '判断工资号及姓名是否相等，相等则执行以下程序
　　 Cells(i, "f") = Cells(i, "f") + Cells(j, "f") '对同一职工业绩津贴求和
　　 Cells(j, "g") = "DELETE" '添加删除标记
　　End If 、Next j、End If、Next i
　　For m = 1 To row1 '循环用于删除已添加删除标记记录
　　Cells(m, "g").Select
　　If ActiveCell = "DELETE" Then
　　Selection.EntireRow.Delete
　　row1 = row1 - 1
　　m = m - 1
　　End If、Next m、End Sub
　　③去掉表3中“发放单位”列。
　　经过上述三个步骤，得到表2中结果：
　　三、效果分析
　　使用EXCEL中Vba语言后，能够准确快捷地解决高校业绩津贴管理中存在的实际问题，相比较函数的处理方法，有其无可比拟的优势，为高校薪酬管理提供了科学高效的思路和方法。
　　参考文献：
　　[1] 熊高英.Excel Vba 在计算个人所得说中的应用[J].中国管理信息化，2008（4）：18—20
　　[2] 赵卫旭等.用VBA拓展Excel[J].中国管理信息化，2007（12）：37—39
　　[3] 孙海梅.高校岗位津贴制度实践与思考[J].黑龙江高教研究，2008（6）:46—48