加上“你确定吗？”到我的excel按钮，我该怎么做？
加上“你确定吗？”到我的excel按钮，我该怎么做？
提问于 2011-12-20 08:27:04
我的表单上有一个清除整个8页工作簿的按钮。我确实想偶尔清除它，但我讨厌不小心这样做。我试过用谷歌搜索它，但我找到的每一个结果都假设我对VBA的掌握比我要扎实得多。当点击按钮时，会弹出一个对话框，说“这将删除所有内容！你确定吗?继续”，我该怎么做？谢谢。
回答 3
Stack Overflow用户
回答已采纳
发布于 2011-12-20 17:40:36
在您现有的按钮代码中，只需在过程之前插入以下行：
If MsgBox("This will erase everything! Are you sure?", vbYesNo) = vbNo Then Exit Sub如果用户按下no，这将强制它退出。
Stack Overflow用户
发布于 2011-12-20 08:38:51
使用以下代码创建一个新的sub，并将其分配给您的按钮。将"DeleteProcess“更改为要执行删除的代码的名称。这将弹出一个带有OK或cancel的框，如果你点击ok就会调用你的delete sub，而如果你点击Cancel则不会。
Sub AreYouSure()
Dim Sure As Integer
Sure = MsgBox("Are you sure?", vbOKCancel)
If Sure = 1 Then Call DeleteProcess
End Sub杰西
Stack Overflow用户
发布于 2011-12-20 08:32:37
只需创建一个自定义用户表单，该表单在按下“删除”按钮时显示，然后将“继续”按钮链接到执行删除的实际代码。使cancel按钮隐藏用户表单。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/8569389
复制相关文章
相似问题
腾讯云开发者
