添加"你确定吗？" 到我的excel按钮,我该怎么办？

Question

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

Answer 1

在现有的按钮代码上,只需在过程之前插入此行:

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

如果用户按否,这将强制退出.

+1我喜欢这个答案,但严格来说,`如果MsgBox("这将删除所有内容,你确定吗？",vbOKCancel)= vbOK然后`因为他要求"继续"和"取消"按钮,所以会更接近. (4认同)

Answer 2

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

Sub AreYouSure()

Dim Sure As Integer

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

End Sub

杰西