Có macro nào để save file tự động không mọi người?

[tlthlnmtnn]

Có thể viết macro sau mỗi lần enter thì nó tự lưu lại không mọi người
hoặc có macro nào có thể lưu tự động mà không ảnh hưởng đến việc đánh tài liệu xin mọi người chia sẻ với!
mình cứ thường xuyên mất dữ liệu vì mất điện hoài hà!

 

[PhanTuHuong]

Cái này cần gì phải lập, có thể tự thiết lập chế độ Auto Save sau 1, 2 hay nhiều phút

 

[tlthlnmtnn]

Ý bạn là cái save trong tools ấy hả
Cái save đó cà zựt lắm, lúc cần chẳng thấy nó save gì cả, mình cũng thử rồi chẳng ăn thua nên mới mò vô đây hỏi có macro không cho chắc ăn ấy mà!

 

[VetMini]

Mất điện thì mua một cái UPS về mà xài. Tự động save rồi lúc cần trở lại ban đầu thì lấy gì trở lại?

 

[ndu96081631]

Mất điện thì mua một cái UPS về mà xài. Tự động save rồi lúc cần trở lại ban đầu thì lấy gì trở lại?

UPS bây giờ cũng không rẻ đâu nha! Rẻ nhất cở 8 xị còn đắt nhất thì.. vô chừng (vài chục chai cũng có)
Mà mấy cái rẻ nhất chắc cũng không ngon lành gì
Nếu là tôi thì tôi không chơi giải pháp này. Thêm ít tiền, mua con laptop, khỏi sợ vụ cúp điện
Ẹc... Ẹc...

 

[VetMini]

UPS bây giờ cũng không rẻ đâu nha! Rẻ nhất cở 8 xị còn đắt nhất thì.. vô chừng (vài chục chai cũng có)
Mà mấy cái rẻ nhất chắc cũng không ngon lành gì
Nếu là tôi thì tôi không chơi giải pháp này. Thêm ít tiền, mua con laptop, khỏi sợ vụ cúp điện
Ẹc... Ẹc...

Ờ nhỉ. Mình cổ lỗ quá rồi. Hồi xưa đầu tư UPS chủ yếu vì để cúp điện hoài bị trầy ổ cứng. Nhưng bây giờ ổ cứng tốt hơn nhiều, không bị vấn đề này nữa.

 

[Thay]

Có thể viết macro sau mỗi lần enter thì nó tự lưu lại không mọi người
hoặc có macro nào có thể lưu tự động mà không ảnh hưởng đến việc đánh tài liệu xin mọi người chia sẻ với!
mình cứ thường xuyên mất dữ liệu vì mất điện hoài hà!

Bạn tải file về chạy rồi gõ số phút vào để tự động ghi

 

[tlthlnmtnn]

Bạn tải file về chạy rồi gõ số phút vào để tự động ghi

Thanks bạn đã giúp,nhưng bạn ơi không phải tự nhiên mình đòi làm phím enter là nút lưu đâu.
vì mình không muốn ảnh hưởng đến việc đánh tài liệu, chẳng hạn mình đang đánh dữ liệu trên 1 dòng mà tới thời gian lưu thì nó sẽ thoát khỏi ô đánh đó, nếu vậy thì mình dùng auto click nút save nhanh hơn là nhờ viết macro ấy chứ! (Nhưng không bít viết vậy sau này có ảnh hưởng gì không nữa, nhưng cụ thể thì mình muốn đánh hoàn thành xong 1 dòng rồi nó mới lưu ấy)

 

[tlthlnmtnn]

À, mình chợt nhớ thế này, nếu có thể viết tự động save bằng phút vậy nếu mình đưa ý tưởng vậy có lẽ sẽ viết được nhỉ!
Ý tưởng của mình là khi nhập dữ liệu vào 1 cột nào đấy (Chỉ tính 1 cột thôi nha), ví dụ là cột E đi, nó kiểm tra dòng đó có rỗng không, nếu rỗng thì không thực hiện lệnh, nếu có dữ liệu thì nó sẽ lấy số dòng của cột đó chia cho 1 con số, ví dụ là 10 đi, nếu chia hết thì nó sẽ thực hiện lưu (lý do: để giới hạn việc thực hiện lệnh giống như đặt khoảng thời gian để lưu)
không biết ý tưởng như vậy có viết được không vậy, mong mọi người giúp đỡ! Thanks nhiều

 

[tlthlnmtnn]

Sau vài ngày copy và paste từ những macro tìm được mình có được code này
Lưu ra 1 file excel khác làm backup, khi cột F có dữ liệu vd: cứ 10 dòng thêm khoảng trắng để nó tự lưu, tuy hơi cực nhưng cũng tạm
Nhưng khổ nỗi lưu files Backup thì file chính không lưu
không biết có thể sửa cho cả 2 cùng xài được không, và điều kiện giống như comment trên

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
   If Target.Column = 5 And Target.Row > 3 Then
      If Target <> "" Then
         If Target.Offset(, 1) <> "" Then
               Application.DisplayAlerts = False


                ActiveWorkbook.SaveAs Filename:= _
                "D:\BackUpFile.xls"
                Application.DisplayAlerts = True
               
         End If
      End If
   End If
End If
End Sub

 

[tlthlnmtnn]

Seo không ai giúp đỡ mình hết vậy?
Cho mình hỏi là có thể viết tự động lấy đường dẫn đến file không
VD: Lấy đường dẫn đến file 123.xls (Tên file là bất kỳ ở đây vd là file 123.xls) thành dạng D:\TaiLieu\123.xls

nếu được thì có thể giúp mình viết thế này không
lấy file đường dẫn xong gán đường dẫn đó vào chỗ in đậm D:\BackUpFile.xls, nếu được vậy thì xong 1 phần 2 của tự động lưu mà mình cần rùi!

ActiveWorkbook.SaveAs Filename:= _
"D:\BackUpFile.xls"

 

[nguoihamvui]

Bạn tải file về chạy rồi gõ số phút vào để tự động ghi

File save của bác Lê Thấy báo virus nhưng dùng ok, thank for share