USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (VBA)

Título da Dica:  Um timer em VBA
Postada em 10/12/2003 por geronimo            
Um timer para execução de macros determinando um tempo de intervalo em segundos, para definir o tempo de intervalo é só colocar em segundos o equivalente aos minutos que se pretender.
Colocar num modulo:
Dim Alarme
Const IntervaloSegundos = 5 * 60 ' 5 minutos de intervalo
Sub Iniciar()
Alarme = Now + TimeSerial(0, 0, IntervaloSegundos)
Application.OnTime EarliestTime:=Alarme, procedure:="Macro1", schedule:=True
End Sub


Sub Macro1()
'As suas rotinas
MsgBox "Olá!!! voltarei pelas " & Format(Alarme, "hh:mm:ss"), vbInformation, "Timer em Vba"

Call Iniciar
End Sub


Sub Parar()
On Error Resume Next
Application.OnTime EarliestTime:=Alarme, procedure:="Macro1", schedule:=False
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página