Excel不加班 / 待分类 / 会计必看!早点知道,你就不用哭了

   

会计必看!早点知道,你就不用哭了

原创
2020-06-19  Excel不加...

    1.将重要的Excel文档,自动备份

    已经记不起多少次,某某学员将某份重要文件的内容修改或删除,然后保存,到处求助怎么恢复。

    重要资料,记得备份!备份!备份!

    手工备份就不说了,来个全自动备份的。当你点保存的时候,自动另存为一份在D:\重要文件这个文件夹。

    保存的文件名都是以当前的时间命名,这样就可以找到任意时间段的,再也不用担心出问题。

    按快捷键Alt+F11进入VBA后台,点ThisWorkbook,将代码复制粘贴到里面。

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

        ThisWorkbook.SaveCopyAs "D:\重要文件\" & VBA.Format(Now(), "yyyymmddhhmmss") & ".xlsm"

    End Sub

    蓝书字体D:\重要文件部分为路径,更改成你电脑实际的地方。如果不知道路径在哪,这里教你一招超好用的方法,快速获取路径。

    选择文件夹的那个地方,复制即可。

    2.将多个工作表拆分成多个工作簿

    同一个工作簿存在多个工作表。

    拆分后,将这些工作表变成工作簿。

    按快捷键Alt+F11进入VBA后台,插入模块,将代码复制粘贴到里面。

    Sub 拆分工作表()

        Dim b As Worksheet

        Excel.Application.ScreenUpdating = False

        For Each b In Sheets

            b.Copy

            Excel.ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & b.Name & ".xlsx"

            Excel.ActiveWorkbook.Close

        Next

        Excel.Application.ScreenUpdating = True

    End Sub

    运行代码,等待10秒钟,拆分完毕。

    再一次见证了VBA的强大,思想有多远,VBA就能走多远。

    推荐:总表新增数据,自动拆分到分表,最简单的方法!

    上篇:万能透视表,有什么是你做不到的?

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

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多
    喜欢该文的人也喜欢 更多

    ×
    ×

    ¥.00

    微信或支付宝扫码支付:

    《个图VIP服务协议》

    全部>>