Dim intime As Date
Sub test_Ontime()
intime = Now() + TimeSerial(0, 0, 5) ' 시간을 5초 후로
MsgBox "hello"
Application.ontime intime, "test_Ontime" ' 5초후에 자기 자신을 호출
End Sub
Sub test_stopOntime()
Application.ontime intime, "test_Ontime", , False
End Sub
'VBA' 카테고리의 다른 글
| VBA Oracle 접속 (0) | 2012.11.30 |
|---|---|
| VBA MySQL SELECT문 (0) | 2012.10.09 |
| VBA MySQL 접속 (0) | 2012.10.09 |
