VBA神器是不是很厉害,一键就实现了工资条的生成。 可是,可是,有些不小心手抖了,没保存源文件,代码操作又是不可逆的那怎么办? 作者:薛奔 今天来分享恢复工资条的代码,还是那句话不需要掌握,能套用能改就行了。真的想要系统学习VBA,点击阅读原文,今天特价哦~ 方法/步骤 1、上次的工资条生成,已经调整过宏安全性,那这里不需要重复操作。如果没有,可以看下 文件-选项-信任中心-信任中心设置
高手可以选择启用所有宏。 2、仍然进入VBE编辑器 在工作表中按下键盘上ALT F11组合键,调出VBE对话框,点上方的插入,选择模块 贴入代码: Public Sub recover() Application.ScreenUpdating = False For i = Cells(Rows.Count, 1).End(xlUp).row To 2 Step -1 If Cells(i, 1) = Range('a1') Or Len(Cells(i, 1)) = 0 Then '判断 Rows(i).Delete End If Next Application.ScreenUpdating = True MsgBox '恢复初始状态' & vbCrLf & ' 制作者Sharpen' End Sub
代码简单介绍:判断是不是和表头一样,还有是不是空行内容,如果是就删除该行。 3、运行代码:代码粘贴好后,我们可以按下F5来执行,也可以点击三角执行。 关闭VBE编辑器,回到Excel。是不是看到数据又恢复了。
4、同样可以设计和上次一样的按钮,就不需要进入VBE点运行,以后直接点按钮就行了。 你get了吗? VBA是不是很强大,你想不想也有这样的Power,那就点击学习我们由线下知名培训师录制的VBA零基础实战视频课程哦,目前新品特价38元,快快购买! 另外:转发本文到朋友圈,就赠送工资条生成恢复VBA源文件,加小编微信:wuliaoZJN,备注:工资条,就可获得。 |
|