【VBA】ユーザーフォームが閉じる時にマクロを実行する方法 (Terminate)

2025年8月15日

はじめに

VBAのユーザーフォームを操作画面として提供する場合、「フォームが閉じられたタイミングで、後片付けの処理を自動で実行したい」ということがあります。例えば、入力された内容をシートに書き出したり、作業ログを記録したり、といったケースです。

VBAのユーザーフォームには、フォームが完全に閉じられ、メモリから破棄される直前に発生する Terminate というイベントが用意されています。これを利用すれば、フォームの終了をトリガーにして、特定のクリーンアップ処理や最終処理を確実に実行させることができます。

この記事では、Terminate イベントを使って、フォームが閉じられる際に特定の処理を自動実行する方法を解説します。

フォームが閉じる時に処理を実行するVBAサンプルコード

このマクロは、ユーザーフォームが Unload されるか、右上の「×」ボタンで閉じられて、メモリから解放される直前に動作します。

ここでは、「Log」という名前のシートのA列最終行に、フォームが閉じられた時刻を記録する、という例を作成します。

ユーザーフォームのコード (`DataForm`)

このコードは、ユーザーフォームのコードモジュールに直接記述します。

VBEで対象のユーザーフォームをダブルクリックして表示します。
フォームの何もないところをダブルクリックしてコードウィンドウを開きます。
上部のドロップダウンで (General) から UserForm を選び、右側のドロップダウンで Terminate を選びます。

VB.Net

' フォームがメモリから破棄される直前に実行されるイベント
Private Sub UserForm_Terminate()
    ' 標準モジュールに記述したクリーンアップ処理を呼び出す
    Call CleanUpProcess
End Sub

標準モジュールのコード (`Module1`)

フォームが閉じたときに実行したい具体的な処理は、標準モジュールに記述しておくと管理がしやすくなります。

' フォーム終了時に呼び出される後片付け処理
Sub CleanUpProcess()
    Dim logSheet As Worksheet
    Dim lastRow As Long
    
    On Error Resume Next
    Set logSheet = ThisWorkbook.Worksheets("Log")
    On Error GoTo 0
    
    If logSheet Is Nothing Then
        ' Logシートがなければ作成
        Set logSheet = ThisWorkbook.Worksheets.Add
        logSheet.Name = "Log"
    End If
    
    ' LogシートのA列最終行を取得
    lastRow = logSheet.Cells(logSheet.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 終了ログを書き込み
    logSheet.Cells(lastRow, "A").Value = "フォームが " & Now() & " に閉じられました。"
End Sub