Criando um timer no Excel - Tecnologias

Tecnologias

Assuntos diversos ligados à tecnologia.

Syndication

Receive Email Updates



Criando um timer no Excel

Hoje respondi a uma pergunta no forum sobre como se criaria um timer para a execução de uma macro no Excel, pois aqui vai a solução:

Para que o timer seja iniciado ao abrir a planilha inclua este código em EstaPasta_de_trabalho:

Private Sub Workbook_Open()
    Call iniTimer
End Sub

Agora insira um módulo e nele adicione o seguinte código (Inserir -> Módulo):

Public Sub iniTimer()
    Application.OnTime EarliestTime:=Time + TimeValue("00:00:05"), Procedure:="minhaMacro"
End Sub


Public Sub minhaMacro()
    On Error Resume Next
    MsgBox ("Passou o tempo!")
    Application.OnTime EarliestTime:=Now + TimeValue("00:00:05"), Procedure:="minhaMacro"
End Sub

Public Sub paraTimer()
    Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="minhaMacro", Schedule:=False
End Sub

Naturalmente que o código de meu exemplo não faz muito sentido, pois apenas informa que o tempo passou, mas basta que você substitua a linha MsgBox ("Passou o tempo!"), pelo conteúdo que deseja executar com o timer, que seu código estará pronto.

Onde está o truque? No evento Application.OnTime

Onde o tempo é definido? No parâmetro EarliestTime

Espero que gostem e façam bom proveito!

Published quarta-feira, 6 de abril de 2011 2:38 by Paleo

Filed under: ,

Comments

# re: Criando um timer no Excel@ domingo, 15 de setembro de 2013 14:47

Cara eu fiz aqui e fico perfeito, muito bom mesmo, obrigado \o vc é fera xD

Fábio Souza Simão

Leave a Comment

(required) 
(required) 
(optional)
(required)