Posts Tagged ‘espera’
Pausar tempo
22/09/2009
Deixe um comentário
Para adicionar uma pausa na planilha ou para o tempo de execução de um código :
‘variáveis
Dim newHour, newMinute, newSecond, waitTime, horario As Date
cells(1,1).value = “teste” ‘para exemplo
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 2
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
cells(1,1).value = “após o tempo 2 segundos“ ‘para exemplo