一键制作工资条教程详解

今天咱们来学习工资条的制作：

本课程会涉及到一些录制宏及VBA知识

不过，在这篇文章里，即使没有任何基础，你也能轻松完成，如果能触类旁通，还能让你的工作效率biubiubiu的提高

首先，检查选项卡处有无“开发工具”

开发工具是高手的象征，在一般Excel用户中，是隐藏着的~

可按以下方式调出：选项→自定义功能区→勾选“开发工具”→确定

恭喜你看起来像个高手了~

在Excel中，宏可以理解为由一串VBA代码组成的具有某些功能的集合，而通过录制宏，Excel会记录每一步操作，并生成代码，所以…

开始制作一键生成工资条的功能吧

1、录制宏

开发工具→录制宏→宏名“宏1”→确定→选中第一行→使用相对引用→复制第一行内容→选中第三行“插入复制的单元格”→停止录制

2、插入按钮

开发工具→插入→按钮→指定宏→选择“宏1”→确定→把按钮名称改为“生成工资条”

一键制作工资条教程详解插图(6)

3、效果测试

点击按钮，发现却只有第一次是正确的？

一键制作工资条教程详解插图(7)

哪里错了吗？

4、检查代码

打开VB窗口，在“模块1”中，查看录制的宏代码

一键制作工资条教程详解插图(8)

如下：

Sub 生成工资条()'' 生成工资条'    Rows("1:1").Select    Selection.Copy    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select    Selection.Insert Shift:=xlDown    End Sub

代码意思是复制第一行内容，然后到第三行插入

如何才能让宏执行快速生成多份工资条呢？

5、高手相助

在原有代码的基础上插入for循环

Sub 宏1()'' 生成工资条'Rows("1:1").SelectFor i = 1 To 13    Selection.Copy    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select    Selection.Insert Shift:=xlDownNext    End Sub

在第6行增加For i = 1 To 13，第10行增加Next

6、再次验证

点击按钮

一键制作工资条教程详解插图(9)

大功告成

7、又现倪端

此时可能有些朋友的按钮会变形或被复制了好多个，没关系，按以下操作即可避免

鼠标右键→设置控件格式→属性→大小、位置均固定→确定

一键制作工资条教程详解插图(10)

8、技能复制

接下来是制作恢复工资表按钮

开发工具→录制宏→宏名“宏2”→确定→选中第三行→使用相对引用→删除第三行内容→选中第四行→停止录制

一键制作工资条教程详解插图(11)

进入VB窗口增加第6，第10行的代码，如下

Sub 宏2()'' 恢复工资表'    Rows("3:3").SelectFor i = 1 To 13    Application.CutCopyMode = False    Selection.Delete Shift:=xlUp    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select    Next    End Sub