EXCEL VBA 処理の進行状況 StatusBerの表示

EXCEL VBA 処理の進行状況ステークスバーの表示

●はじめに

ここでは、ステークスバー（StatusBer）にプログラム処理の進行状況を表示させます。プログラム処理量が増えるとプログラム終了するまでに、時間が掛かるので経過の目安になるように、進行状況を表示します。また、プログラム実行中の「応答なし」を防止する事も出来ます。

●プログラム説明（サンプル①）

ステークスバーのバー増やしてカウントする方法（１）

Sub StatusBer()

    Dim L As Long
    For L = 1 To 10000
    
        Range("A" & L) = L      '----------ここに処理記入
        Application.StatusBar = "実行中…" & String(Int(L / 1000), "■")'--1000毎に■を増やす
        
    Next L

    Application.StatusBar = False '---Falseでステークスバーの操作を戻す

End Sub

●実行中表示

●プログラム説明（サンプル②）

ステークスバーの数値を増やしてカウントする方法（２）

Sub StatusBer2()

    Dim L As Long    
    For L = 1 To 10000
    
        Range("A" & L) = L    '----------ここに処理記入        
        Application.StatusBar = L & "回目の処理を実行中！"        
    Next L

    Application.StatusBar = False

End Sub

●実行中表示

最後まで、ご覧いただきまして誠に有難うございました。
以上で、ステークスバーにVBA実行中の進行状況をステークスバーに表示される方法です。
また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。

AKIRA