Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Agenda um procedimento para ser executado em um momento especificado no futuro (em uma hora específica do dia ou após um período específico de tempo).
Sintaxe
mais simples. OnTime (EarliestTime, Procedure, LatestTime, Schedule)
expressão Uma variável que representa um Aplicativo objeto.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| EarliestTime | Obrigatório | Variant | A hora em que você deseja executar este procedimento. |
| Procedure | Obrigatório | String | O nome do procedimento a ser executado. |
| LatestTime | Opcional | Variant | A hora mais recente na qual o procedimento pode ser executado. Por exemplo, se LatestTime estiver definido como EarliestTime + 30 e o Microsoft Excel não estiver no modo Ready, Copy, Cut ou Find no EarliestTime porque outro procedimento está em execução, o Excel aguardará 30 segundos para que o primeiro procedimento seja concluído. Se o Excel não estiver no modo Pronto em 30 segundos, o procedimento não será executado. Se esse argumento for omitido, o Excel aguardará até que o procedimento possa ser executado. |
| Schedule | Opcional | Variant | True para agendar um novo procedimento OnTime. False para limpar um procedimento definido anteriormente. O valor padrão é True. |
Comentários
Use Now + TimeValue(time) para agendar algo a ser executado quando um período específico de tempo (contando a partir de agora) tiver decorrido. Use TimeValue(time) para programar algo para ser executado em uma hora específica.
O valor de EarliestTime é arredondado para o segundo mais próximo.
Defina Schedule como False para limpar um procedimento definido anteriormente com os mesmos valores Procedure e EarliestTime .
Procedimento não pode receber argumentos e não pode ser declarado em uma classe ou formulário personalizado.
Exemplo
Este exemplo será executado my_Procedure 15 segundos a partir de agora.
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
Este exemplo é executado my_Procedure às 17h.
Application.OnTime TimeValue("17:00:00"), "my_Procedure"
Este exemplo cancela a configuração OnTime do exemplo anterior.
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:=False
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.