VBA Excel - Execução periódica de Código

Termo de Responsabilidade

Podemos delinear dentro das nossas aplicações como o MS Excel, que executem procedimentos a partir de um horário previamente definido. É

 um recurso simples, mas em determinadas situações é bem útil.

Crie um módulo e cole o código abaixo:

Const sTempo As String = "00:00:03"

Public Sub DefineT()

    Application.OnTime EarliestTime:=Now() + TimeValue (sTempo), Procedure:="

SetT

"

End Sub

Public Sub CancelT()

    Application.OnTime EarliestTime:=Now() + TimeValue (sTempo), Procedure:="

SetT

", Schedule:=False

End Sub

Public Sub SetT()

    MsgBox "Agora são " & Time & "."

    

DefineT

End Sub

Em 3 segundos é mostrada uma Caixa de Mensagem.

Reference:: 

Tags: Excel, VBA, timer,