打开APP
userphoto
未登录

开通VIP,畅享免费电子书等14项超值服

开通VIP
一键生成工资条、工资表,点起来超爽

    真的没骗你,点起来超爽,做完了2个按钮,我都点了几十次。

    点一下工资表就变成工资条。

    再点一下,工资条就变成工资表。

    要用VBA实现这2个功能,真的很简单,只要你懂得最基础的复制粘贴,插入删除等功能即可。

    其实,VBA就是将你当初学基础操作的过程,再重新来一遍而已。不要说什么不会英语,学不会之类,压根儿就跟英语无关,我也不会英语。

    工资条,其实就是将第一行的标题复制,插入到3、5、7等奇数行,对吧。

    Step 01 录制一个宏,将第一行的标题复制,插入到第3行。

    Step 02 点VB进入后台,再点模块,就可以看到刚刚录制的宏。

    Step 03 现在已经实现了在第3行插入标题,下面要实现在第5行插入标题。将A3改成A5,点绿色运行按钮。

    接着是7、9、11……如果一次次改,那就体现不了VBA的优越性了,前面已经提过,可以借助循环语句。

    Sub 工资条()

    For i = 1 To 18

        Rows("1:1").Select

        Selection.Copy

        Range("A" & i * 2 + 1).Select

        Selection.Insert Shift:=xlDown

    Next

    End Sub

    现在是19个人,而第一个人有标题,也就是需要操作18次。i * 2 + 1就是获取数字3、5、7……

    写代码的时候,养成一个好习惯,就是定义变量,最终代码就出来了。

    Sub 工资条()

    Dim i As Integer

    For i = 1 To 18

        Rows("1:1").Select

        Selection.Copy

        Range("A" & i * 2 + 1).Select

        Selection.Insert Shift:=xlDown

    Next

    End Sub

    Step 04 将原来手工插入的标题删除掉,运行代码,即可生成工资条。

    不难吧。

    现在如何将工资条复原成工资表,也就是将3、5、7……行删除掉。

    同理,录制宏,改代码。

    Step 01 录制一个宏,选择A3,删除整行。

    Step 02 点VB进入后台,再点模块,就可以看到刚刚录制的宏。

    Step 03 有了前面的基础,现在修改代码就变得简单,将工资条修改的部分全部照搬过来。

    刚刚录制宏的时候是从上删除行,删除后 ,你会发现标题行错位了,现在并不是3、5、7……行。

    记住,删除行跟插入行有所不同,插入行是从上面往下插入,而删除行要从下面往上删除。

    现在是从18倒数到1,Step -1就是步长-1。

    Sub 工资表()

    Dim i As Integer

    For i = 18 To 1 Step -1

        Range("A" & i * 2 + 1).Select

        Selection.EntireRow.Delete

    Next

    End Sub


    Step 04 将原来手工删除的标题恢复,运行代码,即可生成工资表。

    最后,插入按钮来执行代码,会看起来更高大上。

    不要老是害怕学不会,只要你知道循环语句,会录制宏就可以解决掉很多问题了。

    推荐:1秒制作多行表头工资条

    上篇:一键搞定!根据总表生成多个分表,根据分表生成目录

    学VBA的时候,有没感觉回到当初刚学Excel的那种感觉,什么操作都用最笨的技能实现。

    也就是说,你会最笨的操作,再将这些操作录制成宏,再懂简单修改代码就好了。

    面对不会的东西,你是选择放弃还是选择坚持?

    作者:卢子,清华畅销书作者,《Excel效率手册 早做完,不加班》系列丛书创始人,个人公众号:Excel不加班(ID:Excelbujiaban)

本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报
打开APP,阅读全文并永久保存 查看更多类似文章
猜你喜欢
类似文章
【热】打开小程序,算一算2024你的财运
Excel VBA(5) – 一键制作工资条
工资条(隔行插入的宏)
删除列-用宏
UC头条:Excel VBA(5)
如何用excel制作工资条?
工资表批量生成工资条
更多类似文章 >>
生活服务
热点新闻
分享 收藏 导长图 关注 下载文章
绑定账号成功
后续可登录账号畅享VIP特权!
如果VIP功能使用有故障,
可点击这里联系客服!

联系客服