Excel工资表自动生成工资条_详细图文教程

今天小编和大家分享一下EXCEL工资表自动生成工资条的方法，这样今后设置了工资条之后就不用再一个个去设置打印了。

首先在电子表格那里留空第一行，然后按照下图输入相关内容，在G1单元格设置标题占行，选择G1单元格——数据——数据有效性——数据有效——设置——允许中选择序列——来源那里输入：1,2,3——点击确定。按同样方法在I1单元格设置数据有效性

第二步，插入两个长方形，点击插入——形状——选择矩形，然后在第一行合适位置画一个矩形并输入：生成工资——点击格式，设置有立体感的矩形，选择自己喜欢的颜色。同样方法插入另一个矩形并输入：删除数据。

第三步，同时按ALT+F11,打开VBA编辑器——点击插入——模块——在模块那里输入生成工资条的VBA代码：

Sub 制作工资条()

Dim ks As Long

Dim js As Long

Dim bs As Long

Dim bz As Long

bs = Range("G1").Value + 1

js = Range("A65536").End(xlUp).Row

Application.ScreenUpdating = False

If Range("I1") = "是" Then

Rows("2:2").Insert Shift:=xlDown

Rows("2:2").ClearFormats

Rows("2:2").RowHeight = 18

bz = bs + 1

For i = (js + 1) To (bs + 3) Step -1

Rows("2" & ":" & bz).Copy

Rows(i).Insert Shift:=xlDown

Next

Rows("2:2").Delete Shift:=xlUp

End If

If Range("I1") = "否" Then

For i = js To (bs + 2) Step -1

Rows("2" & ":" & bs).Copy

Rows(i).Insert Shift:=xlDown

Next

End If

Application.ScreenUpdating = True

Application.CutCopyMode = False

End Sub

第四步，按照同样的方法，在同一个模块那里也输入删除数据的代码：

Sub 删除数据()

Rows("2:65536").Delete Shift:=xlUp

End Sub

然后保存退出VBA编辑器。

第五步，右击生成工资条矩形——指定宏——然后找到并选择制作工资条的宏名称——点击确定，这样就指定生成工资条的宏，同样方法删除数据矩形也指定到删除数据宏那里。

最后，在表格的第2行开始输入每个人的工资情况——标题占行选择：1（这个由自己决定）——是否隔行选择：是——然后点击生成工资条，这时就会自动隔一行生成工资条。