【VBAリファレンス】Excel VBAでUndo（元に戻す）を実装する！ユーザー体験を劇的に向上させる高度なテクニック

ExcelVBA

2026.08.212026.08.22

概要

Excel VBAでマクロを実行した際、多くの開発者が直面する大きな課題があります。それは「マクロで実行した操作は、標準のCtrl+Z（元に戻す）が効かない」という点です。ユーザーが誤ってボタンを押してしまい、苦労して入力したデータが一瞬で書き換えられてしまった時、そのツールは「危険なツール」という烙印を押されます。本稿では、VBAでUndo（元に戻す）、Redo（やり直す）、そしてRepeat（繰り返す）を実装するためのアーキテクチャを徹底解説します。これらをマスターすることで、あなたのツールはプロフェッショナルなアプリケーションへと進化します。

詳細解説：なぜVBAには元に戻す機能がないのか

VBAはExcelのオブジェクトモデルを直接操作します。セルに値を代入する、書式を変更する、シートを削除するといった操作は、Excelの「元に戻すスタック」をクリアしてしまいます。これはVBAが「破壊的な命令」として認識されるためです。これを回避するためには、「操作を記録するクラス」を自作し、実行前の状態をメモリ内に保持する仕組みが必要です。

1. 操作のキャプチャ：値を変更する前に、現在のセルのアドレスと値を「コレクション」に保存します。
2. Undoの実行：スタックの最後にあるデータを取り出し、元の値をセルに書き戻します。
3. Redoの実行：Undoで戻した値を、再度適用します。
4. Repeatの実行：直前の操作を、新しいターゲットに対して再実行します。

これらを実現するために必須となるのが「クラスモジュール」です。標準モジュールだけでは状態管理が困難ですが、クラスを使うことで「操作」そのものをオブジェクトとして扱うことが可能になります。

サンプルコード：Undo機能を実装するクラス設計

まずは、操作履歴を保持するためのクラス（クラス名：clsUndoOperation）を作成します。


' クラスモジュール：clsUndoOperation
Public TargetRange As Range
Public OldValue As Variant

Public Sub Undo()
    TargetRange.Value = OldValue
End Sub

次に、標準モジュールでこのクラスを管理する仕組みを構築します。


' 標準モジュール
Public UndoStack As Collection

Sub InitializeUndo()
    Set UndoStack = New Collection
End Sub

Sub UpdateCellValue(rng As Range, newValue As Variant)
    ' 操作履歴を保存
    Dim op As New clsUndoOperation
    Set op.TargetRange = rng
    op.OldValue = rng.Value
    
    UndoStack.Add op
    
    ' 値の更新
    rng.Value = newValue
End Sub

Sub UndoLastAction()
    If UndoStack.Count = 0 Then
        MsgBox "元に戻せる操作はありません。"
        Exit Sub
    End If
    
    Dim op As clsUndoOperation
    Set op = UndoStack(UndoStack.Count)
    op.Undo
    
    ' スタックから削除
    UndoStack.Remove UndoStack.Count
End Sub

実務アドバイス：大規模開発での落とし穴

実務でこの機能を導入する際、以下の3点に注意してください。

1. メモリ管理：無制限にUndoスタックを蓄積すると、Excelの動作が極端に重くなります。一定数（例：20個）を超えたら古いデータを破棄する「循環バッファ」のアルゴリズムを採用しましょう。
2. 複雑な操作の扱い：セル単体の変更は簡単ですが、「行の削除」や「シートの移動」は元に戻すのが非常に困難です。これらを実装しようとするとコードが肥大化するため、実務では「重要な変更のみを記録する」という割り切りが必要です。
3. イベントとの共存：Worksheet_ChangeイベントとUndo機能を併用する場合、Undo実行時のセル変更で再びイベントが走らないよう、`Application.EnableEvents = False`を適切に制御することが不可欠です。

繰り返しの実装：Repeatの魔法

「繰り返す」機能は、最後に実行した操作のパラメータを保持しておくことで実現します。例えば「セルの背景色を赤にする」という操作をクラス化しておけば、別のセルを選択した状態で「繰り返す」ボタンを押した際、その新しいセルに対して同じメソッドを呼び出すだけで済みます。

プロフェッショナルなツールでは、リボンインターフェースに「元に戻す」「やり直し」ボタンを配置し、`Application.OnUndo`メソッドを組み合わせてExcel標準の機能と連携させるのが理想的です。ただし、`Application.OnUndo`は「マクロが終了した直後の1回分」しかサポートしていないため、本格的な履歴管理には前述のクラスベースのスタック管理が必須となります。

まとめ

VBAにおける「元に戻す・やり直す」の実装は、初級者から中級者へステップアップするための最大の壁です。しかし、この壁を乗り越えることで、あなたの作成するExcelツールは「単なる自動化マクロ」から「堅牢な業務アプリケーション」へと変貌を遂げます。

まずは単純な「セルの値の書き戻し」から実装を始め、徐々に書式やオブジェクトの削除にも対応できるようクラスを拡張していってください。ユーザーにとっての「安心感」を提供できる開発者こそが、真に評価されるエンジニアです。今回のコードをベースに、自分だけの「Undo管理エンジン」を構築してみましょう。あなたのVBAライフが、よりプロフェッショナルなものになることを確信しています。