엑셀 VBA에서 Application 개체는 엑셀 자체(엑셀 프로그램)를 제어하는 개체입니다.
Application 개체를 사용하면 엑셀 창, 계산, 메시지 박스, 오류 메시지, 화면 업데이트 등을 제어할 수 있습니다.
1. Application 개체의 주요 속성 (Properties)
|
속성
|
설명
|
예제
|
|
ActiveWorkbook
|
현재 활성화된 워크북 반환
|
MsgBox Application.ActiveWorkbook.Name
|
|
ActiveSheet
|
현재 활성화된 시트 반환
|
MsgBox Application.ActiveSheet.Name
|
|
ActiveCell
|
현재 선택된 셀 반환
|
MsgBox Application.ActiveCell.Address
|
|
Calculation
|
수식 계산 모드 설정
|
Application.Calculation = xlCalculationManual
|
|
DisplayAlerts
|
경고 메시지 표시 여부
|
Application.DisplayAlerts = False (경고 창 숨김)
|
|
ScreenUpdating
|
화면 업데이트 여부
|
Application.ScreenUpdating = False (화면 깜빡임 방지)
|
|
EnableEvents
|
이벤트 활성화 여부
|
Application.EnableEvents = False (이벤트 비활성화)
|
|
StatusBar
|
상태 표시줄 메시지 설정
|
Application.StatusBar = "작업 진행 중..."
|
|
CutCopyMode
|
잘라내기/복사 모드 해제
|
Application.CutCopyMode = False
|
|
Visible
|
엑셀 창 표시 여부
|
Application.Visible = True
|
|
OnTime
|
특정 시간 후 매크로 실행
|
Application.OnTime Now + TimeValue("00:00:10"), "매크로이름"
|
2. Application 개체의 주요 메서드 (Methods)
|
메서드
|
설명
|
예제
|
|
Quit
|
엑셀 종료
|
Application.Quit
|
|
Wait
|
특정 시간 동안 실행 중지
|
Application.Wait Now + TimeValue("00:00:05")
|
|
Calculate
|
모든 워크시트 계산
|
Application.Calculate
|
|
Undo
|
마지막 작업 실행 취소
|
Application.Undo
|
|
Goto
|
특정 셀로 이동
|
Application.Goto Reference:=Range("A1")
|
3. Application 개체 활용 예제
📌 1) 화면 깜빡임 방지 (ScreenUpdating)
|
Sub 화면_업데이트_제어()
Application.ScreenUpdating = False ' 화면 업데이트 중지 (속도 향상)
Dim i As Integer
For i = 1 To 1000
Cells(i, 1).Value = i ' 반복문 실행 (깜빡임 방지됨)
Next i
Application.ScreenUpdating = True ' 화면 업데이트 다시 활성화
End Sub
|
📌 2) 자동 계산 모드 변경 (Calculation)
|
Sub 계산_모드_설정()
Application.Calculation = xlCalculationManual ' 자동 계산 중지
Range("A1").Formula = "=SUM(B1:B1000000)" ' 큰 범위 계산식 입력
Application.Calculation = xlCalculationAutomatic ' 자동 계산 다시 활성화
End Sub
|
📌 3) 경고 메시지 숨기기 (DisplayAlerts)
|
Sub 경고창_제거()
Application.DisplayAlerts = False ' 경고창 숨김
Sheets("Sheet1").Delete ' 시트 삭제 (경고창 없이)
Application.DisplayAlerts = True ' 다시 활성화
End Sub
|
📌 4) 잘라내기/복사 모드 해제 (CutCopyMode)
|
Sub 복사_모드_해제()
Range("A1").Copy
Range("B1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False ' 점선 테두리 제거
End Sub
|
📌 5) 상태 표시줄 메시지 설정 (StatusBar)
|
Sub 상태표시줄_설정()
Application.StatusBar = "작업 진행 중... 잠시만 기다려 주세요."
Application.Wait Now + TimeValue("00:00:05") ' 5초 대기
Application.StatusBar = False ' 원래 상태로 복구
End Sub
|
📌 6) 특정 시간 후 매크로 실행 (OnTime)
|
Sub 10초후_매크로_실행()
Application.OnTime Now + TimeValue("00:00:10"), "HelloWorld"
End Sub
Sub HelloWorld()
MsgBox "10초 후 실행되었습니다!"
End Sub
|
📌 7) 일정 시간 대기 (Wait)
|
Sub 5초_대기()
MsgBox "5초 후 실행됩니다."
Application.Wait Now + TimeValue("00:00:05") ' 5초 대기
MsgBox "실행 완료!"
End Sub
|
📌 8) 엑셀 창 숨기기 (Visible)
|
Sub 엑셀_숨기기()
Application.Visible = False ' 엑셀 창 숨기기
MsgBox "엑셀이 숨겨졌습니다. 확인 후 다시 표시하세요."
Application.Visible = True ' 다시 표시
End Sub
|
📌 9) 엑셀 종료 (Quit)
|
Sub 엑셀_종료()
Application.Quit ' 엑셀 종료 (주의: 저장되지 않은 파일은 손실될 수 있음)
End Sub
|
📝 정리
- Application 개체는 엑셀 프로그램 자체를 제어하는 개체
- .ScreenUpdating = False → 화면 깜빡임 방지 (속도 향상)
- .Calculation = xlCalculationManual → 자동 계산 중지 (대량 데이터 처리 시 유용)
- .DisplayAlerts = False → 경고창 숨김
- .Quit → 엑셀 종료
- .StatusBar = "진행 중..." → 상태 표시줄 메시지 설정
- .Wait / .OnTime → 특정 시간 동안 대기 또는 특정 시간 후 실행 가능
🔥 Application 개체를 잘 활용하면 엑셀 VBA의 실행 속도를 향상시키고, 자동화 기능을 극대화할 수 있습니다! 🚀