Giúp code sau thời gian mới chạy (1 người xem)

[minhtuan55]

Ví dụ

Sub aa()
Range("a1").Value = 1
End Sub

Code trên khi gán vào nút bấm thì khi click thì ô A1 sẽ bằng 1 tức thì. Giờ em muốn khi Click vào nút bấm sau 5 giây ô A1 bằng 1 phải làm sao. cả nhà GPE giúp mình nhé

 

[phulien1902]

Ví dụ

Sub aa()
Range("a1").Value = 1
End Sub

Code trên khi gán vào nút bấm thì khi click thì ô A1 sẽ bằng 1 tức thì. Giờ em muốn khi Click vào nút bấm sau 5 giây ô A1 bằng 1 phải làm sao. cả nhà GPE giúp mình nhé

Bạn thử với:

Dim TimeToRun
Sub abc()
    TimeToRun = Now + TimeValue("00:00:05")
    Application.OnTime TimeToRun, "aa"
End Sub
Sub aa()
    Range("a1").Value = 1
End Sub