excel-calculate-macro-runtime-duration

Excel - Calculate Macro Runtime Duration

This macro allows you to calculate the code execution duration.

Excel

  • 1521
  • 436
  • 0
  • 0
Add to collection
© 2021VBAmacros.net

1 Open MS Excel.

2 Create a blank workbook.


3 Go to Developer's tab > click on "Visual Basic" button or hit Alt + F11.


4 Go to Insert tab > click on "Module" or hit M.


5 Copy the VBA code from below.

6 Paste the code in the newly created module.


7 Go to Run tab > click on "Run Sub/UserForm" or hit F5.


8 That's it!


Advertisement

Code
Option Explicit
'==========================================
' Calculate Macro Runtime In Seconds
'==========================================
Sub calculateRuntimeInSeconds()
    ' Set variables
    Dim dblStartTime As Double
    Dim dblSecondsElapsed As Double
    Dim i As Integer
    ' Get macro start time
    dblStartTime = Timer
    ' Add simple loops
    For i = 1 To 10000
        Range("A1").Value = Range("A1").Value + 1
    Next i
    For i = 1 To 10000
        Range("A2").Value = Range("A2").Value + 1
    Next i
    ' Calculate runtime duration
    dblSecondsElapsed = Round(Timer - dblStartTime, 2)
    ' Return an info message
    MsgBox "This macro ran successfully in " & dblSecondsElapsed & " seconds", vbInformation
End Sub

'==========================================
' Calculate Macro Runtime In Minutes
'==========================================
Sub calculateRuntimeInMinutes()
    ' Set variables
    Dim dblStartTime As Double
    Dim dblMinutesElapsed As String
    Dim i As Integer
    ' Get macro start time
    dblStartTime = Timer
    ' Add simple loops
    For i = 1 To 10000
        Range("A1").Value = Range("A1").Value + 1
    Next i
    For i = 1 To 10000
        Range("A2").Value = Range("A2").Value + 1
    Next i
    ' Calculate runtime duration
    dblMinutesElapsed = Format((Timer - dblStartTime) / 86400, "hh:mm:ss")
    ' Return an info message
    MsgBox "This macro ran successfully in " & dblMinutesElapsed & " minutes", vbInformation
End Sub
Advertisement


Comments
Sort by:
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.
VBAmacros.net VBAmacros.net
Code was successfully copied!
VBAmacros.net VBAmacros.net
Please sign in!
VBAmacros.net VBAmacros.net
You've already voted!