Neste artigo, criaremos uma macro para chamar outra macro ou executar um comando após intervalos de tempo definidos.
Para executar a macro, clique no botão “Iniciar cronômetro”.
Ao executar a macro, a macro “TimerMsg” exibirá uma caixa de mensagem.
Quando um usuário clica no botão “OK”, três segundos depois, a macro “MsgProcedure” será chamada. A macro “MsgProcedure” exibirá uma caixa de mensagem.
Explicação lógica
Neste exemplo, criamos duas macros “TimerMsg” e “MsgProcedure”. “TimerMsg” A macro exibe uma mensagem informativa e chama “MsgProcedure” após esperar três segundos, conforme definido no código.
Explicação do código
Método Application.OnTime
O método Application.OnTime é usado para agendar um procedimento a ser executado em intervalos de tempo definidos.
Sintaxe
Aplicação .OnTime Time, Procedure_name
Tempo especifica o intervalo de tempo no qual o procedimento deve ser executado.
Procedure_name define o nome do procedimento.
Usamos o método Application.onTime para agendar a macro “MsgProcedure”.
Siga abaixo para o código
Option Explicit Sub TimerMsg () 'Declarando a variável de data Dim AlertTime As Date' Exibindo uma caixa de mensagem no início do temporizador MsgBox "O alarme irá disparar em 3 segundos!" 'Configurando o tempo do cronômetro para 3 segundos após o tempo de ativação AlertTime = Now + TimeValue ("00:00:03")' Ativando o cronômetro e executando o MsgProcedure no final do cronômetro Application.OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure () 'Procedimento de amostra criado para o exemplo de temporizador MsgBox "Three Seconds is up!" End Sub
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail