是否可以在Excel格式中使用“重置表单”按钮？

Question

有没有办法在Excel电子表格表单中创建重置按钮？那就是我想让所有输入的数据都清楚，但不是任何公式。

编辑：进一步说明：真的只是一个电子表格。当我们每天早上数钱时，我们有一个表格，我们写下每种不同的货币面额，然后将其全部加起来（然后将这些数字放入计算器中）。我认为如果我们只将电子表格中的总数输入并让Excel为我们做数学计算，它可以节省时间并减少错误。然而，有些人在技术上不是很有文化，所以我想确保不会意外删除公式。

Answer 1

没有通用的“重置按钮”，所以你必须自己制作一个。

在工作表中添加一个按钮，并在工作表模块中编辑其代码：

Private Sub CommandButton1_Click()
    ClearInput
End Sub

在（常规代码）模块中，创建一个符合您需要的Sub：

Sub ClearInput()

    Dim rngInput As Range
    Set rngInput = Sheet1.Range("B1:C4") ' Or wherever the user input goes
    rngInput.ClearContents

End Sub

更灵活的解决方案是在工作表中包含一个命名范围（称为“UserInput”），该范围涵盖稍后需要清除的所有单元格。然后你可以用Set替换上面代码中的Set rngInput = Sheet1.Range("UserInput")语句。

Answer 2

关注你的评论“然而，有几个人在技术上不是很有文化，所以我想确保公式不会被意外删除。” （您可能希望迁移到该问题）：

如果您想要的是确保用户不会意外地在其他单元格中输入数据而不是他们需要，您将需要保护工作表并且只是取消保护输入单元格（默认情况下将单元格移植）。保护工作表时，允许“选择未锁定的单元格”但禁用“选择锁定的单元格”。如果你只是试图打击事故而不是完全没有恶意，我可能不需要密码，但这也是一个选择。

这样做的另一个好处是，只有输入单元格是可选择的，人们只需在它们之间选项卡即可输入数据，无论它们在哪里。

Answer 3

您可以使用VBA执行此操作。在没有看到您的电子表格的情况下，我无法为您提供任何细节，但您可以将列A行1-15中的所有单元格设置为空字符串。

ActiveSheet.Range("A1", "A15").Value = ""