cách undo trong VBE

[buianh]

Tôi có một việc thế này rất mong các bác giúp đỡ. Khi tôi đã chạy code để update dữ liệu nhưng trong một số trường hợp cần update lại thì có code nào để undo lại dữ liêu như lúc mình chưa update được ko?
Rất mong nhận được sự giúp đỡ của các bác.
Xin trân thành cảm ơn!!!!

 

[BNTT]

Vấn đề này có nói nhiều trên diễn đàn rồi, bạn tìm thử xem (nhấn vào mục Tìm kiếm, nhập "Undo trong VBA" vào, rồi nhấn Enter)
Tìm dùm bạn môt lần nè: http://www.google.com.vn/custom?dom...do+trong+VBA&sitesearch=www.giaiphapexcel.com


Còn với tôi thì có một cách hơi chuối, nói bạn nghe thôi, chứ không nên làm theo:
Là trước khi chạy code, nhấn lưu file, sau khi chạy code, thấy không ổn, thì tôi đóng file lại mà không lưu, rồi lại mở ra, sửa code.

 

[anhtuan1066]

Vấn đề này có nói nhiều trên diễn đàn rồi, bạn tìm thử xem (nhấn vào mục Tìm kiếm, nhập "Undo trong VBA" vào, rồi nhấn Enter)
Tìm dùm bạn môt lần nè: http://www.google.com.vn/custom?dom...do+trong+VBA&sitesearch=www.giaiphapexcel.com


Còn với tôi thì có một cách hơi chuối, nói bạn nghe thôi, chứ không nên làm theo:
Là trước khi chạy code, nhấn lưu file, sau khi chạy code, thấy không ổn, thì tôi đóng file lại mà không lưu, rồi lại mở ra, sửa code.

Cách này tôi vẩn thường hay làm, có thể là chuối thật nhưng dể làm! Còn việc Undo thật sự trong VBA khó khăn hơn ta tưởng rất nhiều. Giãi pháp thì có, nhưng đọc xong code e rằng ngọng luôn!
(Tìm bài viết của Tigertiger có nói về vấn đề này)

 

[buianh]

Cách này tôi vẩn thường hay làm, có thể là chuối thật nhưng dể làm! Còn việc Undo thật sự trong VBA khó khăn hơn ta tưởng rất nhiều. Giãi pháp thì có, nhưng đọc xong code e rằng ngọng luôn!
(Tìm bài viết của Tigertiger có nói về vấn đề này)

Tôi lại tưởng nó đơn giản chỉ phang một đoạn code nho nhỏ vào là xong thôi. Thấy các bác nói nó khoai thế thì em lại phải chơi theo kiểu chuối vậy.

Thanks!!!

 

[digita]

Bạn Bùi Anh,

Khi bạn chạy code rồi thấy có một vài dữ liệu không chính xác được macro thông báo, thì bạn chạy code sau để "chụp hình" cái sheet cần kiểm tra/chỉnh sửa qua 1 workbook mới. Bạn copy cái code này vô module1:

Sub Sh_SnapShot()
ActiveSheet.Copy
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=""
End Sub

Sau đó cứ ung dung bỏ cái file đã được cập nhật (tức là đóng file & đừng save nó).

Bước kế tiếp là mở lại cái file nguyên thủy, sừa đổi mã hàng & dữ liệu liên quan.

Và cuối cùng chạy code update lại để có kết quả 100%.

Mến