📌 특성 시트 처리 속도 측정 - Timer 함수 예제

Sub timeChecker(targetWS, Optional repeat As Long = 10)

Dim dStart As Double
Dim dRunTime As Double
Dim dAvg As Double
Dim sResult As String
Dim Arr As Variant: Dim A As Variant

ReDim Arr(1 To repeat)

For x = 1 To repeat
    dStart = Timer
    targetWS.Calculate
    dRunTime = Timer - dStart
    Arr(x) = dRunTime
Next

x = 1
For Each A In Arr
    sResult = sResult & x & "차 테스트 : " & Format(A, "0.0000초") & vbNewLine
    x = x + 1
    dAvg = dAvg + A
Next
dAvg = dAvg / repeat

MsgBox "평균 실행시간 : " & Format(dAvg, "0.0000초") & _
        vbNewLine & vbNewLine & "----- 테스트 내역 -----" & vbNewLine & _
        sResult

End Sub