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