Gọi lệnh lập lại macro sau 10 phut 1 lần (1 người xem)

[thanhtaiteo]

Dear Các anh chị

Mong anh chị hỗ trợ giúp em code lập lại macro này sau 10 phút 1 lần được không ạ

Cám ơn anh chị nhiều

Sub autosave()
'
' autosave Macro
' goi run macro 5 phut 1 lan
'
' Keyboard Shortcut: Ctrl+q
'
    Range("A8").Select
    ActiveWorkbook.Save
End Sub

 

[befaint]

Application.OnTime

 

[thanhtaiteo]

Application.OnTime

befaint có thể nháp cụ thể trên file em gửi dc không ạ

Cám ơn nhiều nhiều

 

[thanhtaiteo]

Application.OnTime

Application.OnTime Now + TimeValue("00:010:00"), "autosave"
Sub autosave()
'
' autosave Macro
' goi run macro 5 phut 1 lan
'
' Keyboard Shortcut: Ctrl+q
'
    Range("A8").Select
    ActiveWorkbook.Save
End Sub

Mình viết ra thế này mà nó không chạy bạn ơi ! có ai giúp mình với

 

[befaint]

Application.OnTime Now + TimeValue("00:010:00"), "autosave"

Cho vào một Sub để gọi:
- Bằng phím tắt/ nút ấn:

Sub CallAutoSave()
Application.OnTime Now + TimeValue("00:010:00"), "autosave"
End Sub

- Hoặc tự động khi mở file:

Sub Auto_Open()
Application.OnTime Now + TimeValue("00:010:00"), "autosave"
End Sub

Chú ý thêm code hủy OnTime...

 

[thanhtaiteo]

Cho vào một Sub để gọi:
- Bằng phím tắt/ nút ấn:

Sub CallAutoSave()
Application.OnTime Now + TimeValue("00:010:00"), "autosave"
End Sub

- Hoặc tự động khi mở file:

Sub Auto_Open()
Application.OnTime Now + TimeValue("00:010:00"), "autosave"
End Sub

Chú ý thêm code hủy OnTime...

Cám ơn befaint rất nhiều, code chạy được nhưng chỉ chạy 1 lần như cấu trúc bên dưới,
Sau khi mình run Sub CallAutoSave thì 1 phút sau nó tự save cho mình, và những phút sau đó nó ko lặp lại quá trình này
Mong bạn giúp mình thêm lần nữa, cám ơn nhiều

Sub autosave()
'
' autosave Macro
' goi run macro 5 phut 1 lan
'
' Keyboard Shortcut: Ctrl+q
'
    Range("A8").Select
    ActiveWorkbook.Save
End Sub
Sub CallAutoSave()
Application.OnTime Now + TimeValue("00:01:00"), "autosave"
End Sub

 

[befaint]

Sub CallAutoSave()

Đang bận cái sờ mát hôm... Bạn thử vầy xem được không?

Sub CallAutoSave()
Application.OnTime Now + TimeValue("00:01:00"), "autosave"
CallAutoSave
End Sub

 

[thanhtaiteo]

Đang bận cái sờ mát hôm... Bạn thử vầy xem được không?

Sub CallAutoSave()
Application.OnTime Now + TimeValue("00:01:00"), "autosave"
CallAutoSave
End Sub

Hem được bạn ơi ! nó báo lỗi vầy nè

 

[befaint]

báo lỗi

Mình lộn tiệm...

Sub autosave()
' goi run macro 5 phut 1 lan
' Keyboard Shortcut: Ctrl+q
   Range("A8").Select
   ActiveWorkbook.Save
call CallAutoSave
End Sub
Sub CallAutoSave()
Application.OnTime Now + TimeValue("00:01:00"), "autosave"
End Sub

Bạn gõ cái này vba execute every 10 minutes vào Google.com rồi tìm hiểu phần Stop Timer nữa

 

[Mộng Thường 2001]

Mình lộn tiệm...

