Active sheet theo thời gian xác định (1 người xem)

[phuvacgach]

Dear cả nhà,
Em hỏi nhờ chút, em có một file excel có 2 sheet.
Làm thế nào để cứ 5' thì lại ative 1 sheet để show lên màn hình.
Em cảm ơn nhiều a.

 

[phuvacgach]

Dear cả nhà,
Em hỏi nhờ chút, em có một file excel có 2 sheet.
Làm thế nào để cứ 5' thì lại ative 1 sheet để show lên màn hình.
Em cảm ơn nhiều a.

Cả nhà có ai biết thì giúp em vs ạ

 

[ndu96081631]

Dear cả nhà,
Em hỏi nhờ chút, em có một file excel có 2 sheet.
Làm thế nào để cứ 5' thì lại ative 1 sheet để show lên màn hình.
Em cảm ơn nhiều a.

Chuyển sang PowerPoint rồi "show" gì gì đó dễ hơn bạn à

 

[huuthang_bd]

Dear cả nhà,
Em hỏi nhờ chút, em có một file excel có 2 sheet.
Làm thế nào để cứ 5' thì lại ative 1 sheet để show lên màn hình.
Em cảm ơn nhiều a.

Bạn thử code này xem

Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private T As Long
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Auto_Open()
    T = SetTimer(0, 0, 3000, AddressOf ChangeActiveSheet)
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Auto_Close()
    T = KillTimer(0, T)
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub ChangeActiveSheet()
On Error Resume Next
If ThisWorkbook.ActiveSheet.Name <> "A" Then
    ThisWorkbook.Sheets("A").Activate
Else
    ThisWorkbook.Sheets("B").Activate
End If
End Sub

Hiện tại tôi đang đặt thời gian là 3 giây để dễ kiểm tra. Nếu muốn đặt thời gian 5 phút thì bạn sửa 3000 thành 300000.

 

[phuvacgach]

Oh, được rồi anh nhé.
Em cảm ơn nhiều ạ