- Inicie o editor do Visual Basic – VBA (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.
- Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
- Insira o texto VBA copiando e colando o código abaixo:
Pausa na macro até chegar no horário do dia atual.
Application.Wait “18:23:00”
Para a macro por aproximadamente 10 segundos.
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Pausa a macro indicando por quanto tempo passou.
If Application.Wait(Now + TimeValue(“0:00:10”)) Then
MsgBox “Time expired”
End If
- Deve ser incrementado dentro do seu código.
- Feche o Visual Basic (VBA).
- No Excel clique na guia Desenvolvedor (Caso não esteja disponível veja aqui Como Ativar a Guia Desenvolvedor).
- Clique no botão macros e selecione o Nome_Da_Macro_Criada.
- Clique em executar e pronto.