VBA Tự động nhảy từ sheet hiện hành sang Sheet khác tại thời điểm AutoSave?

[gakon_Office]

Xin hỏi GPE có code nào tại thời điểm SaveAutoRecover File thì tự động nhảy từ sheet này sang sheet khác được không ạ!
Giả sử nhảy từ Ô A1 của Sheet2 về Ô A1 của Shee1.
Chỉ áp dụng cho "SaveAutoRecover File". Còn Bấm Save thì không thay đổi.
Hoặc là Sau 1 khoảng thời gian nào đó tự mình đặt ra thì thì tự động nhảy từ sheet này sang sheet khác.
Có thể làm được như vậy không ạ!
Anh chị nào biết chỉ cho em với.Em cám ơn!

 

[ndu96081631]

Xin hỏi GPE có code nào tại thời điểm SaveAutoRecover File thì tự động nhảy từ sheet này sang sheet khác được không ạ!
Giả sử nhảy từ Ô A1 của Sheet2 về Ô A1 của Shee1.
Chỉ áp dụng cho "SaveAutoRecover File". Còn Bấm Save thì không thay đổi.
Hoặc là Sau 1 khoảng thời gian nào đó tự mình đặt ra thì thì tự động nhảy từ sheet này sang sheet khác.
Có thể làm được như vậy không ạ!
Anh chị nào biết chỉ cho em với.Em cám ơn!

Chưa hiểu bạn "muốn" vậy để làm cái gì nên thật khó mà giúp
Thôi thì nói cho mọi người biết MỤC ĐÍCH của bạn đi

 

[nguyenkhamam]

Tại vì em có một file nhập liệu để ở màn hình 24/24.Cập nhập dữ liệu hàng giờ.
Nếu cứ để nó hiển thị ở sheet nhập liệu thì không đẹp mắt cho lắm.
Nên em muốn nó nhảy về sheet trang chủ do tự mình tạo chẳng hạn.
Xin thầy chỉ cách.

 

[gakon_Office]

Tại vì em có một file nhập liệu để ở màn hình 24/24.Cập nhập dữ liệu hàng giờ.
Nếu cứ để nó hiển thị ở sheet nhập liệu thì không đẹp mắt cho lắm.
Nên em muốn nó nhảy về sheet trang chủ do tự mình tạo chẳng hạn.
Xin thầy chỉ cách.

Anh mam nói đúng đấy ạ! Anh ndu biết thì chỉ cho em với!
Cảm ơn anh nhiều!

 

[ndu96081631]

Anh mam nói đúng đấy ạ! Anh ndu biết thì chỉ cho em với!
Cảm ơn anh nhiều!

Ví dụ ta có 1 file gồm nhiều sheet, trong đó có 1 sheet tên là TrangChu
Giờ ta cho code này vào sheet TrangChu

Private Sub Worksheet_Deactivate()
  Application.OnTime Now + TimeValue("00:00:15"), "TrangChu"
End Sub

và cho code này vào Module

Sub TrangChu()
  Sheets("TrangChu").Activate
End Sub

Tức mỗi khi ta chuyển sang 1 sheet khác không phải là TrangChu thì code được kích hoạt, sau 15s sẽ trở về sheet TrangChu
Vậy thôi

 

[gakon_Office]

Ví dụ ta có 1 file gồm nhiều sheet, trong đó có 1 sheet tên là TrangChu
Giờ ta cho code này vào sheet TrangChu

Private Sub Worksheet_Deactivate()
  Application.OnTime Now + TimeValue("00:00:15"), "TrangChu"
End Sub

và cho code này vào Module

Sub TrangChu()
  Sheets("TrangChu").Activate
End Sub

Tức mỗi khi ta chuyển sang 1 sheet khác không phải là TrangChu thì code được kích hoạt, sau 15s sẽ trở về sheet TrangChu
Vậy thôi

Xin cảm ơn anh nhiều!

 

[gakon_Office]

Còn có cách nào mặc định theo thời gian SaveAuto không vậy anh?

 

[Phuongmai2015]

Ví dụ ta có 1 file gồm nhiều sheet, trong đó có 1 sheet tên là TrangChu
Giờ ta cho code này vào sheet TrangChu

Private Sub Worksheet_Deactivate()
  Application.OnTime Now + TimeValue("00:00:15"), "TrangChu"
End Sub

và cho code này vào Module

Sub TrangChu()
  Sheets("TrangChu").Activate
End Sub

Tức mỗi khi ta chuyển sang 1 sheet khác không phải là TrangChu thì code được kích hoạt, sau 15s sẽ trở về sheet TrangChu
Vậy thôi

Trường hợp có nhiều hơn 2 sheet, muốn chạy lần lượt các sheet thì làm như nào ạ
Ví dụ: sheet1 chạy 15 giây thì chuyển sang sheet 2
sheet2 chạy 15 giây thì chuyển sang sheet 3
Sheet 3 chạy 15 giây thì chuyển sang sheet 4
Sheet 4 chạy 15 giây thì chuyển về sheet 1
nhờ anh chỉ giúp em ạ