Giúp em lấy giá trị theo thứ tự thời gian và có lặp lại

[nhnn1986]

Chào Anh/Chị ạ
Đoạn code sau của em sẽ hiển thị random lable1 trên Form mỗi lần mở. giá trị random tại Cột D, từ dòng ngẫu nhiên 1 đến 4

Em muốn Caption sẽ hiển thị theo thời gian tuần tự từ dòng 1 đến dòng 4, mỗi dòng 5s (5 giây).
Xin giúp em với ạ.

Private Sub Userform_Initialize()
   Label1.Caption = ThisWorkbook.Sheets("data").Cells(WorksheetFunction.RandBetween(1, 4), 4).Text
End Sub

 

[HeSanbi]

Nếu bạn đã biết sử dụng code thì thử sử dụng code sau:

Dim Ti as Date
Private Sub RunLoop()
    Ti = Now + Timeserial(0, 0, 5)
    Application.OnTime Ti, "ChangeLabel", , True
End Sub
Private Sub ChangeLabel()
    Label1.Caption = ThisWorkbook.Sheets("data").Cells(WorksheetFunction.RandBetween(1, 4), 4).Text  
End Sub
Private Sub Userform_Initialize()
    RunLoop
End Sub

Private Sub UserForm_Terminate()
    On error resume next
    Application.OnTime Ti, "ChangeLabel", , False
End Sub

 

[nhnn1986]

Dạ code chạy lỗi, ko thấy hiên thị Label Caption, khi đóng form thông báo lỗi ở macro Changelabel()

 

[LamNA]

Dạ code chạy lỗi, ko thấy hiên thị Label Caption, khi đóng form thông báo lỗi ở macro Changelabel()

Em nên đưa dữ liệu để biết sai ở đâu

 

[nhnn1986]

Em đính kèm file đây ạ, ý em muốn là hiển thị mỗi dòng 5 giây và tuần tự từ trên xuống dưới. Em để có 8 dòng (#02 bài hát) nhưng thực chất là khoảng 50 bài hát, mỗi bài hát cấu trúc gồm 04 dòng, vị chi tổng 200 dòng (Cột D 50 bài và hiển thị vào giờ chẵn còn cột E cũng 50 bài nhưng hiển thị vào giờ lẻ)
Anh/Chị giúp em với ạ./.