Saltar para: Post [1], Comentar [2], Pesquisa e Arquivos [3]

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

 

Comentar:

CorretorEmoji

Se preenchido, o e-mail é usado apenas para notificação de respostas.

Este blog tem comentários moderados.

Este blog optou por gravar os IPs de quem comenta os seus posts.