aplicar una pausa en una macro de VBA Excel Resuelto

Question

Hola,

Estoy buscando cómo detener el flujo de mi macro en VBA Excel durante unos segundos de manera invisible para el usuario.
Si alguien tiene un fragmento de código, ¡sería genial!

Estoy en VBA Excel 2007

Gracias

Configuración: Windows XP / Internet Explorer 7.0

Woody · Accepted Answer

tenía la misma pregunta, y encontré algo aún más simple:

Sub Esperar() ' Esperar 5 segundos Application.Wait Time + TimeSerial(0, 0, 5) ' Continuar después de la pausa End Sub

reemplazar el "5" por el número de segundos deseado

pijaku · Answer

Hola,

Para hacer una pausa, puedes usar efectivamente Sleep declarando la API al inicio del módulo:

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

Luego, al llamarla en tu procedimiento:

Sleep 1000 'Sleep calcula en milisegundos. Así que Sleep 1000 esperará 1 segundo...

También puedes usar Wait. Wait calcula en segundos. Ejemplo de Microsoft de espera de 10 segundos [Según Microsoft: Este ejemplo pausa una macro en ejecución durante aproximadamente 10 segundos.], el aproximadamente me divierte mucho... :

newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 10 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime

También está el Timer... Véase este ejemplo de Mister lermitte222...

Timer y wait cuentan en segundos, sleep en milisegundos.
Con timer puedes decidir realizar una tarea repetitiva cada "x" unidades de tiempo, con Wait o Sleep, es tu macro la que espera antes de continuar su ejecución. [Fuentes: ouskel'n'or]
Atentamente,
Franck P

Emmanuelagen · Answer

Hola,
Gracias por esta información, me ha sido muy útil.
Tengo una pregunta relacionada con este tema. He insertado este tiempo de espera en mi macro vinculada a un botón, pero me gustaría que el tiempo no estuviera limitado y que la macro se reanudara en el próximo "clic" del ratón...
Gracias por su ayuda
Atentamente
Emmanuelagen

benaflak · Answer

Dim PausaTiempo, Inicio, Fin, TiempoTotal Si (MsgBox("Presiona Sí para pausar durante 5 segundos", 4)) = vbYes Entonces PausaTiempo = 5 ' Establecer duración. Inicio = Timer ' Establecer tiempo de inicio. Hacer Mientras Timer < Inicio + PausaTiempo DoEvents ' Ceder a otros procesos. Bucle Fin = Timer ' Establecer tiempo de finalización. TiempoTotal = Fin - Inicio ' Calcular tiempo total. MsgBox "Pausado durante " & TiempoTotal & " segundos" Else Fin End Si

Aplicar una pausa en una macro de VBA Excel

4 réponses

Capa de destino oculta

Nombre de archivo demasiado largo

Sin sonido con ps3 y hdmi

Control remoto de free box roto

Estoy recibiendo llamadas de números no asignados.

¿cómo activar el bluetooth en un televisor samsung?

Problema de arranque packard bell pantalla negra

Explicación de black butler temporada 1/2 (spoilers)

The vampire diaries temporada 2 en español

Jetonrouge.com: ¿estafa o buena oportunidad de casino?