¿Cómo cambiar el tiempo de retraso de esta oración en Excel vba? Retraso de 2 segundos cada 3.000 pasos.
¿Opción?Explícito
¿Privado?Declarar?Sub?Sleep?Lib?"kernel32"?(ByVal?dwmillisegundos?As?Long)
Privado?Sub?OutputDeclareNumber_Click()
Aplicación.ScreenUpdating?=?False
Aplicación.ScreenUpdating?=?Calculation=?xlCalculationManual
Dim?Sheet(1)
rr1= sh1.(?).End(xx).a1000000].End(xlUp).row
i=?2
Hacer?While?sh1.Cells(i,?1 )?<>?"
sh1.Cells(i,?10) =?Application.CountIf(sh1.Range("A2:A"? &?rr1),?Cells(i,?6 ))
i?=?i?+?1
¿Si?i?/?3000?=?Int(i?/?3000)?Entonces?Dormir?2000
Bucle
MsgBox?"¡Salida completada! "
¿Fin?