매크로 속도를 높이는 10가지 방법

과도한 언급을 피하세요

개체의 메서드나 속성을 호출할 때 OLE 구성 요소의 IDispatch 인터페이스를 거쳐야 합니다. 이러한 OLE 구성 요소에 대한 호출에는 시간이 걸리므로 OLE 구성 요소에 대한 참조 수를 줄이면 매크로 코드 속도가 향상될 수 있습니다.

객체 속성이나 메서드 호출에는  일반적으로 Object.Method 의 표현 메서드  , 즉 "."를 사용합니다. 기호는 속성과 메서드를 호출하는 데 사용됩니다.

따라서 "." 기호의 개수에 따라 메소드나 속성 호출 횟수를 판단할 수 있습니다. "."가 적을수록 기호를 사용하면 코드 실행 속도가 빨라집니다.

예를 들어 다음 문에는 3개의 기호 "."가 포함되어 있습니다.

ThisWorkbook.Sheet1.Range("A1").Value = 100

다음 명령문에는 "." 기호가 하나만 있습니다.

Activewindow.Top = 100

다음은 "." 기호 수를 줄이는 몇 가지 요령입니다. 더 빨리 달리려고.

첫째, 동일한 객체를 반복적으로 참조해야 하는 경우 객체를 변수로 설정하여 호출 횟수를 줄일 수 있습니다. 예를 들어 다음 코드에는 한 줄에 두 번의 호출이 필요합니다.

ThisWorkbook.Sheets("Sheet1").Cells(1, 1) = 100
ThisWorkbook.Sheets("Sheet1").Cells(2, 1) = 200
ThisWorkbook.Sheets("Sheet1").Cells(3, 1) = 300

Sheets("Sheet1") 개체는 반복적으로 참조되어야 하기 때문에  먼저  변수  sht 로 설정하여  각 코드를 한 번만 호출하면 됩니다.

Set sht = ThisWorkbook.Sheets("Sheet1")
sht.Cells(1, 1) = 100
sht.Cells(2, 1) = 200
sht.Cells(3, 1) = 300

둘째, 임시 변수 sht를 선언하지 않으려면   앞서 언급한 With 문을 사용할 수도 있습니다. 다음 예에 표시된 대로:

With ThisWorkbook.Sheets("Sheet1")
    .Cells(1, 1) = 100
    .Cells(2, 1) = 200
    .Cells(3, 1) = 300
End With

셋째,  루프가 많은 경우 루프 외부에 속성과 메서드를 유지하도록 노력하세요.  동일한 객체의 속성값을 루프 내에서 재사용할 경우 먼저 루프 외부의 지정된 변수에 속성값을 할당한 다음 루프 내에서 해당 변수를 사용하면 더 빠른 속도를 얻을 수 있습니다. 다음 예에 표시된 대로:

For i = 1 To 1000
    ThisWorkbook.Sheets("Sheet1").Cells(1, 1) = Cells(1, 2).Value
    ThisWorkbook.Sheets("Sheet1").Cells(2, 1) = Cells(1, 2).Value
    ThisWorkbook.Sheets("Sheet1").Cells(3, 1) = Cells(1, 2).Value
Next i

이 예제의 각 루프는 Cells(1,2) 셀의 Value 속성을 가져옵니다. 루프가 시작되기 전에 Cells(1.2)의 Value 속성을 변수에 할당하면 실행 속도가 빨라집니다. 다음 예에 표시된 대로:

tmp = Cells(1, 2).Value
For i = 1 To 1000
    ThisWorkbook.Sheets("Sheet1").Cells(1, 1) = tmp
    ThisWorkbook.Sheets("Sheet1").Cells(2, 1) = tmp
    ThisWorkbook.Sheets("Sheet1").Cells(3, 1) = tmp
Next i

위 코드는   반복될 때마다 ThisWorkbook.Sheets("Sheet1")을 호출합니다. With 문을 사용하여  ThisWorkbook.Sheets("Sheet1")  에 대한 호출을   루프 외부로 이동하면 이 작업을 더 빠르게 수행할 수 있습니다. 다음 예에 표시된 대로:

tmp = Cells(1, 2).Value
With ThisWorkbook.Sheets("Sheet1")
    For i = 1 To 1000
        .Cells(1, 1) = tmp
        .Cells(2, 1) = tmp
        .Cells(3, 1) = tmp
    Next i
End With

변형 유형 사용을 피하세요

초보자는 일반적으로 Variant 유형 변수를 사용하는 것을 선호합니다. 이는 Integer 또는 Long 데이터 유형에 비해 데이터가 너무 큰 경우 메모리 오버플로 문제 없이 모든 유형의 데이터를 사용할 수 있기 때문에 덜 복잡하다는 장점이 있습니다. 그러나 Varienmt 유형 데이터는 다른 지정된 유형(Integer 데이터의 경우 2바이트, Long 데이터의 경우 4바이트, Variant 데이터의 경우 16바이트)보다 더 많은 추가 메모리 공간이 필요하며, VBA는 다른 지정된 유형보다 Variant 유형 데이터를 처리하는 데 더 많은 시간이 필요합니다. 데이터. 다음 예는 다음과 같습니다.

Sub VariantTest()
    Dim i As Long
    Dim ix As Integer, iy As Integer, iz As Integer
    Dim vx As Variant, vy As Variant, vz As Variant
    Dim tm As Date
    vx = 100: vy = 50
    tm = Timer
    For i = 1 To 1000000
        vz = vx * vy
        vz = vx + vy
        vz = vx - vy
        vz = vx / vy
    Next i
    Debug.Print "Variant types take " & Format((Timer - tm), "0.00000") & " seconds"
    ix = 100: iy = 50
    tm = Timer
    For i = 1 To 1000000
        iz = ix * iy
        iz = ix + iy
        iz = ix - iy
        iz = ix / iy
    Next i
    Debug.Print "Integer types take " & Format((Timer - tm), "0.00000") & " seconds"
End Sub

위 코드에서 8~13행은 Variant 변수의 덧셈, 뺄셈, 곱셈, 나눗셈 연산을 100만 번 수행하고, 17~22행은 Integer 변수의 덧셈, 뺄셈, 곱셈, 나눗셈을 100만 번 수행합니다. 내 컴퓨터에서 Variant 변수의 연산은 약  0.09375  초가 걸렸고, Integer 변수의 연산은 약  0.03125  초가 걸렸다. 결과는 컴퓨터마다 다를 수 있지만  Variant 변수는 Integer 변수보다 상당히 느립니다 .

이러한 이유로  지정된 데이터 유형을 명시적으로 사용할 수 있는 경우 Variant 변수를 사용하지 않는 것이 좋습니다 .