코드가 길고 VBA 매크로가 몇 초 이상 실행되면 엑셀이 마치 멈춘 것처럼 보이거나 응답하지 않는 것처럼 느껴질 수 있습니다. 코드가 실제로는 정상적으로 작동하고 있더라도 화면에 아무런 변화가 없으면 사용자는 통합 문서가 얼어붙었다고 오해하기 쉽습니다. 이러한 문제를 피하는 가장 간단한 방법은 매크로가 실행되는 동안 엑셀 상태 표시줄(status bar)에 실시간 메시지를 표시하는 것입니다.
이 글에서는 VBA가 실행되는 동안 진행 상황 메시지를 표시하는 방법을 소개합니다. UserForm이나 그래픽 진행 표시줄(progress bar) 같은 복잡한 요소는 전혀 필요하지 않으며, 대부분의 경우 Application.StatusBar만으로 충분합니다.
Application.StatusBar를 사용해야 하는 이유
엑셀에는 응용 프로그램 창 하단에 기본으로 제공되는 상태 표시줄이 있습니다. VBA는 이 영역의 평소 텍스트를 일시적으로 사용자 지정 메시지로 바꿀 수 있습니다.
즉, 매크로가 다음과 같은 갱신 정보를 표시하도록 만들 수 있다는 뜻입니다.
- 100행 중 10행 처리 중
- 데이터 가져오는 중…
- 수식 입력 중…
- 65% 완료
매크로가 아직 실행 중이라는 사실을 사용자에게 알리고 싶지만, 본격적인 그래픽 진행 표시줄을 만드는 추가 작업까지는 필요 없을 때 특히 유용합니다. 행 개수나 백분율을 함께 표시해 메시지를 더 알차게 만들 수도 있지만, 어디까지나 텍스트 기반 해결책입니다.
기본 문법:
엑셀 상태 표시줄에 메시지를 표시하려면 다음과 같이 작성합니다.
Application.StatusBar = "Processing..."
매크로가 끝나면 다음과 같이 상태 표시줄을 초기화합니다.
Application.StatusBar = False
Application.StatusBar = False로 설정하면 상태 표시줄의 제어권이 다시 엑셀로 돌아가 기본 메시지를 정상적으로 표시할 수 있게 됩니다. 이 단계는 절대 생략하지 마세요.
기본 예제: 간단한 진행 메시지
가장 기본적인 형태로, 상태 표시줄에 "보고서 생성 중… 잠시만 기다려 주세요"라는 고정 메시지 하나를 보여주는 버전입니다.
Sub SimpleStatusBar()
Application.StatusBar = "Running report... please wait"
' 작업 시뮬레이션
Dim i As Long
For i = 1 To 50000
' 여기에 실제 처리 로직 작성
Next i
Application.StatusBar = False ' 상태 표시줄 복원
MsgBox "완료되었습니다!"
End Sub
동작은 하지만 고정된 메시지 하나만 보여준다는 한계가 있습니다. 매크로가 실행 중이라는 사실은 알려주지만, 실제 진행률은 전혀 표시하지 못합니다.
루프 진행 중 실시간 진행률 표시하기
실무에서 작성하는 대부분의 매크로는 행, 셀, 파일, 레코드를 하나씩 순서대로 처리합니다. 덕분에 루프가 진행됨에 따라 상태 표시줄을 계속 갱신하기가 매우 쉽습니다.
Sub ShowLoopProgress()
Dim i As Long
Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lastRow
' 간단한 처리
Cells(i, "K").Value = "Processed"
' 진행 메시지 갱신
Application.StatusBar = "Processing row " & (i - 1) & " of " & lastRow
DoEvents
Next i
Application.StatusBar = False
MsgBox "작업이 완료되었습니다!"
End Sub
- DoEvents는 매크로가 실행되는 동안에도 엑셀이 화면을 새로 고치고 응답할 수 있게 해 줍니다.
- DoEvents가 없으면, 특히 긴 루프에서는 매크로가 끝날 때까지 상태 표시줄이 화면에 갱신되지 않을 수 있습니다.
- 다만 극단적으로 큰 루프에서는 실행 속도가 약간 느려질 수 있으므로 꼭 필요한 경우에만 사용하는 것이 좋습니다.
실행하면 화면 하단 상태 표시줄에 "Processing row 90 of 101"(101행 중 90행 처리 중)과 같은 메시지가 나타납니다.
백분율(%) 표시 추가하기
진행 메시지에 백분율을 포함하도록 자유롭게 커스터마이징할 수도 있습니다. 비율을 계산해서 상태 표시줄 텍스트에 넣어주기만 하면 됩니다.
Sub ShowPercentageProgress()
Dim i As Long
Dim lastRow As Long
Dim percentDone As Double
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lastRow
' 간단한 처리
Cells(i, "K").Value = "Processed"
' 진행 메시지 갱신
percentDone = (i - 1) / (lastRow - 1)
Application.StatusBar = "Processing row " & (i - 1) & " of " & (lastRow - 1) & _
" (" & Format(percentDone, "0%") & ")"
DoEvents
Next i
Application.StatusBar = False
MsgBox "작업이 완료되었습니다!"
End Sub
이 코드는 "Processing row 14 of 100 (14%)"(100행 중 14행 처리, 14% 완료)처럼 사용자에게 명확한 진행 정보를 제공합니다.
실전 예제: 수식 입력 작업에 적용하기
이번에는 실제 워크시트 작업을 수행하는 좀 더 실무적인 예제를 살펴보겠습니다. 아래 코드는 열에 매출액 계산 수식을 작성합니다.
Sub ShowProgressWithFormula()
Dim i As Long
Dim lastRow As Long
Dim percentDone As Double
lastRow = Cells(Rows.Count, "H").End(xlUp).Row
For i = 2 To lastRow
' H열 × I열 값을 K열에 입력
Cells(i, "K").Formula = "=H" & i & "*I" & i
' 진행 메시지 갱신
percentDone = (i - 1) / (lastRow - 1)
Application.StatusBar = "Writing formulas... " & _
"Row " & (i - 1) & " of " & (lastRow - 1) & _
" (" & Format(percentDone, "0%") & ")"
DoEvents
Next i
Application.StatusBar = False
MsgBox "K열에 수식이 모두 입력되었습니다!"
End Sub
단순한 예제지만, 많은 사용자가 실제로 수행하는 워크시트 작업 유형과 거의 동일한 구조입니다.
텍스트로 만든 "가짜 진행 표시줄"
Application.StatusBar로는 진짜 그래픽 진행 표시줄을 만들 수 없습니다. 하지만 문자를 조합해 진행 표시줄처럼 보이게 흉내 낼 수는 있습니다.
Sub StatusBarWithTextProgressBar()
Dim i As Long
Dim lastRow As Long
Dim percentDone As Double
Dim barLength As Integer
Dim filledBars As Integer
Dim progressBar As String
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
barLength = 20
For i = 2 To lastRow
Cells(i, "K").Value = "Processed"
percentDone = (i - 1) / (lastRow - 1)
filledBars = Int(percentDone * barLength)
progressBar = String(filledBars, "|") & String(barLength - filledBars, ".")
Application.StatusBar = "Progress: [" & progressBar & "] " & _
Format(percentDone, "0%")
DoEvents
Next i
Application.StatusBar = False
MsgBox "완료되었습니다!"
End Sub
이 VBA를 실행하면 상태 표시줄에 대략 다음과 같은 모습이 나타납니다.
Progress: [||||||||||……….] 67%
여전히 텍스트일 뿐이지만, 진행률을 한눈에 파악할 수 있는 강력한 시각적 효과를 줍니다.
필수 습관: 항상 상태 표시줄 초기화하기
가장 흔히 저지르는 실수 중 하나는 매크로 마지막에 상태 표시줄을 복원하지 않는 것입니다. Application.StatusBar = False를 실행하지 않으면 매크로가 종료된 후에도 엑셀이 계속 사용자 지정 텍스트를 표시할 수 있습니다. 아래처럼 간단한 오류 처리를 추가하면 도중에 문제가 발생해도 상태 표시줄이 반드시 초기화되므로 훨씬 안전합니다.
Sub SafeStatusMessage()
Dim i As Long
Dim lastRow As Long
Dim percentDone As Double
On Error GoTo CleanUp
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lastRow
Cells(i, "K").Value = "Processed"
percentDone = (i - 1) / (lastRow - 1)
Application.StatusBar = "Processing row " & (i - 1) & " of " & (lastRow - 1) & _
" (" & Format(percentDone, "0%") & ")"
DoEvents
Next i
MsgBox "작업이 완료되었습니다!"
CleanUp:
Application.StatusBar = False
If Err.Number <> 0 Then
MsgBox "오류: " & Err.Description
End If
End Sub
이 패턴이야말로 실무 환경에 적합한 구조입니다.
더 좋은 상태 메시지를 위한 팁
좋은 상태 표시줄 메시지는 짧고 구체적이어야 합니다. 간결하면서도 유용한 정보를 담는 것이 핵심입니다. 좋은 예시는 다음과 같습니다.
- 매출 데이터 가져오는 중…
- 중복 값 확인 중…
- 워크시트 서식 지정 중…
- 200건 중 45번째 레코드 처리 중…
- 보고서 마무리 중…
메시지가 실제 수행 중인 작업과 일치하도록 작성하세요. 그래야 매크로가 더 전문적으로 느껴지고, 사용자도 결과를 신뢰하기 쉽습니다.
바로 재사용 가능한 템플릿 패턴
아래 패턴은 거의 모든 매크로에 그대로 적용할 수 있습니다. 코드를 복사한 뒤, 표시된 위치에 자신의 처리 로직만 넣어주면 됩니다.
Sub MyMacro()
On Error GoTo CleanUp
Dim i As Long
Dim total As Long
total = 100
For i = 1 To total
Application.StatusBar = "Processing item " & i & " of " & total
DoEvents
' 여기에 실제 처리 코드 작성
Next i
CleanUp:
Application.StatusBar = False
End Sub
마무리
이 튜토리얼을 따라 하면 VBA가 실행되는 동안 손쉽게 진행 메시지를 표시할 수 있습니다. VBA 매크로가 아직 잘 돌아가고 있다는 사실을 사용자에게 알리고 싶다면, Application.StatusBar는 활용 가능한 도구 중 가장 간단한 선택지입니다. 완전한 진행 표시줄은 아니지만, 대부분의 상황에서 충분히 그 역할을 해냅니다. 구현이 쉽고 안정적이며, 코드량이 거의 없으면서도 오래 걸리는 VBA 프로시저의 사용자 경험을 크게 개선해 줍니다. 메인 루프 안에 상태 갱신 코드 몇 줄만 넣어 직접 테스트해 보세요. 생각보다 훨씬 빠르게 적용할 수 있을 것입니다.
무료 엑셀 고급 연습 문제와 해설 받기!