¿Existe un equivalente a Thread.Sleep () en VBA?

Solución:

Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
(ByVal dwMilliseconds As Long)

Utilice la siguiente sintaxis para llamar a la función Sleep:

Sub Sleep()
Sleep 1000 'Implements a 1 second delay
End Sub 

Otra forma sin usar kernel32:

Dim started As Single: started = Timer

Do: DoEvents: Loop Until Timer - started >= 1

Se requieren un par de enmiendas para que el código funcione. El siguiente código es la versión corregida.

Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Sub SleepVBA() 
Sleep 1000 'Implements a 1 second delay 
End Sub 

---

---

Utiliza Nuestro Buscador