Propósito

✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.

Como Medir o Tempo de Execução de Códigos VBA no Excel – Guia Prático

Como Medir o Tempo de Execução de Códigos VBA no Excel – Guia Prático#ProgramaçãoGlobal #VBA


Se você trabalha com automatização no Excel usando VBA, saber medir o tempo de execução do seu código é essencial para otimizar performance e identificar gargalos. Neste guia, você aprenderá métodos simples e eficientes para rastrear quanto tempo suas macros levam para rodar.


 Série de Livros nut Project 

DONUT PROJECT: VBA - Projetos e Códigos de Visual Basic for Applications (Visual Basic For Apllication)eBook - DONUT PROJECT 2024 - Volume 03 - Funções Financeiras - André Luiz Bernardes eBook - DONUT PROJECT 2024 - Volume 02 - Conectando Banco de Dados - André Luiz Bernardes eBook - DONUT PROJECT 2024 - Volume 01 - André Luiz Bernardes


Por Que Medir o Tempo de Execução em VBA?


Identificar trechos de código lentos que precisam de otimização.


Comparar a eficiência de diferentes abordagens.


Garantir que processos automatizados não consumam tempo excessivo.


Método 1: Usando a Função Timer

O VBA possui a função Timer, que retorna os segundos desde a meia-noite, permitindo calcular intervalos.


Sub MedirTempoExecucao()

    Dim TempoInicio As Double

    Dim TempoFim As Double

    

    TempoInicio = Timer ' Registra o início

    

    ' Seu código aqui

    For i = 1 To 100000

        ' Simula um processo demorado

    Next i

    

    TempoFim = Timer ' Registra o fim

    

    MsgBox "Tempo de execução: " & TempoFim - TempoInicio & " segundos."

End Sub


Método 2: Usando Now para Maior Precisão

Se precisar de milissegundos, use Now com formatação:


Sub MedirTempoComNow()

    Dim TempoInicio As Date

    Dim TempoFim As Date

    

    TempoInicio = Now

    

    ' Código a ser medido

    For i = 1 To 100000

        ' Processo

    Next i

    

    TempoFim = Now

    

    MsgBox "Duração: " & Format((TempoFim - TempoInicio) * 86400, "0.000") & " segundos."

End Sub


Dicas para Melhorar a Performance do VBA

Evite loops desnecessários.


Use Application.ScreenUpdating = False para evitar atualizações da tela.


Reduza interações com planilhas, armazenando dados em variáveis quando possível.


Agora você pode testar e otimizar suas macros com precisão!


👉 Não se esqueça de seguir André Bernardes no Linkedin. Clique aqui e me contate via What's App. 

Comente e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com


 Clique nas capas abaixo e compre também: 

DONUT PROJECT: VBA - Projetos e Códigos de Visual Basic for Applications (Visual Basic For Apllication)


Série Top 10 Funções: Top 10 Funções VBA para o Microsoft Excel (Série Top 10 Funções - Microsoft Excel)


eBook - DONUT PROJECT 2024 - Volume 03 - Funções Financeiras - André Luiz Bernardes

eBook - DONUT PROJECT 2024 - Volume 02 - Conectando Banco de Dados - André Luiz Bernardes

eBook - DONUT PROJECT 2024 - Volume 01 - André Luiz Bernardes

Nenhum comentário:

Postar um comentário

diHITT - Notícias