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
Nenhum comentário:
Postar um comentário