《用Excel巧转工资条.doc》由会员分享，可在线阅读，更多相关《用Excel巧转工资条.doc（3页珍藏版）》请在金锄头文库上搜索。
1、用Excel巧转工资条Excel具有强大的数据处理和打印输出功能，并且易学易用，是广大用户喜欢使用的电子表格处理软件。现在一些单位的财会人员喜欢用Excel打印本单位的职工工资总表与工资条，但在Excel中要将工资总表(手工地转换为工资条则是一件比较烦琐的事，下面是我编写的一个Excel宏，运行这个宏就可将编辑好了的工资总表很方便地转换为工资条打印输出。 在Excel中新建一个文件，将其命名为“工资表与工资条”，在工作表“sheet1”中输入并编辑好本单位职工工资总表(后，点击“工具”菜单“宏”“宏”输入宏名“生成工资条”创建，输入如下的宏的各行文本，输入完成后保存该宏。将工作表“sheet1
2、”复制为另一个工作表“sheet2”中，使“sheet2”成为当前工作表，执行刚才创建的宏，即可很快将表1所示的工资表转换为表2所示的工资条。 宏的内容如下： Sub生成工资条() Cells.Select 选择整个表去掉表格线 Range(F1).Activate Selection.Borders(xlDiagonalDown).Line Style=xlNone Selection.Borders(xlDiagonalUp).LineStyle=xlNone Selection.Borders(xlEdgeLeft).LineStyle=xlNone Selection.Borders(
3、xlEdgeTop).LineStyle=xlNone Selection.Borders(xlEdgeBottom).LineStyle=xlNone Selection.Borders(xlEdgeRight).LineStyle=xlNone Selection.Borders(xlInsideVertical).LineStyle=xlNone Selection.Borders(xlInsideHorizontal).LineStyle=xlNone Rows(2:2).Select 选择第2行 Selection.InsertShift:=xlDown 在第2行前插入一行，保持第2
4、行 为选中状态 num=150 总人数3，如工资表中有100人则 为1003即num=300 col=14 工资表的栏数，如工资表有17栏则 col=17 num1=4 DoWhilenum1=num 循环插入空行 Range(Cells(num1,1),Cells(num1,col).Select 选中第num1行的第1列到第col列 Selection.InsertShift:=xlDown Selection.InsertShift:=xlDown num1=num1+3 Loop Range(Cells(1,1),Cells(1,col).Select Application.CutC
5、opyMode=False 剪切复制模式无效 Selection.Copy 复制选择区域 Range(A2).Select 选择A2单元格 ActiveSheet.Paste 从A2单元格起粘贴内容 num2=5 DoWhilenum2=num 循环插入标题行 Range(Cells(1,1),Cells(1,col).Select Application.CutCopyMode=False Selection.Copy Cells(num2,1).Select ActiveSheet.Paste num2=num2+3 Loop Range(Cells(2,1),Cells(3,col).S
6、elect Application.CutCopyMode=False Selection.Borders(xlDiagonalDown).LineStyle =xlNone 定义表格边框线、内线样式 Selection.Borders(xlDiagonalUp).LineStyle=xlNone WithSelection.Borders(xlEdgeLeft) .LineStyle=xlDouble .Weight=xlThick .ColorIndex=xlAutomatic EndWith WithSelection.Borders(xlEdgeTop) .LineStyle=xlDo
7、uble .Weight=xlThick .ColorIndex=xlAutomatic EndWith WithSelection.Borders(xlEdgeBottom) .LineStyle=xlDouble .Weight=xlThick .ColorIndex=xlAutomatic EndWith WithSelection.Borders(xlEdgeRight) .LineStyle=xlDouble .Weight=xlThick .ColorIndex=xlAutomatic EndWith WithSelection.Borders(xlInsideVertical)
8、.LineStyle=xlDash .Weight=xlThin .ColorIndex=xlAutomatic EndWith WithSelection.Borders(xlInsideHorizontal) .LineStyle=xlDash .Weight=xlThin .ColorIndex=xlAutomatic EndWith Selection.Copy Range(Cells(5,1),Cells(6,col).Select Selection.PasteSpecialPaste:=xlFormats,Operation:=xlNone,SkipBlanks:=_ False
9、,Transpose:=False 接上行删除上行尾的连字符 _，复制表格线样式 num3=8 DoWhilenum3=num 循环复制表格线样式 Range(Cells(num3,1),Cells(num3+1,col) .Select Selection.PasteSpecialPaste:=xlFormats,Operation:=xlNone,SkipBlanks:=_ False,Transpose:=False num3=num3+3 Loop Rows(1:1).Select 删除多余的一行 Selection.Delete EndSub 以后每月要打印工资表与工资条时，只需将“工资表与工资条”文件打开，修改好工作表“sheet1”中的当月的工资总表数据后将其复制为工作表“sheet2”，并使“sheet2”成为当前工作表，执行宏“生成工资条”即可。
