浅谈Excel VBA在高校校内津贴管理中的应用

开篇：润墨网以专业的文秘视角，为您筛选了一篇浅谈Excel VBA在高校校内津贴管理中的应用范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！

excel作为常用的表格处理软件，是校内津贴管理的重要工具，经常被用于校内津贴的上报、汇总、审核、发放、统计等方面。本文结合高校校内津贴管理中的实际需求，开发并使用Excel中vba程序，满足津贴管理的高效、准确、规范的要求。

校内津贴 宏语言 应用

一、前言

Excel作为常用的表格处理软件，是校内津贴管理的重要工具，经常被用于校内津贴的上报、汇总、审核、发放、统计等方面。宏语言（即Visual Basic for Applications，简称VBA）是新一代程序，应用软件通用的宏控制语言，是VB的一个子集。

二、需求分析

高校中，校内津贴具有绩效工资的属性，依照教职工的劳动成果支付报酬，变动较为频繁，按月发放的校内津贴可分为基础津贴、岗位津贴等项目，大多采用校院二级管理模式，二级单位每月根据职工的工作情况进行考核并上报津贴，人事处从各单位上报的结果与上月津贴发放结果对比，筛选出校内津贴有变化的人员，并重新计算其本月的校内津贴发放数，其余人员仍旧按照上月标准发放。对于几千人的高校，每月校内津贴发生变化的人员是少数，如果每月都重新根据二级单位上报结果，重新汇总打印报表，工作量会大大增加，因此每个月只需要在上个月的基础上筛选出校内津贴变化的人员即可。具体需求如表1、表2所示：假定表1为某高校2008年2月津贴发放情况，表2为某高校内通信工程学院2008年3月上报的津贴预支报表，现在需要发放2008年3月的校内津贴，那么就需要根据表2的内容在表1中标识出校内津贴变动人员，并在表1中进行津贴调整。

三、解决思路及Vba编程

数据分别存放在两个表格之中，采用函数的方法难度很大，而且由于表2中数据排列顺序与表1不同，因此如果直接将表2中的数据复制到表1中操作，也难以实现，采用Vba编程解决是可行的，具体的步骤如下：

1.将表1和表2存放在同一个excel文档中，分别命名为sheet1和sheet2。

2.按Alt+Fll快捷键，进入VBA代码编写窗口，点菜单―插入―模块，新建模块1，点模块1，在代码窗口输入以下命令后运行：

Sub tt()

Dim Irow As Integer, irow1 As Integer, i As Integer, j As Integer

Irow = Sheet1.[a1].CurrentRegion.Rows.Count '取得（表1）行数

irow1 = Sheet2.[a2].CurrentRegion.Rows.Count

For i = 3 To Irow'数据从第3行开始

For j = 3 To irow1

If Sheet1.Cells(i, "d") = Sheet2.Cells(j, "d") And Sheet1.Cells(i, "c") = Sheet2.Cells(j, "c") And (Sheet1.Cells(i, "e") Sheet2.Cells(j, "e") Or Sheet1.Cells(i, "f") Sheet2.Cells(j, "f")) Then '核对工资号及姓名

Sheet1.Cells(i, "g") = "是"’在表1中津贴是否变动输入“是”

Sheet1.Cells(i, "e") = Sheet2.Cells(j, "e")’将表2中基础津贴赋予表1

Sheet1.Cells(i, "f") = Sheet2.Cells(j, "f")’将表2中岗位津贴赋予表1

End If

Next j

Next i

End Sub

3.将表1中表头日期改为2008年3月。

参考文献：

[1]熊高英.Excel Vba在计算个人所得说中的应用[J].中国管理信息化，2008，（4）.

[2]赵卫旭等.用VBA拓展Excel[J].中国管理信息化，2007，（12）.

[3]孙海梅.高校岗位津贴制度实践与思考[J].黑龙江高教研究，2008，（6）.

本文为全文原貌 未安装PDF浏览器用户请先下载安装 原版全文