Question

我已经明确了所有按钮，但是我在修复所有按钮时遇到问题 VBA中清除所有按钮的代码

private sub commandbutton1_click
Sheets ("examplesheet").range ("a1:a3").value = ""

在我意外清除整个表单的实例中，有人可以帮我为这个例子制作一个撤销按钮吗？

Answer 1

单击撤消按钮时，您可以创建一个执行某项操作的功能。

以下示例使用名为Undo的工作表来存储撤消所需的信息。可以隐藏工作表以使其更清洁。

Sub Test()
  ClearCell Cells(1, 1)
End Sub

Sub ClearCell(R As Range)
  Sheets("Undo").Range("A1") = R.Worksheet.Name
  Sheets("Undo").Range("A2") = R.Address
  Sheets("Undo").Range("A3") = R.Text
  R.Clear
  Application.OnUndo "Undo button text", "MyUndo"
End Sub

Sub MyUndo()
  Sheets(Sheets("Undo").Range("A1").Text).Range(Sheets("Undo").Range("A2").Text) = Sheets("Undo").Range("A3").Text
End Sub

您可以通过管理chuff注释

建议的文档中所述的操作队列来优化它

如何在excel中创建撤消清除所有按钮

1 个答案: