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

如何将E X C E L工资表数据库打印成带有表头的工

资条

Prepared on 21 November 2021

如何将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页面，点击：工具-〉宏 -〉执行，所需要的格式就出来了。