標題:
[發問]
按下列印後，Excel自動存檔
[打印本頁]
作者:
jsc0518
時間:
2021-12-16 10:52
標題:
按下列印後，Excel自動存檔
Dear all,
我有一個檔案室它是共用性的(部門內輪班班長都會用)，我想設定巨集，內容是：當人員有改過Excel內容，並按下"列印"這個動作時，Excel是自動存檔。
還請各位先進幫忙一下。
感謝各位！！
作者:
samwang
時間:
2021-12-16 13:12
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
作者:
jsc0518
時間:
2021-12-16 16:58
回復
2#
samwang
Dear samwang,
可以用歐，感謝您的熱心指導歐
Thank you.
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
