工资表巧转工资条

日期：2007年10月10日作者：查看:[大字体中字体小字体]

　　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=150

　　'总人数×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
[1] [2] [3] 下一页
工资表巧转工资条相关文章：
·一个浙江人的22条经典经商法则(很值得借鉴)
·Excel“条件格式”公式实例
·工资表巧转工资条
·图解CorelDRAW制作条形码
·创建一个纯CSS的水平导航条
·太贵太华丽：历数Windows Vista二十条罪状！
·Fireworks打造标签式网页导航条
·数码相机 : 摄影词典(300条)
·ASP.NET默认的上传组件支持进度条反映
·C＃中使用进度条
工资表巧转工资条相关软件
·半条命V1.1.0.9
·半条命-军团要塞 (NoSteam 3266 单独运行版)
·codesoft 条形码软件 V7.1.01
·Vista风格硬盘进度条XP版
·半条命(Half-life) V1.1.0.9
·半条命-军团要塞
·粗糙的线条人QQ表情
·线条帅哥QQ表情
·胜新通用条形码设计打印系统 V6.23
·半条命2-Q版(Q版反恐精英2)

上一篇:将Excel表格内容直接转换成图片

下一篇:用Excel设计电子计分册

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

工资表巧转工资条

精品推荐

热点TOP10

特别推荐