Có cách nào để xoá dữ liệu trong 1 ô và thời gian nhất định

[Bảy Dzõ]

Các anh chị cho mình được hỏi là có code nào để mình có thể xoá dữ liệu trong một ô sau khoảng thời gian được chọn.

Ví dụ: Dữ liệu trong ô A5 tư động bị xoá sau 30 giây...

Cám ơn

 

[hoangexcell]

Tham khảo cái này có sẵn nè
Sub timee()


Dim PauseTime, Start, Finish, TotalTime


If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
PauseTime = 5 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
TotalTime = Finish - Start ' Calculate total time.
MsgBox "Paused for " & TotalTime & " seconds"
Else
End
End If
End Sub