VBA批量生成工资条（每页打印20位员工工资条）

worex

该工作簿涉及的工作表主要是“工作表”、“工资条”与“完成效果”三个。我已经写好公式把“工作表”内编号排列第一个的员工的工资条跨表生成到“工资条”内，边框与分割线也已经设置好，手动下拉可以依编号生成其他员工工资条。但现在如果员工人数上百上千，手动设置也很麻烦，我想利用VBA自动进行员工工资条的输出、设置好边框与分割线、并每页打印20为员工工资条，做出来的效果就像工作表“完成效果”（120人）那样的，每页左右相邻两个单元格，上下相邻两个单元格。但是不知道怎么录制宏、编写宏代码，请求好心人帮个忙~~
涉及表格如下：
VBA批量生成工资表.rar (50.53 KB, 下载次数: 822)

2015-1-13 11:24 上传

点击文件名下载附件
VBA批量生成工资表

sunya_0529

如附件所示——

蜂蜜xiao柚子

sunya_0529 发表于 2015-1-15 22:31
如附件所示——

请问有两行抬头的工资条要怎么生成呢？

sunya_0529

蜂蜜xiao柚子 发表于 2015-1-19 17:00
请问有两行抬头的工资条要怎么生成呢？

两行的要修改一下代码

蜂蜜xiao柚子

sunya_0529 发表于 2015-1-20 15:44
两行的要修改一下代码

不明白，能否就楼主的附件演示一下呢？
谢谢！

sunya_0529

蜂蜜xiao柚子 发表于 2015-1-22 09:33
不明白，能否就楼主的附件演示一下呢？
谢谢！

请上传一个附件，根据具体格式修改

蜂蜜xiao柚子

sunya_0529 发表于 2015-1-23 00:18
请上传一个附件，根据具体格式修改

那就麻烦您了！！！！我上传不了附件（不支持格式）
工资表：

序号	月份	部门	岗位	姓名	入职日期	工资标准			基本工资			加班费	全勤	夜班津贴	上月补差	其他项目	合计工资	旷工	其他	意外保险	社保扣款	IC卡押金/银行卡	水电费	食宿费	应付工资	领款人     签名
						底薪	岗补	津贴	底薪	岗补	津贴							金额
1	11月份	制造	成D	张三	2011-6-7	1300	100	400	1300	100	400	1592	100	0			3492	0	0	-7					3485
2	11月份	制造	成D	李四	2013-11-7	1300	100	200	910	70	140	1035	0	0			2155	0	0	-7				-110	2038

想实现的工资条样式：
每个人的工资条都有4行（两行抬头、1行工资内容、1行空白）

序号

月份

部门

岗位

姓名

入职日期

工资标准

基本工资

加班费

全勤

夜班津贴

上月补差

其他项目

合计工资

旷工

其他

意外保险

社保扣款

IC卡押金/银行卡

水电费

食宿费

应付工资

领款人     签名

底薪

岗补

津贴

底薪

岗补

津贴

金额

1

11月份

制造

成D

张三

2011-6-7

1300

100

400

1300

100

400

1592

100

0

3492

0

0

-7

3485

序号

月份

部门

岗位

姓名

入职日期

工资标准

基本工资

加班费

全勤

夜班津贴

上月补差

其他项目

合计工资

旷工

其他

意外保险

社保扣款

IC卡押金/银行卡

水电费

食宿费

应付工资

领款人     签名

底薪

岗补

津贴

底薪

岗补

津贴

金额

2

11月份

制造

成D

李四

2013-11-7

1300

100

200

910

70

140

1035

0

0

2155

0

0

-7

-110

2038

蜂蜜xiao柚子

sunya_0529 发表于 2015-1-23 00:18
请上传一个附件，根据具体格式修改

两行抬头的工资条.zip (9.83 KB, 下载次数: 406)

2015-1-26 17:31 上传

点击文件名下载附件

弄好了！谢谢！

sunya_0529

蜂蜜xiao柚子 发表于 2015-1-26 17:32
弄好了！谢谢！

http://club.excelhome.net/forum. ... 550&pid=4299334

试试上面这个帖子中的解决方案，可以完美地解决你的问题，先自己动手试试看。

蜂蜜xiao柚子

sunya_0529 发表于 2015-1-27 00:08
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=633550&pid=4299334

试试上面 ...

ok！！！我先自己试试，不行再找您!