하단 상태바에 진행율 표시

Sub AltEnter_2() Dim Cell As Range Dim FindText As String Dim Cellrow As Long Application.ScreenUpdating = False Application.StatusBar = True '-------------------------- '찾을 텍스트 '-------------------------- FindText = "길" '*************************************************************************** For Each 셀 In Selection ' 셀 = Replace(Cell.Value, "길", Chr(10)) Cellrow = 셀.Row 셀 = Replace(Cell.Value, FindText, Chr(10) & Chr(10) & FindText) '"길"자가 들어간 위치가 찾아지면 그 위치에서 Alt+Enter를 적용한다 Application.StatusBar = "Progress: " & Cellrow & " of 100: " &amp..........

원문링크 : 하단 상태바에 진행율 표시