진행상황을 WorkSheet에서 알기

VBA로 작업을 하다 보면 시간이 오래걸리는 경우가 많은데, 개발자들은 Log를 보면서 작업을 하니까 갑갑함을 못느낄수 있지만, VBA로 만든 것을 돌리기만 하는 경우에는 진행상황을 알수 없어서 갑갑함을 느낄수 있다.

이때 간단하게 현재 진행현황을 보여줄려면 Application.StatusBar를 쓰면 된다.

MSDN도움말

Public Sub VBA작업()

Dim oldStatusBar  As string

'이전 메시지를 기억한다.
oldStatusBar = Application.DisplayStatusBar 
Application.DisplayStatusBar = True 

'순환문내에서 아래 진행상황을 표시한다. 
Application.StatusBar = i & "/" & allCount & " Please be patient..." 

'끝나기전에 초기상태로 뒤돌린다.
Application.StatusBar = False 
Application.DisplayStatusBar = oldStatusBar

End Sub