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

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

Excel VBA 实例 永恒君 2684℃ 0评论

本文于2022/01/17重新编辑

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

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

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

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

“开发工具” – “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(就是和刚刚上面的代码连接起来)。

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

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

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

*

code

表情