微信公众号:yhjbox(永恒君的百宝箱),获取最新文章、资源。

Excel vba 实例(1) – 批量制作工资表头

实用技巧 永恒君 1172℃ 0评论

前面分享了关于VBA的文章:分享 | VBA,十倍提升你的Excel工作效率,解放你的双手!

后台有伙伴说,文章里面没有说具体的方法;也有的伙伴说代码能不能发一下。


是的,这篇文章开始,就慢慢的来分享一下Excel Vba的一些常用的方法和实例。


今天先把上篇文章里的例子说完,永恒君现在用的是Excel 2007

“开发工具” – “Visual Basic”,打开VBE编辑窗口,选择当前的sheet,然后粘贴下列代码:


Sub gz()

For i = 10 To 7 Step -1

Rows(i).Select ‘选定行

Selection.Insert Shift:=xlDown ‘向下插入空行

Sheets(1).Range(“A5”).EntireRow.Copy Sheets(1).Range(“A” & i) ‘在空行中粘贴标题

Next

End Sub

Sub cz()

    For i = 15 To 7 Step -1    

        If Cells(i, 1) = “姓名” Then        

            Cells(i, 1).EntireRow.Delete ‘整行删除            

        End If

    Next

End Sub


保存好后退出。

然后选择“开发工具” – “插入” – “按钮”,新建“制作工资条”、“重置”两个按钮。

同时分别指定宏分别为Sheet1.gz、Sheet1.cz(就是和刚刚上面的代码连接起来)。


然后就能出现下面的效果了。

上面“制作工资表头”示例文件链接:


链接: https://pan.baidu.com/s/1D9iYRZnsfCCHOoal4YhNyg 密码: 56hx



Excel VBA功能很强大,但是要熟练的运用起来还是有一定的难度,好在永恒君帮大家搜集了几套关于VBA的视频教程,非常的实用。


需要的话,后台回复“VBA”获取吧~~

欢迎交流!


微信公众号:永恒君的百宝箱

个人博客:www.yhjbox.com

anyShare分享到:

转载请注明:永恒君的百宝箱 » Excel vba 实例(1) – 批量制作工资表头

喜欢 (0)
发表我的评论
取消评论

*

code

表情