Timer 사용법 총정리 (매크로 속도 측정) :: 엑셀 위키

엑셀 매크로의 동작 속도를 측정하는 Timer의 사용법을 알아봅니다.

홈페이지 » Timer 사용법 총정리 (매크로 속도 측정) :: 엑셀 위키

작성자 :
오빠두엑셀
최종 수정일 : 2020. 05. 04. 23:02
URL 복사
메모 남기기 : (2)

엑셀 VBA :: Timer (매크로 속도 측정)

예제파일

요약

엑셀 VBA의 Timer 변수에 대해 알아봅니다.

설명

Timer 변수는 엑셀 VBA로 작성된 매크로의 속도 측정을 위해 사용하는 변수입니다. (주 사용용도가 매크로의 속도측정일뿐, 각자 필요에 따라 다른 용도로 사용하실수도 있습니다..)

VBA에 Default로 설정된 기본값으로  자정(12시)부터 지난 시간을 표현 가능한 최소한의 초단위로 반환합니다.  별도의 변수 설정을 안할시에는 Millisecond(100분의 1초) 단위로 계산하며, Double 변수로 설정 시 그 이하 단위까지 측정 가능합니다.

Timer 매크로 속도 측정 - 사용예제
Timer 변수를 사용하여 매크로 동작 속도를 측정합니다.

VBA 코드

Sub VBA_Timer_사용법()
 
'//변수 설정
Dim dblStart As Double: Dim dblElapsed As Double
 
'// 매크로 실행 전 시작시간을 설정합니다.
dblStart = Timer 
 
'###########################
'동작할 명령문 입력
'###########################
 
'// 명령문이 끝난 시점의 Timer와 시작시간의 차이를 계산합니다
dblElapsed = Timer - dblStart
 
'// 매크로 속도를 msgbox로 반환합니다
MsgBox Format(dblElapsed, "0.0000초")
 
End Sub

세부내용

1. 시트의 A1셀부터 200번째 행/열에 위치한 값까지 셀주소를 출력하는 명령문을 실행
'// 명령문을 실행합니다.
WS.UsedRange.Clear
For i = 1 To 200
    For j = 1 To 200
        WS.Cells(i, j) = WS.Cells(i, j).Address
    Next
Next
2. Timer를 사용하여 매크로의 동작 속도를 측정합니다.
Sub 매크로_속도측정_예제()
 
'//변수 설정
Dim dblStart As Double: Dim dblElapsed As Double
Dim WS As Worksheet
 
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
 
'// 명령문이 끝난 시점의 Timer와 시작시간의 차이를 계산합니다
dblElapsed = Timer - dblStart
 
'// 매크로 속도를 msgbox로 반환합니다
MsgBox Format(dblElapsed, "0.0000초")
 
End Sub
0 0 투표
게시글평점
2 댓글
Inline Feedbacks
모든 댓글 보기
2
0
여러분의 생각을 댓글로 남겨주세요.x