Sub autosave()
' goi run macro 5 phut 1 lan
' Keyboard Shortcut: Ctrl+q
   Range("A8").Select
   ActiveWorkbook.Save
call CallAutoSave
End Sub
Sub CallAutoSave()
Application.OnTime Now + TimeValue("00:01:00"), "autosave"
End Sub

Bạn gõ cái này How to have vba execute every 10 minutes vào Google.com rồi tìm hiểu phần Stop Timer nữa

Hớt tóc nam mà lộn qua uốn tóc thanh nữ là phiền lắm nhen anh!
hihi ^o^

 

[thanhtaiteo]

Mình lộn tiệm...

Sub autosave()
' goi run macro 5 phut 1 lan
' Keyboard Shortcut: Ctrl+q
   Range("A8").Select
   ActiveWorkbook.Save
call CallAutoSave
End Sub
Sub CallAutoSave()
Application.OnTime Now + TimeValue("00:01:00"), "autosave"
End Sub

Bạn gõ cái này vba execute every 10 minutes vào Google.com rồi tìm hiểu phần Stop Timer nữa

Quá tuyệt vời cám ơn bạn đã dành thời gian cho mình .

 

[batman1]

Hình như sai sai thì phải.
Chắc là: "Đi hớt tóc nam mà lộn qua uốn thanh nữ là phiền lắm nhen anh!"

 

[huuthang_bd]

Mình lộn tiệm...

Sub autosave()
' goi run macro 5 phut 1 lan
' Keyboard Shortcut: Ctrl+q
   Range("A8").Select
   ActiveWorkbook.Save
call CallAutoSave
End Sub
Sub CallAutoSave()
Application.OnTime Now + TimeValue("00:01:00"), "autosave"
End Sub

Bạn gõ cái này vba execute every 10 minutes vào Google.com rồi tìm hiểu phần Stop Timer nữa

ActiveWorkbook.Save là lộn tiệm rồi.
Và cần phải viết một cái gì đó cho sự kiện Workbook_BeforeClose nữa.

 

[moctriet]

Hớt tóc nam mà lộn qua uốn tóc thanh nữ là phiền lắm nhen anh!
hihi ^o^

Biết đâu anh ấy thích tiệm tóc nữ hơn

 

[thanhtaiteo]

ActiveWorkbook.Save là lộn tiệm rồi.
Và cần phải viết một cái gì đó cho sự kiện Workbook_BeforeClose nữa.

ActiveWorkbook.Save ko lộn đâu anh, mục đích của marco này đơn thuần là chỉ save de update dữ liệu cho sharework book

 

[huuthang_bd]

ActiveWorkbook.Save ko lộn đâu anh, mục đích của marco này đơn thuần là chỉ save de update dữ liệu cho sharework book

Code hẹn giờ mà ActiveWorkbook thì biết được cái nào.

 

[thanhtaiteo]

Code hẹn giờ mà ActiveWorkbook thì biết được cái nào.

Cao nhân cao nhân, anh nói em mới để ý .

Hèn gì khi chạy macro này em có mở 3-4 file excell khác thì tụi nó đều lưu, trong khi em chỉ muốn nó lưu chỉ 1 sheet trong 1 file nhất định thôi .

Giờ mình sửa sao anh huuthang_bd

 

[huuthang_bd]

Cao nhân cao nhân, anh nói em mới để ý .

Hèn gì khi chạy macro này em có mở 3-4 file excell khác thì tụi nó đều lưu, trong khi em chỉ muốn nó lưu chỉ 1 sheet trong 1 file nhất định thôi .

Giờ mình sửa sao anh huuthang_bd

Nếu code trong file muốn save thì bạn sửa thành ThisWorkbook thôi.

 

[lysamtanhaccs4]

a e cho mình hỏi code nếu mở dạng read only thì ko làm gì nếu mở bình thường thì tự lưu sau 10 phút.

 

[giaiphap]

a e cho mình hỏi code nếu mở dạng read only thì ko làm gì nếu mở bình thường thì tự lưu sau 10 phút.

Thế bạn hiểu Read Only nghĩa là gì vậy?