一键制作工资条教程详解
今天咱们来学习工资条的制作:
![一键制作工资条教程详解插图 一键制作工资条教程详解插图](https://www.stortiktok.com/wp-content/uploads/2021/02/1613092032-8d8ddcfe9309ad7.gif)
![一键制作工资条教程详解插图(1) 一键制作工资条教程详解插图(1)](https://www.stortiktok.com/wp-content/uploads/2021/02/1613092034-7289aca6b8b449d.gif)
![一键制作工资条教程详解插图(2) 一键制作工资条教程详解插图(2)](https://www.stortiktok.com/wp-content/uploads/2021/02/1613092036-afafd3bb6d6f512.png)
![一键制作工资条教程详解插图(3) 一键制作工资条教程详解插图(3)](https://www.stortiktok.com/wp-content/uploads/2021/02/1613092039-fae6fba64e27271.gif)
![一键制作工资条教程详解插图(4) 一键制作工资条教程详解插图(4)](https://www.stortiktok.com/wp-content/uploads/2021/02/1613092041-04620e3ce559f4e.gif)
开发工具→录制宏→宏名“宏1”→确定→选中第一行→使用相对引用→复制第一行内容→选中第三行“插入复制的单元格”→停止录制
![一键制作工资条教程详解插图(5) 一键制作工资条教程详解插图(5)](https://www.stortiktok.com/wp-content/uploads/2021/02/1613092044-6bc5193a0c160b3.gif)
开发工具→插入→按钮→指定宏→选择“宏1”→确定→把按钮名称改为“生成工资条”
点击按钮,发现却只有第一次是正确的?
打开VB窗口,在“模块1”中,查看录制的宏代码
Sub 生成工资条()
'
生成工资条
'
1").Select :
Selection.Copy
0).Rows("1:1").EntireRow.Select
=xlDown :
End Sub
在原有代码的基础上插入for循环
Sub 宏1()'
' 生成工资条'
1").Select :
For i = 1 To 13
Selection.Copy
0).Rows("1:1").EntireRow.Select
Shift:=xlDown
Next
End Sub
点击按钮
此时可能有些朋友的按钮会变形或被复制了好多个,没关系,按以下操作即可避免
Sub 宏2()'
' 恢复工资表'
3").Select :
For i = 1 To 13
False =
Shift:=xlUp
0).Rows("1:1").EntireRow.Select
Next
End Sub
试试效果