[엑셀 VBA] 코드 실행 시간 측정하는 방법

엑셀 VBA로 작성한 코드 실행 시간을 측정할 수 있는 코드입니다.

---

<본문 이동 링크>

• 메시지 박스 활용
• Debug.Print 활용

---

메시지 박스 활용

Sub Speed_MsgBox()

    '속도측정 코드
    ' Timer 설명
    ' ▶ Timer는 현재시간을 초단위로만 나타내는 함수로
    ' ▶ 코드 마지막 시간 - 코드 시간 시간으로 실행시간 측정
    
    Dim StartTime As Date   '시간 시간 변수 선언
    StartTime = Timer   '시작시간 저장
    
    '-------------------------------------------------------------------------
    '------------------------실행할 코드 작성 위치-----------------------
    '-------------------------------------------------------------------------
    
    'Format으로 초 소수점 단위 설정
    MsgBox prompt:="실행시간은 " & Format(Timer - StartTime, "0.000") & "초 입니다."
    
End Sub

▶실행결과

 

Debug.Print 활용

Sub Speed_Debug()

    '속도측정 코드
    ' Timer 설명
    ' ▶ Timer는 현재시간을 초단위로만 나타내는 함수로
    ' ▶ 코드 마지막 시간 - 코드 시간 시간으로 실행시간 측정
    
    Dim StartTime As Date   '시간 시간 변수 선언
    StartTime = Timer   '시작시간 저장
    
    '-------------------------------------------------------------------------
    '------------------------실행할 코드 작성 위치-----------------------
    '-------------------------------------------------------------------------
    
    'Format으로 초 소수점 단위 설정
    Debug.Print "실행시간은 " & Format(Timer - StartTime, "0.000") & "초 입니다."
    
End Sub

▶실행결과