ExcelのVBAで自動的に処理を実行していると、Excelが固まったように見えて処理が動いているのか止まっているのか分からなくなることがあります。そういったときはプログレスバーを表示すると動いているかどうかすぐにわかります。

そこで簡易なものではありますがプログレスバーを表示できるクラスを作成したので公開しておきます。

GitHub - tomikiya/excel_progressbar_class: プログレスバーをステータスバーに表示するクラス

プログレスバーをステータスバーに表示するクラス. Contribute to tomikiya/excel_progressbar_class development by creating an account on GitHub.

github.com

Progressbar.clsをダウンロードしてインポートしてみてください。

イメージ

ステータスバーに簡易的なプログレスバーを表示します。

使い方

インスタンスを生成して、ProgressValueを指定します。それだけでプログレスバーが表示されます。

Public Sub Sample1()
    Dim prg As Progressbar
    Set prg = New Progressbar
    
    prg.ProgressValue = 50
End Sub

↓実行結果

プログレスバーを動いているように見せたいときはProgressValueを少しずつ変化させてください。

Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)

Public Sub RunProgressbar()
    Dim prg As Progressbar
    Set prg = New Progressbar
    
    Dim i As Long
    For i = 0 To 100
        prg.ProgressValue = i
        Sleep 20
    Next i

End Sub

↓実行結果

詳細

変数やメソッドの詳細です。

ユーザフォームを使ってプログレスバーを作ってもよいですがそこまでせずもっとお手軽に使いたい時に重宝します。
お試しください。