添加“你确定吗？”到我的excel按钮，我该怎么办？

Question

我的表单上有一个按钮，清除整个8张工作簿。我确实想偶尔清除它，但我不愿意偶然做到这一点。我试过谷歌搜索它，但我发现的每一个结果都假设我对VBA的掌握比我更加坚定。如何在点击按钮时弹出一个对话框，弹出“这将删除所有内容！你确定吗？[继续] [取消]”？ 感谢。

Answer 1

在现有的按钮代码上，只需在程序前插入此行：

If MsgBox("This will erase everything! Are you sure?", vbYesNo) = vbNo Then Exit Sub

如果用户按否，则会强制退出。

Answer 2

使用以下代码创建一个新子并将其分配给您的按钮。将“DeleteProcess”更改为代码名称以进行删除。这将弹出一个OK或取消的框，如果你点击ok就会调用你的删除子，如果你点击取消就不会。

Sub AreYouSure()

Dim Sure As Integer

Sure = MsgBox("Are you sure?", vbOKCancel)
If Sure = 1 Then Call DeleteProcess

End Sub

杰西

Answer 3

只需创建按下“删除”按钮时显示的自定义用户窗体，然后将继续按钮链接到执行删除的实际代码。使取消按钮隐藏用户窗体。