Historydata - Xem lại những gì trước đó.

[dmtdmtbb]

- Khi bạn muốn xem lại những gì đã thay đổi trước đó.
- Chỉ ghi nhận những thao tác = tay thôi nha.
- Xem hướng dẫn sử dụng trong file.

 

[anhtuan1066]

Làm sao xem lại những thay đổi do macro gây ra thì ngon hơn... Thao tác bằng tay dù sao vẩn Undo dc, còn thằng em macro nó chạy thì ko biết làm cách nào quay lại cả
Hic
ANH TUẤN

 

[yeudoi]

Hình như em nhớ có bài viết về undo khi thay đổi bằng macro rồi đấy Bác Tuấn ah. Bác tìm thử xem sao.

 

[anhtuan1066]

Hình như em nhớ có bài viết về undo khi thay đổi bằng macro rồi đấy Bác Tuấn ah. Bác tìm thử xem sao.

Đúng là có, nhưng cách dùng rất phức tạp... Còn nếu làm hẳn thành 1 Tools thì giúp cho người dùng dể sử dụng hơn
ANH TUẤN

 

[dmtdmtbb]

Làm sao xem lại những thay đổi do macro gây ra thì ngon hơn... Thao tác bằng tay dù sao vẩn Undo dc, còn thằng em macro nó chạy thì ko biết làm cách nào quay lại cả
Hic
ANH TUẤN

- Khác nhau đấy chứ, Undo chỉ có giá trị khi anh đang làm việc, nếu tắt thì không còn gì nữa.
- Cái này anh có thể lưu lại những thay đổi đã xảy ra.

 

[Mr Okebab]

Mình thì hay BackupData như sau : Sẽ copy toàn bộ dữ liệu thô của DATA sang một File mới và lưu lại với tên gắn liền với thời gian lưu (Năm-Tháng-Ngày-Giờ-Phút), sau này nếu cần thì chỉ cần Restore lại là OK.
Tát nhiên các việc này cũng tự động = VBA.

Như vậy sẽ chủ động hơn.


Thân!

 

[phamduylong]

Mình thì hay BackupData như sau : Sẽ copy toàn bộ dữ liệu thô của DATA sang một File mới và lưu lại với tên gắn liền với thời gian lưu (Năm-Tháng-Ngày-Giờ-Phút), sau này nếu cần thì chỉ cần Restore lại là OK.
Tát nhiên các việc này cũng tự động = VBA.
Như vậy sẽ chủ động hơn.
Thân!

Đây là code tự động copy sheet hiện hành sang sheet mới và đổi tên dạng ddmmyy hhmmss AM/PM và quay trở lại sheet hiện hành.
cho nó chạy trước khi thực hiện các lệnh khác.

Sub ......
Dim acSheet As Object
Set acSheet = ActiveSheet
ActiveSheet.Copy Before:=ActiveSheet
gio = " " & Replace(Time(), ":", "")
ngay = Format(Day(Now()), "00") & Format(Month(Now()), "00") & Right(Year(Now()), 2)
myName = ngay & gio
ActiveSheet.Name = myName
acSheet.Select
.........
.........
End Sub

 

[Mr Okebab]

Đây là code tự động copy sheet hiện hành sang sheet mới và đổi tên dạng ddmmyy hhmmss AM/PM và quay trở lại sheet hiện hành.
cho nó chạy trước khi thực hiện các lệnh khác.

Sub ......
Dim acSheet As Object
Set acSheet = ActiveSheet
ActiveSheet.Copy Before:=ActiveSheet
gio = " " & Replace(Time(), ":", "")
ngay = Format(Day(Now()), "00") & Format(Month(Now()), "00") & Right(Year(Now()), 2)
myName = ngay & gio
ActiveSheet.Name = myName
acSheet.Select
.........
.........
End Sub

Không phải là lưu nguyên 1 sheet sang File mới bác ạ, vì nếu lưu như thế ta sẽ bê nguyên name, linhk và code cũng như các Ojb của sheet gốc sang.
Như vậy trước khi lưu lại, ta phải xóa hết chúng đi.

Vì thế ta chỉ copy giá trị tại các vùng dữ liệu thôi.

Thân!