用Excel宏实现工资表巧转工资条 赛迪网--中国电脑教育报 文/邓亚思Excel具有强大的数据处理和打印输出功能，并且易学易用，是广大用户喜欢使用的电子表格处理软件。现在一些单位的财会人员喜欢用Excel打印本单位的职工工资总表与工资条，但在Excel中要将工资总表（如表1）手工地转换为工资条（如表2）则是一件比较烦琐的事，下面是我编写的一个Excel宏，运行这个宏就可将编辑好了的工资总表很方便地转换为工资条打印输出。 表1工资表 编号 日期 姓名 职务工资 各种补贴 应领数 扣水电 其他扣款 实发数 001 200109 邓卫平 15 002 200119 成文勇 15 … … … … … … … … … 表2工资条 编号 日期 姓名 职务工资 各种补贴 应领数 扣水电 其他扣款 实发数 001 200109 邓卫平 15 编号 日期 姓名 职务工资 各种补贴 应领数 扣水电 其他扣款 实发数 002 200109 成文勇 15 在Excel中新建一个文件，将其命名为“工资表与工资条”，在工作表“sheet1”中输入并编辑好本单位职工工资总表（如表1所示）后，点击“工具”菜单→“宏”→“宏…”→输入宏名“生成工资条”→创建，输入如下的宏的各行文本，输入完成后保存该宏。将工作表“sheet1”复制为另一个工作表“sheet2”中，使“sheet2”成为当前工作表，执行刚才创建的宏，即可很快将表1所示的工资表转换为表2所示的工资条。宏的内容如下：Sub生成工资条()'选择整个表去掉表格线Range("F1").Activate(xlDiagonalDown).LineStyle=xlNone(xlDiagonalUp).LineStyle=xlNone(xlEdgeLeft).LineStyle=xlNone(xlEdgeTop).LineStyle=xlNone(xlEdgeBottom).LineStyle=xlNone(xlEdgeRight).LineStyle=xlNone(xlInsideVertical).LineStyle=xlNone(xlInsideHorizontal).LineStyle=xlNoneRows("2:2").Select'选择第2行Shift:=xlDown'在第2行前插入一行，保持第2行为选中状态num=150'总人数×3，如工资表中有100人则为100×3即num=300col=14'工资表的栏数，如工资表有17栏则'col=17num1=4DoWhilenum1<=num'循环插入空行Range(Cells(num1,1),Cells(num1,col)).Select'选中第num1行的第1列到第col列Shift:=xlDownShift:=xlDownnum1=num1+3LoopRange(Cells(1,1),Cells(1,col)).Select=False'剪切复制模式无效'复制选择区域Range("A2").Select'选择A2单元格'从A2单元格起粘贴内容num2=5DoWhilenum2<=num'循环插入标题行Range(Cells(1,1),Cells(1,col)).Select=FalseCells(num2,1).Selectnum2=num2+3LoopRange(Cells(2,1),Cells(3,col)).Select=False(xlDiagonalDown).LineStyle=xlNone'定义表格边框线、内线样式(xlDiagonalUp).LineStyle=xlNoneWith(xlEdgeLeft).LineStyle=xlDouble.Weight=xlThick.ColorIndex=xlAutomaticEndWithWith(xlEdgeTop).LineStyle=xlDouble.Weight=xlThick.ColorIndex=xlAutomaticEndWithWith(xlEdgeBottom).LineStyle=xlDouble.Weight=xlThick.ColorIndex=xlAutomaticEndWithWith(xlEdgeRight).LineStyle=xlDouble.Weight=xlThick.ColorIndex=xlAutomaticEndWithWith(xlInsideVertical).LineStyle=xlDash.Weight=xlThin.ColorIndex=xlAutomaticEndWithWith(xlInsideHorizontal).LineStyle=xlDash.Weight=xlThin.ColorIndex=xlAutomaticEndWithRange(Cells(5,1),Cells(6,col)).SelectPaste:=xlFormats,Operation:=xlNone,SkipBlanks:=_False,Transpose:=False'接上行删除上行尾的连字符_，复制表格线样式num3=8DoWhilenum3＜=num'循环复制表格线样式Range(Cells(num3,1),Cells(num3+1,col)).SelectPaste:=xlFormats,Operation:=xlNone,SkipBlanks:=_False,Transpose:=Falsenum3=num3+3LoopRows("1:1").Select'删除多余的一行EndSub以后每月要打印工资表与工资条时，只需将“工资表与工资条”文件打开，修改好工作表“sheet1”中的当月的工资总表数据后将其复制为工作表“sheet2”，并使“sheet2”成为当前工作表，执行宏“生成工资条”即可。
本文档为【用Excel宏实现工资表巧转工资条】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483