/ / Excel VBA 응용 프로그램 개체

Excel VBA 응용 프로그램 개체

WorksheetFunction | ScreenUpdating | DisplayAlerts | 계산

모든 개체의 어머니는 Excel 자체입니다. 우리는 그것을 응용 프로그램 개체. 응용 프로그램 개체를 사용하면 많은 Excel 관련 옵션에 액세스 할 수 있습니다.

WorksheetFunction

에서 WorksheetFunction 속성을 사용할 수 있습니다. Excel VBA Excel 기능에 액세스 할 수 있습니다.

1. 예를 들어, 워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가하십시오.

Range("A3").Value = Application.WorksheetFunction.Average(Range("A1:A2"))

워크 시트에서 명령 단추를 누르면 Excel VBA는 셀 A1과 셀 A2의 값의 평균을 계산하고 결과를 셀 A3에 배치합니다.

Excel VBA의 WorksheetFunction

참고 : Application.WorksheetFunction 대신.평균, 단순히 WorksheetFunction.Average를 사용하십시오. 수식 입력 줄을 보면 수식 자체가 셀 A3에 삽입되지 않은 것을 볼 수 있습니다. 셀 A3에 수식 자체를 삽입하려면 다음 코드 줄을 사용하십시오.

Range("A3").Value = "=AVERAGE(A1:A2)"

ScreenUpdating

때로는 코드를 실행하는 동안 깜박임을 피하기 위해 화면 업데이트를 비활성화하는 것이 유용 할 수 있습니다. 결과적으로 코드가 더 빨리 실행됩니다.

1. 예를 들어, 워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가하십시오.

Dim i As Integer

For i = 1 To 10000
    Range("A1").Value = i
Next i

워크 시트에서 명령 단추를 클릭하면 Excel VBA는 각 값을 초 단위로 표시하므로 시간이 오래 걸릴 수 있습니다.

ScreenUpdating

2. 프로세스 속도를 높이려면 다음과 같이 코드를 업데이트하십시오.

Dim i As Integer

Application.ScreenUpdating = False

For i = 1 To 10000
    Range("A1").Value = i
Next i

Application.ScreenUpdating = True

결과적으로 코드가 훨씬 빠르게 실행되고 최종 결과 (10000) 만 표시됩니다.

DisplayAlerts

코드를 실행하는 동안 경고를 표시하지 않도록 Excel VBA에 지시 할 수 있습니다.

1. 예를 들어, 워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가하십시오.

ActiveWorkbook.Close

워크 시트에서 명령 단추를 누르면 Excel VBA가 Excel 파일을 닫고 변경 내용을 저장할지 묻는 메시지가 나타납니다.

DisplayAlerts

2. 코드를 실행하는 동안이 경고를 표시하지 않도록 Excel VBA에 지시하려면 코드를 다음과 같이 업데이트하십시오.

Application.DisplayAlerts = False

ActiveWorkbook.Close

Application.DisplayAlerts = True

결과적으로 Excel VBA는 변경 내용을 저장하지 않고 Excel 파일을 닫습니다. 모든 변경 사항이 손실됩니다.

계산

기본적으로 계산은 자동으로 설정됩니다. 결과적으로 Excel은 수식에 영향을주는 값이 변경 될 때마다 통합 문서를 자동으로 다시 계산합니다. 통합 문서에 많은 복잡한 수식이 포함되어 있으면 계산을 수동으로 설정하여 매크로 속도를 높일 수 있습니다.

1. 예를 들어, 워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가하십시오.

Application.Calculation = xlCalculationManual

워크 시트에서 명령 단추를 누르면 Excel VBA가 계산을 수동으로 설정합니다.

2. 파일, 옵션, 수식을 클릭하여이를 확인할 수 있습니다.

계산 옵션

3. 이제 셀 A1의 값을 변경하면 셀 B1의 값이 다시 계산되지 않습니다.

수동 계산

F9 키를 눌러 통합 문서를 수동으로 다시 계산할 수 있습니다.

4. 대부분의 경우 코드 끝에서 자동으로 계산을 설정합니다. 이것을 달성하기 위해 다음의 코드 라인을 추가하기 만하면됩니다.

Application.Calculation = xlCalculationAutomatic
또한 읽으십시오 :