Code về thời gian chạy trong một khoảng thời gian cố định

[thang_nguyen1]

Mình muốn hỏi mọi người là giúp mình sửa thêm code cho mình. Khi chạy trong khoảng thời gian 40 giây nó sẽ tự dừng lại, hiện tại mình đang để nút start và stop ấn tay. Trong tệp mình ghi rõ hơn.

 

[batman1]

Thời gian, vd. 40s, nhập vào I8

Muốn nhịp nhanh chậm hơn thì sửa 0.4 thành nhỏ hoặc lớn hơn.

Private Sub CommandButton1_Click()
Dim so_giay As Long, start, t
    so_giay = Sheet1.Range("I8").Value
    start = Timer
    Do While Timer - start < so_giay
        t = Timer
        Sheet1.Calculate
        Do While Timer - t < 0.4
            DoEvents
        Loop
    Loop
End Sub

 

[thang_nguyen1]

Dạ cảm ơn bác batman ạ.