巧用Excel宏快速将工资表转为工资条的方法.docVIP

巧用Excel宏 快速将工资表转为工资条的方法/html/bangongruanjian/Excel20701.html 时间:2009-10-12 15:48来源:网络收集 作者:佚名 点击: 252 次 技术论坛 Excel具有强大的数据处理和打印输出功能，并且易学易用，是广大用户喜欢使用的电子表格处理软件。现在一些单位的财会人员喜欢用Excel打印本单位的职工工资总表与工资条，但在Excel中要将工资总表（如-- 正文页网画中画广告 -- ---- 表1）手工地转换为工资条 Excel具有强大的数据处理和打印输出功能，并且易学易用，是广大用户喜欢使用的电子表格处理软件。现在一些单位的财会人员喜欢用Excel打印本单位的职工工资总表与工资条，但在Excel中要将工资总表（如-- 正文页网画中画广告 -- ? ---- 表1）手工地转换为工资条（如表2）则是一件比较烦琐的事，下面是我编写的一个Excel宏，运行这个宏就可将编辑好了的工资总表很方便地转换为工资条打印输出。 在Excel中新建一个文件，将其命名为“工资表与工资条”，在工作表“sheet1”中输入并编辑好本单位职工工资总表（如表1所示）后，点击“工具” 菜单→“宏”→“宏…”→输入宏名“生成工资条”→创建，输入如下的宏的各行文本，输入完成后保存该宏。将工作表“sheet1”复制为另一个工作表 “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(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.Insert Shift:=xlDown 在第2行前插入一行，保持第2行 为选中状态 num=1 50 总人数×3，如工资表中有100人则 为100×3即num=300 col=14 工资表的栏数，如工资表有17栏则 col=17 num1 = 4 Do While num1 = num 循环插入空行 Range(Cells(num1, 1), Cells(num1, col)).Select 选中第num1行的第1列到第col列 Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown num1 = num1 + 3 Loop Range(Cells(1, 1), Cells(1, col)).Select Application.CutCopyMode = False 剪切复制模式无效 Selection.Copy 复制选择区域 Range(A2).Select 选择A2单元格 ActiveSheet.Paste 从A2单元格起粘贴内容 num2 = 5 Do While num2 = 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)).Select Application.CutCopyMode = False Selection.Borders(xlDiagonalDown).LineStyle = xlNone 定义表格边框线、内线样式 Selection.Borders(xlDiagonalUp).LineStyl