Giúp code đo thời gian Save (1 người xem)

[minhtuan55]

Chào cả nhà GPE
Nhờ cả nhà giúp em 1 đoạn code để lưu lại thời gian mà sau khi lưu hoàn thành
Vì file của em 100 mb lưu rất lâu, em muốn khi Ctrl + S sau khi lưu xong hoàn thành thì nó sẽ hiện ra thời gian đã lưu ví dụ ( 7 giây ). thời gian lưu đó hiện ra Msbog hay range("a1").value cũng được.Cảm ơn cả nhà

 

[Bảy Dzõ]

Chào cả nhà GPE
Nhờ cả nhà giúp em 1 đoạn code để lưu lại thời gian mà sau khi lưu hoàn thành
Vì file của em 100 mb lưu rất lâu, em muốn khi Ctrl + S sau khi lưu xong hoàn thành thì nó sẽ hiện ra thời gian đã lưu ví dụ ( 7 giây ). thời gian lưu đó hiện ra Msbog hay range("a1").value cũng được.Cảm ơn cả nhà

Bạn thử chạy code này xem thử nhé

Sub Dem_Thoi_Gian_Luu()
Dim BatDau As Double
Dim ThoiGian As Double


BatDau = Timer


ActiveWorkbook.Save


ThoiGian = Round(Timer - BatDau, 2)


MsgBox "File nay duoc luu thanh cong trong " & ThoiGian & " giay", vbInformation


End Sub

 

[dhn46]

Theo tôi vấn đề ở đây là file 100mb, dung lượng quá lớn. Bạn xem xét lại File để giảm dung lượng xuống. 100mb/file là 1 hiện tượng bất thường.

 

[minhtuan55]

Bạn thử chạy code này xem thử nhé

Sub Dem_Thoi_Gian_Luu()
Dim BatDau As Double
Dim ThoiGian As Double


BatDau = Timer


ActiveWorkbook.Save


ThoiGian = Round(Timer - BatDau, 2)


MsgBox "File nay duoc luu thanh cong trong " & ThoiGian & " giay", vbInformation


End Sub

Dim ThoiGian As Double

Cảm ơn anh nhiều lắm, Code anh gần đúng rồi, anh chỉ cần chỉnh cho em 1 tí nữa là ok, em muốn khi nào em lưu bằng Ctrl + S hoặc vào File chọn Save thì thời gian ấy sẽ hiện ra Sheet1.range("a1").value giúp em. ý là không cần phải Click vào nút bấm đó nữa

 

[minhtuan55]

Theo tôi vấn đề ở đây là file 100mb, dung lượng quá lớn. Bạn xem xét lại File để giảm dung lượng xuống. 100mb/file là 1 hiện tượng bất thường.

dạ không sao anh, tại em nhập dữ liệu nhiều nên vậy a hihi.