Excelを快適に使おう

Option Explicit
'---------------------------------------------------------------------------------------------------
'
' マクロ: プログレスバーを表示します。別途フォームも必要です
'
'---------------------------------------------------------------------------------------------------

Private Const WAITSEC As Long = 50  'ミリ秒

'---------------------------------------------------------------------------------------------------
' 概要：進捗バーを表示します
' 補足：実際は、<処理>でくくった範囲に、非常に時間のかかる処理が入ります
'       簡易的にfor文で重い処理に見立ててます
'---------------------------------------------------------------------------------------------------
Sub 進捗バーを表示()
    Dim i As Long
    Dim maxWidth As Long
    Dim img As Object
    Dim pas As String
    
    '進捗バー表示
    UserForm1.Show vbModeless    '実行制御を呼び出した側にすぐ戻す
    maxWidth = UserForm1.Label1.Width
    UserForm1.Label1.Width = maxWidth * (1 / 100)
    UserForm1.Label2.Caption = "処理を開始します"

    For i = 1 To 100
    
        '処理――→
        Application.Wait [Now()] + WAITSEC / 86400000
        '←――処理
        
        DoEvents
        UserForm1.Label1.Width = maxWidth * (i / 100)
        UserForm1.Label2.Caption = "処理中です..." & i & "%"
    Next i

    UserForm1.Label2.Caption = "お待たせしました、終了しました"
    Application.Wait [Now()] + 1000 / 86400000  '1秒
    Unload UserForm1

End Sub