Kodun Çalışma Süresini Ölç - Microsoft Excel

Kodun çalışma süresini ölçmeye yarayan VBA kodu alternatifidir.

Option Explicit

Sub KodunCalismaSuresiniOlc()
    Dim baslangic As Long
    Dim bitis     As Long
    Dim fark      As Long
    Dim i         As Long

    Application.DisplayAlerts = False

    baslangic = Timer
     
    For i = 1 To 100000
        Range("A" & i) = i
    Next

    bitis = Timer
    fark = bitis - baslangic
    Application.DisplayAlerts = True
    MsgBox "Kodun Çalışma Süresi: " & fark & "sn", , "Bilgi"
End Sub