Este fórum está sendo desativado

[MarceloAdriano]

Minhas considerações aos membros do fórum Guru do Excel
Fiz um medidor de tempo de execução - 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
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
Planilha1.Cells(i, 1).Value2 = i
Next i
MsgBox Round(Timer - TempoInicial, 4) & " Segundos...", , "Tempo de Execução..."
Application.ScreenUpdating = True
End Sub

[gfranco]

Boa tarde.
Veja se te atende:

Código: Selecionar todos

Sub MedirTempoDeExecucao()
Application.ScreenUpdating = False 'ACELERANDO CÓDIGOS
Dim TempoInicial As Double
Dim i As Integer
TempoInicial = VBA.CDbl(VBA.Time)
For i = 1 To 10000

Planilha1.Cells(i, 1).Value2 = i
Next i

MsgBox WorksheetFunction.Text(VBA.CDbl(VBA.Time) - TempoInicial, "mm:ss")


Application.ScreenUpdating = True
End Sub

[MarceloAdriano]

Obrigado GFranco...Resolvido!
Grato,
Marcelo Adriano