ステータスバー

Sub ステータスバー1()
    Dim i As Long
    For i = 1 To 500
        Application.StatusBar = i & "回目の処理をしています..."
    Next i
    Application.StatusBar = False
End Sub

Sub ステータスバー2()

    ThisWorkbook.Worksheets("Sheet1").Activate
 
    Application.Wait [Now() + "00:00:01"]
 
    Application.StatusBar = "処理中・・・ 10％ : ■□□□□□□□□□"
     
    Application.Wait [Now() + "00:00:01"]
    Application.StatusBar = "処理中・・・ 20％ : ■■□□□□□□□□"
     
    Application.Wait [Now() + "00:00:01"]
    Application.StatusBar = "処理中・・・ 30％: ■■■□□□□□□□"
     
    Application.Wait [Now() + "00:00:01"]
    Application.StatusBar = "処理中・・・ 40％ : ■■■■□□□□□□"
     
    Application.Wait [Now() + "00:00:01"]
    Application.StatusBar = "処理中・・・ 50％: ■■■■■□□□□□"
     
    Application.Wait [Now() + "00:00:01"]
    Application.StatusBar = "処理中・・・ 60％ : ■■■■■■□□□□"
     
    Application.Wait [Now() + "00:00:01"]
    Application.StatusBar = "処理中・・・ 70％: ■■■■■■■□□□"
     
    Application.Wait [Now() + "00:00:01"]
    Application.StatusBar = "処理中・・・ 80％: ■■■■■■■■□□"
     
    Application.Wait [Now() + "00:00:01"]
    Application.StatusBar = "処理中・・・ 90％: ■■■■■■■■■□"
     
    Application.Wait [Now() + "00:00:01"]
    Application.StatusBar = "処理・・・ 100％: ■■■■■■■■■■"
 
    Application.Wait [Now() + "00:00:01"]
 
    MsgBox "処理が完了しました(｀･ω･´)ゞ"
 
    Application.StatusBar = False
 
End Sub