- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2025-7-5
|
本帖最後由 luhpro 於 2012-10-2 21:45 編輯
回復 mark15jill
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [ ...
pitera88 發表於 2012-10-2 15:00 
因為你的需求是 -> 於另存新檔時 a1 的值不要被存起來.
所以我會建議放在 BeforeSave 裡,
亦即於存檔前再做處理:- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel as Boolean)
- With Sheets("輸入頁")
- If .[a1] <> "" Then Sheets("列印頁").[b1] = .[a1]
- .[a1] = "" ' 存檔前強制清除 A1 的值
- End With
- End Sub
|
|
發表於 2012-10-2 21:44
| 