강의 자료
라이브정보
방송일
2022년 12월 10일 (118회)
강의시간
30분 2초
보충자료
📌 특성 시트 처리 속도 측정 - 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
스크립트는 로그인 후 이용할 수 있습니다.
로그인
VBA 사용하면서 느릴 때가 간혹 있었는데 지금 생각해보니 함수로 사용해서 그랬던것같네요..