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

2020年3月6日

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 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