excel怎么快速生成个人工资条(巧用excel宏做成)
excel怎么快速生成个人工资条(巧用excel宏做成)MsgBox n n = Sheets("工资表").UsedRange.Rows.Count启用excel里面的宏,并新建一个宏“createsalary”(名字可以自己起),并在宏编辑器里输入如下vbscript脚本代码:Sub createsalary()
财务工作每月发工资都需要做工资条,发给各个员工。这种重复简单的工作,我们可以用常用的excel做个宏就可以一键生成工资条
第一步
打开工资表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里粘贴,然后只需要点击工资条按钮,一键就生成工资条。