撤消function恢复重置内容macros

我有一个工作表上的Active X控制button，将“重置工作表的内容”。

我也想添加一个名为“Undo Button”的button，它应该使用“Reset Contents”恢复被清除的内容。 这可能吗？

Private Sub CommandButton21_Click() Worksheets("DropSheet").Range("E7:E15").ClearContents End Sub 

请build议

Answer 1

假设在你的相关（“DropSheet”？）工作表中有：

• 以“CommandButton21”命名的ActiveXbutton

• 以“UndoBtn”命名的ActiveXbutton

将这段代码放在同一个工作表代码窗格中：

 Option Explicit Dim lastValues As Variant '<-- worksheet scoped variable where to store "last" values in before CommandButton21 button clears them Private Sub CommandButton21_Click() With Range("E7:E15") '<--| reference your relevant range lastValues = .Value '<--| first, store its content in the worksheet scoped array variable .ClearContents '<--| then, clear its content End With End Sub Private Sub UndoBtn_Click() Range("E7:E15").Value = lastValues '<--| write'em back! End Sub