如何“一键”自动生成工资条

如何“一键”自动生成工资条

工资表做好了，发给每个员工的工资条制作非常繁琐。如何一键自动生成工资条呢？

步骤一：新建一个excel。将sheet命名为工资表，另外新建一个sheet命名为工资条。在工资表中输入数据，或者粘贴数据。（此处是样例数据，非真实数据）

步骤二：

启用excel里面的宏，并新建一个宏“createsalary”（名字可以自己起），

步骤三：并在宏编辑器里输入如下vbscript脚本代码：

Sub createsalary()

n = Sheets("工资表").UsedRange.Rows.Count

MsgBox n

For i = 1 To n - 3

Sheets("工资表").Select

Rows("1:3").Select

Range("F2").Activate

Selection.Copy

Sheets("工资条").Select

Rows(4 * i - 3 & ":" & 4 * i - 1).Select

ActiveSheet.Paste

Sheets("工资表").Select

Rows(i + 3 & ":" & i + 3).Select

Selection.Copy

Sheets("工资条").Select

Rows(4 * i & ":" & 4 * i).Select

ActiveSheet.Paste

Next

End Sub

步骤四：

保存退出宏编辑器，返回excel界面。到此制作已经完成，超级简单。

步骤五：

测试，你点击工资条按钮，脚本自动运行，并在工资条sheet里生成工资条成功。

步骤六：

需要发邮件通知的可以自己复制相应员工的行，直接粘贴到邮件中。需要纸条的则打印出来裁剪即可。

步骤七：将该文件保存为模板，以后每个月的工资表往工资表sheet里粘贴，然后只需要点击工资条按钮，以后一键就生成工资条。