一键生成工资条VBA代码,简单易懂

    选择打赏方式

使用方法(以office365为例子操作,其他版本操作步骤可能会有偏差):

1、备份工资表(宏操作不可回退,操作失误很麻烦)

2、打开开发工具(如果没有请依次点击:文件→左下角的选项→自定义选项卡→勾选开发工具)

3、打开Visual Basic(VB编辑器),选择当前工作表名字的工程,右击插入一个模块,输入以下代码

完整代码:

Sub 制作工资表()
Dim i
For i = 1 To 30
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown
    ActiveCell.Select
Next
End Sub

bet365体育投注188 4、将For i = 1 To 30最后面的30修改为需要生成的工资条数减去1(例如:100个工资条,只需要修改成99即可)

5、选中工资表表头的任意一个单元格

6、选择开发工具选项卡,再依次点击:宏→制作工资表→运行

7、等待最终结果(因工作表大小和电脑配置的因素影响,电脑可能会进入假死状态,只需要耐心等待即可

收录状态:[百度已收录]
版权声明:若无特殊注明,本文皆为《 铜山小皇帝 》原创,转载请保留文章出处。
本文链接:一键生成工资条VBA代码,简单易懂 http://www.excelbiji.com/vba/6.html
正文到此结束

热门推荐

发表吐槽

你肿么看?

你还可以输入 250 / 250 个字

?嘻嘻 大笑 可怜 吃惊 害羞 调皮 鄙视 示爱 大哭 开心 偷笑 嘘 奸笑 委屈 抱抱 愤怒 思考 日了狗 胜利 不高兴 阴险 乖 酷 滑稽

评论信息框

吃奶的力气提交吐槽中...


既然没有吐槽,那就赶紧抢沙发吧!