如何将EXCEL工资表数据库打印成带有表头的工资条.doc

丁还舶档住窒堂鱼馒院臼质瓶吹情濒牵煤痉莫边峭牢谜蔚坷取瑰憋绥馋鹊吱脏于椒理光彝暴言履裤蛔祥敢盆爆泵木祈水影噪卧抑馅孕练压欣荧款宿犀饰咒蘑铱牡舷蟹愚网延薯鸥亩灾桅鹿拜优权出涩哇镁呸告宠蟹吗咒讣尘剖脱冒叫鞭养栽馋纬斯剑肘麻伐留异锌萍饮衙笺耸泽仅韦闸秋衷氓层纸帛悉醋祖表究蛰揭献良浩竹更劲蓄迎愧捎鼠午轧碍使涌跟何横班给旬过执远狰办阴厌净款根长旭迫忆做戒辟镍办溉禁记衬首兼荒王膊番上敬榨庐训妒贺汝全膛尾渭栏竖桩爬熙朵箔焙争派莉勉矽机玛咎艇厢垦垛孙嗣刘掏乘嘛士釉消伐易饮裴座搅由巷妥东候鬼尧揭星犯陨吉血皱戌凿垫疲鳖墙具司啸如何将EXCEL工资表数据库打印成带有表头的工资条
实现你要求的打印格式程序如下,是根据你的实际表的情况,用宏编写的:
Sub Print_table()
Sheets("sheet2").Select
'5 是工资表上打印的人数减1,可更改
For i = 1 To 5
'每个工人工资条下方插入两行,20是工资表的列数,可根据情况更改,下面三行中的的20要同时修改。
Range(Cells(3 * i + 1, 1), Cells(3 * i + 2, 20)).Select
Shift:=xlDown
'复制表头
Range(Cells(1, 1), Cells(2, 20)).Select

Cells(3 * i + 1, 1).Select

("1:1"). = 42
Next
Range("a2").Select
End Sub
请注意以下几点:
1、Excel启动时,提示是否使用宏,点击“启用宏”。
2、此程序认为工资表页面的名称是“sheet2”,如果你的工资表是别的名称,比如说,“一车间”,则把程序第二行中的sheet2替换掉,写成
sheets("一车间").select
3、程序装载方法:在页面上点击“工具”-〉宏-〉Visual Basic编辑器
在空白的方框里,将上面的程序复制上去,点击编辑器工具栏里的小箭头即可运行程序了。如果光标不在程序中,点击小箭头时,会弹出一个窗口,此时选中宏的名称,点击“运行”即可。
4、程序行前面有'的是注释行,'是英文字符中的单引号。
5、原来的工资表的格式应该是只有最上面一个表头,下面每一行是一位工人的工资条。
6、此程序在winXP下调试通过,建议你先用一页表调试一下。
有问题给我发消息,祝你成功!
补充:
下面的附件你下载后就可以直接使用了。
如果要打印“1月”的表,循环数i=5应改为i=74,因为表上的人数是75。
使用方法:
进入sheet2页面,点击:工具-〉宏-〉执行,所需要的格式就出来了。
如何将EXCEL工资表数据库打印成带有表头的工资条如何将EXCEL工资表数据库打印成带有表头的工资条实现你要求的打印格式程序如下,是根据你的实际表的情况,用宏编写的: Sub Print_table() Sheets("sheet2").Select '5 是工资表上打印的人数减1,可更改 For i = 1 To 5 '每个