【簡単エクセル/Excel VBA マクロ】プログレスバー｜エクセルオブジェクトの操作 #005

まず、VBE（Visual Basic Editor）の「挿入」メニューから「ユーザーフォーム」を選択し、ユーザーフォームを挿入します。

そうすると、このようなまっさらのユーザーフォームが挿入されます。

次に、必要なコントロールを配置します。

ここでは、進捗状況をテキストで表示する「ラベル」と、視覚的に表示する「プログレスバー」を配置します。

コントロールは、ツールボックスからドラッグ＆ドロップで配置できます。

ここ↓がポイント！

プログレスバーはデフォルトではツールボックスに表示されていないため追加する必要があります。

まず、ツールボックスの右クリックメニューから「その他のコントロール」をクリックします。

次に、「Microsoft ProgressBar Control」コントロールにチェックを入れて、OKをクリックします。これで、ツールボックスへプログレスバーが表示されるようになります。

もし、「そもそもツールボックスが表示されてないよ！」という方がいれば、以下の表示メニューから表示させることができるので、慌てないでくださいね！

プログレスバーを表示するときは、ユーザーが待機しているときです。

そのため、ユーザーフォームのタイトルを以下のように設定すると、気が利いています。

なお、ラベルとプログレスバーのオブジェクト名は、下図のようになっていますので覚えておきましょう。これらの名前は、コードを実装する際に必要になります。

以上でユーザーフォームの準備は完了です。

    ' ユーザーフォームとカウンター変数の宣言
    Dim uf As UserForm1           ' プログレスバーを表示するユーザーフォーム
    Dim progress_step As Long     ' 現在の進捗ステップを示すカウンター

ここでは、変数を宣言しています。

変数はDim 変数 As データ型の構文で宣言します。これにより各変数は、As以降で指定したデータ型のデータを保持できるようになります。

ここで、Dim uf As UserForm1 は、UserForm1 という型のインスタンス（実体）を保持するための変数 uf を宣言しています。

この UserForm1 は、前述の「ユーザーフォームの作成」で作成したユーザーフォームの「型名」です。

Dim progress_step As Long は、進行状況のステップ数を保持するための変数です。Longは整数値を扱うためのデータ型です。

    ' ユーザーフォームの新しいインスタンスを作成
    Set uf = New UserForm1

ここでは、ユーザーフォーム UserForm1 の新しいインスタンス（実体）を作成し、同時に変数 uf に格納しています。

New は、VBAに「このオブジェクトの新しいインスタンスを作成せよ」と指示するキーワードです。

UserForm1 は、既にVBAプロジェクト内でデザインされたユーザーフォームのクラス（設計図）です。

New UserForm1 によって、UserForm1 の新しいオブジェクトが作成され、そのインスタンス（実体）が返されます。

変数 uf は、先に Dim uf As UserForm1 で宣言された変数です。この変数に新しく作成された UserForm1 のインスタンス（実体）が割り当てられます。

以降のコードでは、この uf 変数を通じて UserForm1 のインスタンス（実体）にアクセスし、フォームを表示したり、フォーム上のコントロールを操作したりできるようになります。

    ' プログレスバーの初期設定
    With uf.ProgressBar1
        .Min = 0
        .max = 10       ' プログレスバーの最大値を10に設定
        .Value = 0
    End With

ここでは、プログレスバーの初期設定を行っています。

.Min = 0 と .Max = 10 は、それぞれプログレスバーの最小値と最大値を設定しています。

.Value = 0 は、プログレスバーの現在の値を0に設定します。これにより、プログレスバーは最初の状態（進捗なし）からスタートします。

    ' ユーザーフォームを非同期で表示
    uf.Show vbModeless

ここでは、ユーザーフォームを非同期で表示しています。

"非同期"とは、ユーザーフォームを表示している間でも、他の操作（例えばExcelシートの編集など）が同時に行える状態を指します。

uf は、先に Set uf = New UserForm1 で作成したユーザーフォーム UserForm1 のインスタンスを指しています。

Show は、ユーザーフォームを表示するためのメソッドです。uf.Show とすることで、指定されたフォーム（ UserForm1）が画面に表示されます。

vbModeless は、ユーザーフォームを「非同期モード」で表示するオプションです。

    For progress_step = 1 To 10

        ' 処理のメイン部分（例として1秒待機する処理を実装）
        Application.Wait Now + TimeValue("0:00:01")
        
        ' プログレスバーの進捗を更新
        uf.ProgressBar1.Value = progress_step
        uf.Label1.Caption = "処理中... " & Int((progress_step / 10) * 100) & "%"
        
        ' 画面を更新
        DoEvents

    Next progress_step

ここでは、プログレスバーの更新を行っています。For Next ステートメントで10ステップの繰り返し処理を実行し、各ステップでプログレスバーを更新しています。

Application.Wait Now + TimeValue("0:00:01") は、マクロを1秒間停止する処理です。これは例として実装したものであり、実際にはここに実行したい処理を記述します。

uf.ProgressBar1.Value = progress_step は、プログレスバー ProgressBar1 の値を変数 progress_step の値に更新しています。

progress_step の値に応じてプログレスバーが更新され、進捗状況が視覚的に確認できます。For Next ループが進むごとに、プログレスバーが徐々に増加していきます。

uf.Label1.Caption = "処理中... " & Int((progress_step / 10) * 100) & "%" は、ラベル Label1 に進捗状況をテキストで表示しています。Int 関数は、数値の小数点以下を切り捨てて整数に変換する関数です。

DoEvents は、VBAが他のイベント（例えば、ユーザーフォームの更新や他のExcel操作）を処理できるようにする命令です。

通常、VBAのプログラムが処理を実行している間、その処理が完了するまで他の操作ができなくなります。

特に、長時間かかる処理を行っているとき、ユーザーインターフェース（フォームのボタンやラベルなど）が「フリーズ」してしまい、ユーザーが操作できなくなったり、画面が更新されなくなることがあります。

DoEvents は、VBAのプログラムが長時間の処理を実行している間でも、他の操作や画面更新ができるようにするための命令です。

これにより、ユーザーインターフェース（例えば、プログレスバーやラベル）がリアルタイムで更新され、ユーザーに対して処理が進行していることを見せることができます。

    ' 処理が終わったらユーザーフォームを閉じる
    Unload uf

ここでは、ユーザーフォームを閉じる処理を行っています。

Unload ステートメントは、指定したユーザーフォームを閉じ、同時にメモリから完全に解放するための命令です。

この処理がない場合、フォームは画面に表示されたまま残り続けてしまいます。そのため、処理の最後に明示的に Unload を実行し、フォームを破棄する必要があります。

この処理がないと、ユーザーフォームが画面に表示されたままになります。そのため、明示的にフォームを閉じるコマンドを実装する必要があります。

フォームを閉じるだけでなく、占有していたメモリ領域も解放されるため、メモリ管理の観点でも重要です。