VBA「元に戻す」機能を作るには？

Question

前提・実現したいこと

勤務時間を管理するアプリケーションを作っています。
VBAで書いた内容をシートには反映させたところ、意図しない入力がなされてしまうケースがあります。

そこでUndo処理を行いたいのですが、VBAのコードにそもそも「一つ前に戻す」コードがあるのかどうか
知りたいです。

調べてもイマイチ、ヒットしなかったので、どのようにすればVBAのコードで「一つ前に戻す」ができるのか
ご教示願いたく。

よろしくお願いいたします。

補足情報（FW/ツールのバージョンなど）

Office３６５　Excel
ここにより詳細な情報を記載してください。
windows10

Comments

[meg_]

「意図しない入力がなされてしまうケース」とは何でしょうか？　VBAにバグがある以外の理由でしょうか？

[webillion]

はい。VBAのバグではなく例えば、A1セルにVBAから入力しようとしたところ、B1セルに入力されてしまうケースです。コードの書き間違いで起る類のものです。

[meg_]

それはバグですよね。私が「VBAのバグ」と書いたのは言語仕様にバグがあるという意味ではなく、コードのバグのことです。

Answer 1

VBAで行った処理を元に戻すという機能はありません。
但し、「元に戻す」操作（Ctrl+Z等)に自前の処理を結びつける事はできます。

以下参考
ユーザーフォームで Undo機能を使うには？

Comments

[m.ts10806]

その手がありましたか。思いつかなかった

Answer 2

期待した処理ができるか微妙ですが参考情報として。

onundo メソッド (Excel) | Microsoft Docs

Excel.Application には OnUndo メソッドがあり、VBAの処理の最後に呼び出すことで
「元に戻す」の履歴の作成および、「元に戻す」実行時に行われる処理を指定できます。

しかし、ExcelのVBA特有の「VBAでセルなどを操作すると「元に戻す」の履歴がすべて消える」は健在のため、VBAで行った操作しか戻せません。

Sub OnUndoSample()
    ActiveCell.Value = "VBAからの書き込み"
    
    Application.OnUndo "VBAの処理を戻す(ここは任意)", "OnUndoCallback"
End Sub

Sub OnUndoCallback()
    ActiveCell.Value = "もどる"
    '実際には直前の状態や処理範囲を記録しておいて、適切に処理する必要がある。
End Sub

Answer 3

毎回の操作履歴を保持、記録しておいて、その記録を呼び出すしかないと思います。