請教各位大大，能夠復原前一次動作的語法

[myomyint]

一般使用選取範圍，按Delete以後可清除內容，也可復原前一次動作，Undo檔案內使用VBA語法的'清除內容'按鈕來刪除掉內容以後工具列上的復原按鈕是否能夠復原前一次動作？假如可行的話要該如何加寫程式才能操作此功能？請教前輩幫幫忙,謝謝！


[附件已被管理員刪除]

[leonchou]

不像Word 執行巨集後可以直接在使用介面按[復原]鈕復原，
Excel 巨集執行後是無法復原的 (不存檔關閉再開的方式不算)。

解決方式可參考
http://www.excelhelp.net/cgi-bin/forum/topic.cgi?forum=8&topic=31

[showmean]

Application.Undo


http://blog.xuite.net/showmean

[leonchou]

Undo 方法只能復原巨集執行之前的使用者操作，
巨集程式執行的動作是無法復原的，所以
Undo 通常放在程式第一行 (放到後面並無意義)。

這裡也有說明，可參考：
http://gb.twbts.com/index.php/topic,595.0.html

使用新版的人，可確認一下有沒有改。

[myomyint]

首先謝謝leonchou & showmean 大大的指導，小弟認為他人的語法好像是使用VBA語法執行前的Sheet1內容複製到Sheet2，然後按下復原按鍵時從Sheet2複製回來的樣子，但是小弟複製他人的語法還是弄不出來，也不懂要如何改寫他人的程式，Undo1檔案內小弟亂改過的程式不但沒有復原前一次動作還會清除掉自訂範圍框線，可否請教各位大大們小弟要求的復原功能完成寫好的檔案能不能傳到網頁上？再次謝謝!

[附件已被管理員刪除]

[showmean]

謝謝 leonchou 大的指導。

如果要復原巨集執行前的狀態，誠如myomyint 兄所言，
執行巨集時，先把Sheet1 copy 到 Sheet2, 再做Sheet1的運算。
運算後，若User執行「復原」指令，再把Sheet2 copy回Sheet1。
myomyint兄的檔案不知為何，我無法下載，
我想應可用「錄製巨集」做到吧:)

http://blog.xuite.net/showmean

[leonchou]

如前面所提使用 Application.OnUndo，參考附檔。
值得注意的是若是用CommandButton按鈕控制項，
記得將 TakeFocusOnClick 屬性設為 False，
以免因按鈕取得駐點，造成復原程式無法正常執行。

PS. 表單的按鈕控制項無此問題。

[附件已被管理員刪除]

[myomyint]

非常感謝leonchou大大的幫忙解答問題。