O tempo com o vba é um recurso de infinitas possibilidades já que podemos fazer telas de apresentação, dar mensagem de bom dia, mexer em figuras, e ainda para pausar o código vba para chamar a atenção do cliente para específicas efeitos da mudança de seu código.
Segue abaixo 3 exemplos de Contador Tempo com Vba (pausas).
1 – Este exemplo faz uma pausa na macro até chegar no horário do dia atual.
|
1 2 3 4 |
Application.Wait "18:23:00" |
_____________________________________________________
2 – Este código para a macro por aproximadamente 10 segundos.
|
1 2 3 4 5 6 7 8 |
newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 10 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime |
_____________________________________________________
3 – Este outro exemplo pausa a macro indicando por quanto tempo passou.
|
1 2 3 4 5 6 |
If Application.Wait(Now + TimeValue("0:00:10")) Then MsgBox "Time expired" End If |
_____________________________________________________
Código retirados da fonte abaixo:
Fonte: http://msdn.microsoft.com/en-us/library/aa213656%28v=office.11%29.aspx