TIMER VBA do Excel - Como usar a função VBA TIMER?

TIMER VBA

O Excel VBA TImer é usado para detectar e calcular o tempo decorrido para concluir qualquer atividade. No Excel, a função VBA TIMER pode ser usada de várias maneiras. Podemos calcular o tempo para concluir qualquer atividade, calcular o tempo necessário para atingir a fase inicial e final de qualquer atividade ou até calcular o tempo necessário para clicar em qualquer função.

Esta função não pode ser executada no Excel. No Excel, podemos ver apenas o tempo e adicioná-lo a qualquer célula, mas não podemos medi-lo como Timer.

Você pode fazer o download deste modelo do Excel VBA TIMER aqui - Modelo do Excel VBA TIMER

Exemplo 1

Neste exemplo, veremos como contar ou medir o tempo para executar o código completo. Para isso, insira o menu do VBA e selecione um módulo como mostrado abaixo.

Depois disso, ele abrirá um novo módulo, como mostrado abaixo. Agora, escreva a subcategoria do nome da função atual ou qualquer outro nome conforme sua escolha.

Código:

 Sub Timer1 () End Sub

Agora defina duas dimensões como Segundos1 e Segundos2 como uma função ÚNICA, o que significa que havia dois dados individuais de número único (sem decimal).

Código:

 Timer secundário1 () Dim Seconds1 como único Dim Seconds2 como único final Sub

Agora, para iniciar o timer, selecione primeiro a dimensão definida Seconds1 e atribua a função TIMER . E faça o mesmo para outra dimensão Seconds2, como mostrado abaixo. O objetivo de fazer é medir o início e o fim do tempo.

Código:

 Sub Timer1 () Dim Seconds1 Como Single Dim Seconds2 Como Single Seconds1 = Timer () Seconds2 = Timer () End Sub

Isso completa a parte do timer do código. Agora precisamos ver o tempo decorrido na execução do código. Para isso, precisamos imprimir a saída na caixa de mensagem, como mostrado abaixo.

Na captura de tela abaixo, imprimimos o texto “Tempo gasto:” e a diferença entre Segundos2 e Segundos1 com a unidade de segundos.

Código:

 Sub Timer1 () Dim Seconds1 Como Single Dim Seconds2 Como Single Seconds1 = Timer () Seconds2 = Timer () MsgBox ("Tempo gasto:" & vbNewLine & Seconds2 - Seconds1 & "seconds") End Sub

Uma vez feito, execute o código completo usando a tecla F5 ou clicando no botão play, como mostrado abaixo.

Veremos uma caixa de mensagem com um tempo contado de 0 segundos, pois o tempo necessário para executar o código completo foi 0.

Podemos ver um pouco mais de diferença se o código escrito for enorme.

Exemplo 2

Existe outro método em que podemos escolher um intervalo de tempo de qualquer quantidade pequena como tempo de espera e deixar o usuário ou operador esperar até que o processo seja concluído. Isso pode ser usado onde criamos uma ferramenta ou macro com uma enorme linha de estrutura de código. Ao fazer isso, permitiremos que o usuário espere o tempo inteiro para que o código seja executado e a operação seja concluída. Porque fazer algo quando o código está sendo executado pode travar o arquivo.

Para isso, abra um novo módulo e escreva a Subcategoria no nome da função necessária ou em qualquer outro nome, como mostrado abaixo.

Código:

 Sub Timer2 () End Sub

Agora, para tornar esse código pequeno e simples, usaremos as funções embutidas do VBA. E para esse tipo, o aplicativo seguiu um ponto (.) E, na lista, procure e selecione a função Aguardar, como mostrado abaixo.

Esta função de espera nos permitirá adicionar tempo de espera até que o código completo seja executado. Este tempo de espera é booleano. Depois disso, considere que o tempo em que executamos é 0 segundos com o tempo positivo que queremos mostrar, pois o tempo de espera será mostrado pelo TimeValue, como mostrado abaixo.

Código:

 Temporizador secundário2 () Application.Wait Now + TimeValue ("00:00:10") End Sub

Aqui consideramos 10 segundos como tempo de espera para concluir a execução do código.

Agora, para imprimir o tempo de espera, precisamos imprimir a mensagem na caixa de mensagens com a ajuda do comando MsgBox, como mostrado abaixo.

Código:

 Temporizador secundário2 () Application.Wait Now + TimeValue ("00:00:10") MsgBox ("Tempo de espera - 10 segundos") End Sub

Como podemos ver, na caixa de mensagem, adicionamos o texto " Tempo de espera - 10 segundos " a ser impresso.

Agora execute o código usando a tecla F5 ou manualmente. Veremos depois que esperamos 10 segundos, uma caixa de mensagem aparecerá com a mensagem usada no código.

Exemplo # 3 - Temporizador VBA

Há outra maneira fácil de ver e mostrar a hora atual no VBA. Para isso, usaremos diretamente MsgBox e o restante do código apenas lá. Para isso, abra um novo módulo no VBA e escreva Subcategoria no nome da função usada ou em qualquer outro nome, como mostrado abaixo.

Código:

 Sub Timer3 () End Sub

Agora escreva MsgBox, que é um comando para imprimir a mensagem. No suporte, podemos escrever qualquer mensagem a ser impressa na caixa de mensagem. Aqui escolhemos "O tempo é: " como nosso texto e, juntamente com ele, " & Now () " é usado. Ele exibirá a hora atual com a data na caixa de mensagem pop-up.

Código:

 Sub Timer3 () MsgBox ("O tempo é:" & Now ()) End Sub

Agora, em outra caixa de mensagem, contaremos o número de segundos passados no dia inteiro até a hora atual pelo relógio. Para isso, escreva MsgBox e entre colchetes, escreva o texto “ Timer is: ” junto com “ & Timer () ” como mostrado abaixo.

Código:

 Sub Timer3 () MsgBox ("Time is:" & Now ()) MsgBox ("Timer is:" & Timer ()) End Sub

Uma vez feito, execute o código usando a tecla F5 ou manualmente. Obteremos duas caixas de mensagem separadas, como mostrado abaixo.

Na primeira caixa de mensagem, obteremos a data e a hora atuais nos formatos DD / MM / AAAA e hh: mm: ss AM / PM, que é o formato padrão do Excel. Na segunda caixa de mensagem, veremos o tempo decorrido nesse dia em segundos.

A segunda caixa de mensagem mostra que o temporizador é 59953, 62 segundos. Se dividirmos isso com 60 segundos e 60 minutos, obteremos o cronômetro exato em horas decorridas naquele dia, que são 16, 65 horas .

Coisas a lembrar sobre o VBA TIMER

Sempre salve o arquivo na pasta de trabalho habilitada para Marco para evitar a perda do código VBA gravado.
Sempre compile o código completo passo a passo para garantir que todos os códigos estejam incorretos.
No exemplo # 1, a função ÚNICA é usada para mostrar o número como um todo. Mesmo se usarmos DOUBLE, o resultado será decimal.

Artigos recomendados

Este foi um guia para o Excel VBA TIMER. Aqui discutimos como usar a função VBA TIMER, juntamente com alguns exemplos práticos e modelo de excel para download. Você também pode consultar nossos outros artigos sugeridos -