返回列表 上一主題 發帖

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

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
233  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2021-12-16 10:52 | 只看該作者

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

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

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
233  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
3#
發表於 2021-12-16 16:58 | 只看該作者
回復 2# samwang
Dear samwang,
可以用歐，感謝您的熱心指導歐
Thank you.
Just do it.

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
2#
發表於 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

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題