snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" (ByVal hKey As LongPtr, ByVal lpSubKey As String, phkResult As LongPtr) As Long
Public lngStartTime As Long 'time in msec
Public Sub StartTimer()
lngStartTime = timeGetTime()
End Sub
Public Function EndTimer() As Double
EndTimer = timeGetTime() - lngStartTime
End Function
Public Sub delay(msdelay As Long)
' creates delay in ms
Dim temp As Double
StartTimer
Do Until EndTimer > (msdelay)
Loop
End Sub