ワークシートの全バージョンを復元するVBAの[元に戻す]ボタン

Question

現在、何百もの行の更新、作成、削除などのさまざまな機能を実行するマクロ対応のスプレッドシートがあります。何らかの理由で、これらの関数のうちの1つが残っていて、保持することを意図した情報を削除した場合 - マクロによって変更されたスプレッドシートのバージョンを復元する「元に戻す」ボタンを実装したいと思います。

私はそれが次のようになりますと仮定します。

Public InstanceOfWorksheet As Range 

Sub Button_Click() 
    InstanceOfWorksheet = CurrentWorksheet.UsedRange 'Or something like this 
    'Macro functionality here 
    CurrentWorksheet.Update() 'Worksheet has now been updated 
    End Sub 

Sub Button2_Click() 
    InstanceOfWorksheet = CurrentWorksheet.UsedRange 'Or something like this 
    'Second Macro functionality here 
    CurrentWorksheet.Update() 'Worksheet has now been updated 
    End Sub 

Sub UndoLastMacro_Click() 
    CurrentWorksheet = InstanceOfWorksheet 
    End Sub 

あなたはUndoLastMacroコマンドを起動したときにそのため、この場合には、あなたが効果的に前の最後のマクロにあなたが持っていたワークシートのバージョンを「復元」でしょうと呼ばれる。

InstanceOfWorksheetはどのような変数タイプにするべきですか。InstanceOfWorksheetの内容を現在のワークシートにコピーするにはどのような方法が最も簡単でしょうか？

ありがとうございます！ ：）

Answer 1

私は、コード内でこのような何かをするだろう

Sub Button_Click() 
    Dim TemporaryFileName as String 
    TemporaryFileName = "FileName" 'You can include a path here too like "C:\Wherever\FileName" 
    ThisWorkbook.SaveAs(TemporaryFileName) 
    ... (code to be run 
End Sub 

Sub Restore_Button_Click() 
    Workbooks.Open(TemporaryFileName) 
    ThisWorkbook.Close False ' Won't save. Maybe set to true if you don't want to lose it just yet 

End Sub 

また、おそらく「新しい」バックアップワークブックに代わるように、ファイルが最初に呼ばれていたものは何でもとして保存するボタンを追加する必要があります。あなたのマクロによって壊れていたもの。

・ホープこれはあなたが目標範囲の値を保持するために、データ型 `Variant`で、このために複数の変数、範囲変数と配列変数を必要とする