一键制作工资条教程详解

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

一键制作工资条教程详解插图
本课程会涉及到一些录制宏及VBA知识
不过,在这篇文章里,即使没有任何基础,你也能轻松完成,如果能触类旁通,还能让你的工作效率biubiubiu的提高
一键制作工资条教程详解插图(1)
首先,检查选项卡处有无“开发工具
一键制作工资条教程详解插图(2)
开发工具是高手的象征,在一般Excel用户中,是隐藏着的~
可按以下方式调出:选项→自定义功能区→勾选“开发工具”→确定
一键制作工资条教程详解插图(3)
恭喜你看起来像个高手了~
一键制作工资条教程详解插图(4)
在Excel中,宏可以理解为由一串VBA代码组成的具有某些功能的集合,而通过录制宏,Excel会记录每一步操作,并生成代码,所以…

开始制作一键生成工资条的功能吧
1、录制宏

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

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

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
插入按钮

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

设置按钮的属性为大小、位置均固定

9、交功课

试试效果

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

以上,完了~
宏在日常工作中能帮我们处理很多简单重复的工作,大家可以多思考,工作中哪些事情是需要重复做,或者是不想做的,想办法让宏去完成吧。

图文:话里胡哨
原载:Excel广场
图片部分来自网络,如有侵权请联系QQ897219494,或者发布邮箱897219494@qq.com
技能大全,高效工具 » 一键制作工资条教程详解

发表评论

提供最优质的资源集合

立即查看 了解详情