返回列表 上一主題 發帖

[發問] 按下列印後,Excel自動存檔

[發問] 按下列印後,Excel自動存檔

Dear all,
我有一個檔案室它是共用性的(部門內輪班班長都會用),我想設定巨集,內容是:當人員有改過Excel內容,並按下"列印"這個動作時,Excel是自動存檔。
還請各位先進幫忙一下。
感謝各位!!
Just do it.

Dear all,
我有一個檔案室它是共用性的(部門內輪班班長都會用),我想設定巨集,內容是:當人員有改過Excel ...
jsc0518 發表於 2021-12-16 10:52


程式放在工作表裡,目前只能做到有任何改變資料時則另存新檔,謝謝

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False: Application.DisplayAlerts = False
FN = ActiveWorkbook.Name
ymd = Format(Now, "yyyymmdd-hms")
Sheets(1).Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & FN & "_" & ymd & ".xlsx"
ActiveWindow.Close
Application.ScreenUpdating = True: Application.DisplayAlerts = True
End Sub

TOP

回復 2# samwang
Dear samwang,
可以用歐,感謝您的熱心指導歐
Thank you.
Just do it.

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題