엑셀 VBA Timer 사용법 (매크로 속도 측정)

Timer 는 어떤 값을 돌려주나요

Timer 는 자정(00:00)부터 지금까지 지난 시간을 초 단위로 돌려주는 VBA 내장 함수입니다. 그 자체로는 시각일 뿐이라, 두 시점의 값을 빼야 비로소 '걸린 시간'이 됩니다.

반환값을 Double 형 변수로 받으면 소수점 아래까지 남아 1000분의 1초 단위로 비교할 수 있습니다. 정수형으로 받으면 소수가 잘려 짧은 매크로는 전부 0초로 나옵니다.

기본 사용법

측정하려는 명령문을 아래 뼈대의 가운데에 넣으면 됩니다.

Sub VBA_Timer_사용법()

    '// 변수 설정
    Dim dblStart As Double
    Dim dblElapsed As Double

    '// 매크로 실행 전 시작 시각을 기록합니다.
    dblStart = Timer

    '###########################
    '  동작할 명령문 입력
    '###########################

    '// 끝난 시점의 Timer 와 시작 시각의 차이를 계산합니다.
    dblElapsed = Timer - dblStart

    '// 걸린 시간을 메시지 상자로 표시합니다.
    MsgBox Format(dblElapsed, "0.0000초")

End Sub

실전 예제 — 200×200 셀 채우기 속도 재기

시트의 A1셀부터 200행 200열까지 각 셀에 자기 주소를 적는 명령문입니다. 셀을 4만 번 건드리므로 속도 차이가 뚜렷하게 드러납니다.

Sub 매크로_속도측정_예제()

    '// 변수 설정
    Dim dblStart As Double
    Dim dblElapsed As Double
    Dim WS As Worksheet
    Dim i As Long, j As Long

    Set WS = ActiveSheet

    dblStart = Timer '// 시작 시각 기록

    '// 명령문을 실행합니다.
    WS.UsedRange.Clear
    For i = 1 To 200
        For j = 1 To 200
            WS.Cells(i, j) = WS.Cells(i, j).Address
        Next
    Next

    '// 끝난 시점과의 차이를 계산합니다.
    dblElapsed = Timer - dblStart

    '// 걸린 시간을 메시지 상자로 표시합니다.
    MsgBox Format(dblElapsed, "0.0000초")

End Sub