Saltar para: Posts [1], Pesquisa [2]

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

30
Dez07

Um timer em VBA

Um timer para execução de macros, para definir o tempo de intervalo é só colocar em minutos o equivalente em segundos 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 

Fonte: http://jjoao2k.no.sapo.pt