用_excel_制作漂亮的工资条的方法

《用_excel_制作漂亮的工资条的方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、如何使用Excel进行工资条的制作，也许有些网友使用已经很长时间了，但如何更快更好的做出漂亮的工资条，看看作者的方法吧。　　“小问题难倒老财务”，也许你已经在财务口上工作多年，也许你天天都要面对Excel那张老脸，也许你已经习惯了用工资明细表做员工工资统计并向上级汇报，把表中的条目一条条复制粘贴后打印发给每个员工。可你是否想过，找一个更简单更有效率的方法?看起来这似乎有些困难：在工资明细表中，工资的项目(即表头)一般只出现在表格开头的某一行，而在工资条中，为了便于阅读则要求每个人的工资都有表头，那

2、么如何巧妙地把工资明细表制作成便于打印的工资条呢?如图所示，这就是我们要完成的工作(原工资表见图1，转换成工资条后的效果见图2)：图1原工资表图2转换后效果　　“条条大路通罗马”，不过路有远近之分，方法也有难易之别，这里给大家提供三种最简单易用的方法。　　方法一：宏命令控制法　　对于Office家族的宏功能，大家或许早有耳闻，但由于需要使用VBA进行编程，所以宏一直让许多人望而却步，不过要使用一个现成的宏就简单多了。首先打开要处理的Excel表，选择“工具→宏→VisualBasic编辑器”，在编

3、辑器左边的窗口中用鼠标双击Sheet1，会出现代码编辑窗口，在代码编辑窗口输入如下代码(为了不破坏原有的工资表，所以这里采用了将Sheet1的内容复制到Sheet2的方法，所以最后的生成结果是在Sheet2中显示)：　　SubMakeSalaryList()　　DimiAsInteger　　DimendrowAsInteger　　'测出数据的最后一行　　endrow=Sheet1.Range("a65536").End(xlUp).Row-1　　'把标题贴过去　　Worksheets(1).Ran

4、ge("1:1").Copy(Worksheets(2).Cells(1,1))　　Fori=3Toendrow　　'把每条数据抬头贴过去　　Worksheets(1).Range("2:2").Copy(Worksheets(2).Cells(3*i-7,1))　　'把数据贴过去　　Worksheets(1).Range(Cells(i,1),Cells(i,256)).Copy(Worksheets(2).Cells(3*i-6,1))　　Nexti　　EndSub　　关闭编辑器，将自动返回到

5、刚才的Excel表，选择“工具→宏→宏”，将弹出如下对话框：(见图3)图3添加宏　　点击“执行”，将在Sheet2生成如Gz-2所示的转换成工资条，怎样，不复杂吧。当然，如果你的表总Sheet2已经输入了别的内容，就可以将他复制到Sheet3来生成，代码修改也很简单，把其中的Sheet2修改成Sheet3就可以了，其它代码不变。1.个人认为，工资条打印一般是都横向的A4纸，所以我把页面方向改成横向　　2.在word里作工资条格式（和工资表的格式是一模一样的。我直接在EXCEL里复制过来。）　　3.

6、打开工具->信函和邮件->邮件合并（这时跳出的是向导。）　　4.下一步启动文档->下一步选取收件人->点"浏览"->打开数据源(目录)->下一步攒写信函->"其他先项"->插入哉(插入到相应的位置->下一步预览信函->完成合并->编辑个人信函　　5.大家看到的工资条的生成是一页一条,我们把它设置一下:　　先中所有页,页面设置->版式->节的起始位置"接续本页"->应用于"整篇文章"　　完成了新插入一个工作表   在A1输入以下公式(可复制以下内容)     =IF(MOD(ROW(),3)=0,"

7、",IF(MOD(ROW(),3)=1,清单!A$1,INDEX(清单!$A:$GH,INT((ROW()+4)/3),COLUMN())))如果有两行项目可以使用下面公式:    =IF(MOD(ROW(),4)=0,"",IF(MOD(ROW(),4)=1,清单!A$1,IF(MOD(ROW(),4)=2,清单!A$2,INDEX(清单!$A:$GF,INT((ROW()+9)/4),COLUMN()))))   然后向右向下拖拉复制公式。  其中"清单"为工资表的表名,可在公式里修改。  工

8、资条间距离需要自己设置   本工资簿包含两张工资表。      第1张工资表就是工资清单，称为"清单"。它第一行为标题行包括职工姓名、各工资细目。      第2张工作表就是供打印的表，称为"工资条"。它应设置为每三行一组，每组第一行为标题，第二为姓名和各项工资数据，第三行为空白行。就是说整张表被3除余1的行为标题行，被3除余2的行为包括职工姓名、各项工资数据的行，能被3整除的行为为空行。在某一单元格输入套用函数"=MOD(ROW(),3)"，它的值就是该单元格所在行被3除的余数。