Formatar Tempo de Execução de uma macro

2024 - VBA & Macros

Post Recente por klarc28 6 anos atrás

2 Posts

2 Usuários

0 Reactions

933 Visualizações

RSS

Mardr

(@mardr)

Posts: 19

Active Member

Topic starter

Minhas considerações aos membros do Fórum Planilhando
Fiz um medidor de tempo de execução de uma macro - conforme demostro abaixo, gostaria que ao exibir
o resultado através da msgbox viesse formatada da seguinte maneira: "HH:MM:SS"
e como o tempo de execução, geralmente são menores de 1 minuto
ficaria portanto assim: 00:00:34 por exemplo
Espero ter feito entender,
Grato
Marcelo Adriano
S

ub MedirTempoDeExecucao ()
Application.ScreenUpdating = False 'ACELERANDO CÓDIGOS
Dim TempoInicial As Double
Dim i As Integer
TempoInicial = Timer

For i = 1 To 1000
    'Planilha1.Cells(i, 1).Select
    Planilha1.Cells(i, 1).Value2 = i
Next i
MsgBox Round(Timer - TempoInicial, 4) & " Segundos...", , "Tempo de Execução..."
Application.ScreenUpdating = True
End Sub

Postado : 16/07/2018 8:57 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Option Explicit

Sub MedirTempoDeExecucao()
Application.ScreenUpdating = False 'ACELERANDO CÓDIGOS
Dim TempoInicial As Double
Dim i As Integer
TempoInicial = Timer

For i = 1 To 1000
'Planilha1.Cells(i, 1).Select
Plan1.Cells(i, 1).Value2 = i
Next i
MsgBox Format((Round(Timer - TempoInicial, 4)), "Long Time"), , "Tempo de Execução..."
Application.ScreenUpdating = True
End Sub

Postado : 17/07/2018 4:54 am