excel-calculate-macro-runtime-duration

Excel - Calculate Macro Runtime Duration

This macro allows you to calculate the code execution duration.

Excel

  • 4167
  • 813
  • 0
  • 0
Add to collection
© 2022VBAmacros.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.
Advertisement
  • Created
    22-May-2020
  • Last updated
    22-May-2020
Advertisement
VBAmacros.net VBAmacros.net
Code was successfully copied!
VBAmacros.net VBAmacros.net
Please sign in!
VBAmacros.net VBAmacros.net
You've already voted!