Xem thời gian lưu file

[hanahvu]

Trong quá trình làm việc trên file excel, thì tôi thường xuyên lưu dữ liệu.
Nếu muốn biết thời gian lưu của những lần lưu (save) trước đó thì tôi phải làm thế nào?
Mong mọi người giúp đỡ.

 

[Hai Lúa Miền Tây]

Trong quá trình làm việc trên file excel, thì tôi thường xuyên lưu dữ liệu.
Nếu muốn biết thời gian lưu của những lần lưu (save) trước đó thì tôi phải làm thế nào?
Mong mọi người giúp đỡ.

Hình như là không được bạn à, Excel chỉ cho biết, động tác vừa lưu trước đó 1 lần thôi.
Nếu muốn trước đó nữa thì không được. Có được chăng là bạn phải nhờ can thiệp của VBA, trước mỗi lần lưu sẽ Backup lại 1 file

 

[ndu96081631]

Trong quá trình làm việc trên file excel, thì tôi thường xuyên lưu dữ liệu.
Nếu muốn biết thời gian lưu của những lần lưu (save) trước đó thì tôi phải làm thế nào?
Mong mọi người giúp đỡ.

Đơn giản nhất là: Mổi khi save thì add giá trị thời gian hiện hành vào 1 name ---> Khi cần thì gọi name này ra
Ví dụ:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  ThisWorkbook.Names("TG").Value = Format(Now, "dd/mm/yyyy - hh:mm:ss")
End Sub

Sub Test()
  MsgBox Evaluate("TG")
End Sub

Đương nhiên name TG đã được tạo trước đó!

 

[sealand]

Nếu để kiểm tra lâu dài thì bạn phải lưu vào sheet và ẩn sheet đó đi.
Nếu chỉ lưu và kiểm tra trong lần làm việc thì bạn khai báo 1 biến chung rồi lưu vào đó.
Mình ví dụ để kiểm tra thời gian luu 10 lần cuối như file kèm. Bạn thử lưu vài lần rồi kiểm tra (Nếu muốn xem dài hơn thì khai báo biến nhiều phần tử hơn)

 

[ndu96081631]

Nếu để kiểm tra lâu dài thì bạn phải lưu vào sheet và ẩn sheet đó đi.
Nếu chỉ lưu và kiểm tra trong lần làm việc thì bạn khai báo 1 biến chung rồi lưu vào đó.
Mình ví dụ để kiểm tra thời gian luu 10 lần cuối như file kèm. Bạn thử lưu vài lần rồi kiểm tra (Nếu muốn xem dài hơn thì khai báo biến nhiều phần tử hơn)

Đồng ý với anh cách lưu thời gian vào 1 vùng nào đó... nhưng code của anh chưa ổn đâu anh à ---> Đóng file rồi mở lại nó xóa sạch dử liệu thời gian!
Em đề xuất cách này:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  With Sheet1.Range("A65536").End(xlUp).Offset(1)
    .NumberFormat = "dd/mm/yyyy - hh:mm:ss"
    .Value = Now
  End With
End Sub

Mổi lần SAVE, thời gian được lưu vào cột A của sheet 1, tuần tự từ trên xuống dưới

 

[Hai Lúa Miền Tây]

Có lần mình cũng cần cái này và sau khi được trợ giúp của thầy ndu96081631 anh TuanVNUNI , smbsolutions và sự "mài mò" mình lấy luôn Username, ComputerName, IP, giờ và ngày tháng năm luôn.
Bạn tham khảo file nhé
Thân

 

[sealand]

To Ndu: Mình nói là chỉ để xem trong phiên làm việc thôi còn nếu để xem lâu dài thì cách ổn nhất là ghi vào sheet hoặc file text kèm theo. Cách thức cũng tương tụ thôi, nếu đã ghi xuống sheet thì nên lưu cả UserName và máy làm việc để có thông tin chi tiết.