用EXCEL宏转工资条.docVIP

用EXCEL宏巧转工资条 诸暨市教育局核算中心 许国 浙江省诸暨市浬浦中学 吴光校 【摘要】用Excel电子表格来处理工资已相当普遍，介绍简单工资条的生成方法也很多，但要处理复杂工资表头的方法就没见过了，本文利用VBA功能，用简短的语句实现了复杂表头的转换，通过按一个命令按钮即可生成表头复杂的工资条，让你亲身体会一下自动化的感受。 【关键词】Excel电子表格 工资条 VBA 用Excel电子表格来处理工资不但设置方便、灵活，而且不用额外花费，因而使用的单位越来越多，并且实行了银行代发，单位职工不用在工资发放表上签字了，这样一来，职工只能通过工资条来获知自己应得的工资。虽然报刊杂志上对用Excel电子表格来生成工资条的方法介绍的也较多，如Excel函数法、复制粘贴法等，但都只能处理一行表头等比较简单的工资条，如要处理如图１所示如此复杂的工资表头的方法就没有见过了。而且用上述 图１ 方法在增减人员或工资项目时，又得重新处理，相当麻烦。笔者经过分析，用 Excel电子表格的VBA功能能够轻松实现复杂工资表头的转换，而且代码简单，通俗易懂，也不会因人员增减或工资项目变动而重新处理。 一、基本思路 根据表中每个职工工资具有唯一序号的特点，使用VBA里的判断语句，让循环从第一个序号开始，如果Excel表中相邻两行的序号不同，就在这两行之间插入四个空白行，然后使用循环语句，把表头的内容依次复制粘贴到对应的空白行中。 二、解决办法 1、在Excel中打开需要制作工资条的工资表文件，如图1中的“在职发放表”，并新建一张工作表，命名为“在职工资条”。 2、执行[工具] →［宏］→［Visual Basic编辑器］命令，进入VBA编辑状态，执行［插入］→［模块］命令，插入一个新模块（模块1）然后在代码编辑窗口输入如下代码。 Sub gzt() Dim Irow As Integer, Icol As Integer 定义Irow取得行数,Icol取得列数 Application.ScreenUpdating = False Sheets(在职工资条).Activate 激活在职工资条工作表 Cells.Select 选择在职工资条工作表的所有内容 Selection.Delete Shift:=xlUp 进行删除 将在职明细表内容完整复制到在职工资条表中 Sheets(在职明细表).[A1].CurrentRegion.Copy Sheets(在职工资条).[A1] Rows(1:2).Select 选中在职工资条中的第一行和第二行并删除 Selection.Delete Shift:=xlUp Irow = [A1].CurrentRegion.Rows.Count 取得在职工资条中的行数 a = (Irow - 4) * 5 定义循环变量的值为在职工资条中职工数减去4行后的5倍 Icol = [A1].CurrentRegion.Columns.Count 取得在职工资条中列数 For i = 4 To a Step 5 数据从第4行开始,步长为5 如果第一列(职工的工资序号)上下单元格的值不相等，则在它们之间插入四个空行 If Cells(i, 1) Cells(i + 1, 1) And Cells(i, 1) Then Rows(i + 1).Insert Rows(i + 1).Insert Rows(i + 1).Insert Rows(i + 1).Insert End If 如果第一列中的单元格为空，则将表中的工资清单表头项目复制到此行的下一行 If Cells(i, 1) And Cells(i + 1, 1) = And Cells(i + 2, 1) _ = And Cells(i + 3, 1) = And Sheets(2).Cells(i + 4, 1) = Then Range(Cells(1, 1), Cells(3, Icol)).Copy Cells(i + 2, 1) End If 选择上述每次循环插入的第四个空行(此行为工资条裁剪行),进行单元格合并居中 _ 并设置行高为22 Range(Cells(i + 1, 1), Cells(i + 1, Icol)).Select With Selection .Horizo