Excel鲜为人知的秘技（内容已经整理到首页，请查看）

笨笨熊

QUOTE Created By 月光宝盒 At 2006-5-20
[quote]QUOTE Created By 笨笨熊 At 2006-5-20
如何把Excel表格式的工资表，打印出一张一张的工资条呢？ [M07]

假定工资记录保存在Sheet1工作表的A1至G64单元格区域中，其中第1行为标题，第2行为每个员工的工资记录。

　　1.切换到Sheet2工作表中，选中A1单元格，输入公式: =IF(MOD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,Sheet1!A$1,INDEX(Sheet1!$A:$G,INT(((ROW()+4)/3)+1),COLUMN())))
　　2.再次选中A1单元格，用"填充柄"将上述公式复制到B1至G1单元格中；然后，再同时选中A1至G1单元格区域，用"填充柄"将上述公式复制到A2至G185单元格中。

　　至此，工资条基本成型，再简单修饰一下就行了。

研究了一个小时才搞定，啊？都2点了！好辛苦啊！有GG酬吗? [/quote]


谢谢，谢谢！我刚看到！ [M01]
有膏膏，有膏膏！
http://www.junjing.net/forum/thread.jspa?threadID=63068

笨笨熊

我利用VLOOKUP函数也摸索了一个。

笨笨熊

QUOTE Created By 月光宝盒 At 2006-5-20
[quote]QUOTE Created By 笨笨熊 At 2006-5-20
如何把Excel表格式的工资表，打印出一张一张的工资条呢？ [M07]

假定工资记录保存在Sheet1工作表的A1至G64单元格区域中，其中第1行为标题，第2行为每个员工的工资记录。

　　1.切换到Sheet2工作表中，选中A1单元格，输入公式: =IF(MOD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,Sheet1!A$1,INDEX(Sheet1!$A:$G,INT(((ROW()+4)/3)+1),COLUMN())))
　　2.再次选中A1单元格，用"填充柄"将上述公式复制到B1至G1单元格中；然后，再同时选中A1至G1单元格区域，用"填充柄"将上述公式复制到A2至G185单元格中。

　　至此，工资条基本成型，再简单修饰一下就行了。

研究了一个小时才搞定，啊？都2点了！好辛苦啊！有GG酬吗? [/quote]

这种方式好像不能把工资条换行是吧？

月光宝盒

QUOTE Created By 笨笨熊 At 2006-5-23
[quote]QUOTE Created By 月光宝盒 At 2006-5-20
[quote]QUOTE Created By 笨笨熊 At 2006-5-20
如何把Excel表格式的工资表，打印出一张一张的工资条呢？ [M07]

假定工资记录保存在Sheet1工作表的A1至G64单元格区域中，其中第1行为标题，第2行为每个员工的工资记录。

　　1.切换到Sheet2工作表中，选中A1单元格，输入公式: =IF(MOD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,Sheet1!A$1,INDEX(Sheet1!$A:$G,INT(((ROW()+4)/3)+1),COLUMN())))
　　2.再次选中A1单元格，用"填充柄"将上述公式复制到B1至G1单元格中；然后，再同时选中A1至G1单元格区域，用"填充柄"将上述公式复制到A2至G185单元格中。

　　至此，工资条基本成型，再简单修饰一下就行了。

研究了一个小时才搞定，啊？都2点了！好辛苦啊！有GG酬吗? [/quote]

这种方式好像不能把工资条换行是吧？[/quote]

不行，所以只能缩小字体或者缩小列宽了，唉，美中不足啊 [M30]

snippers

打印工资条把ＥＸＣＥＬ的文件作为数据源，有ＷＯＲＤ的邮件合并功能不可以吗？ [M11] [M11] [M11]

月光宝盒

QUOTE Created By snippers At 2006-5-23
打印工资条把ＥＸＣＥＬ的文件作为数据源，有ＷＯＲＤ的邮件合并功能不可以吗？ [M11] [M11] [M11]

没试过，讲讲，让我们也学点新招 [M29]