Sub test()
    Dim i As Integer
    Dim 総件数 As Integer
    
    総件数 = 10000
    
    '**ステータスバーの現状を保存する**
    初期状態 = Application.DisplayStatusBar
        
    '**ステータスバーを表示する**
    Application.DisplayStatusBar = True
    
    For i = 1 To 10000 Step 1
        'ここに繰り返し行なうマクロを記述する。
        
        Application.StatusBar = "マクロで処理中・・進行状況  " _
                    & Int(i / 総件数 * 100) & " （100で終ります）"
    Next i
    
    '**ステータスバーを開放する**
    Application.StatusBar = False
    
    '**ステータスバーを非表示にする**
    Application.DisplayStatusBar = False
    
    '**ステータスバーを初期状態にもどす**
    Application.DisplayStatusBar = 初期状態

End Sub