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


Inline image 1



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, macro, add-ins, automation, automação, timer 




Inline image 1

Nenhum comentário:

Postar um comentário

diHITT - Notícias