在我的EXCEL按钮上加上“你确定吗?”,我怎么做?

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (2)
  • 关注 (0)
  • 查看 (34)

我的表单上有一个按钮,可以清除整个8张工作表。我确实想偶尔澄清一下,但我不愿意偶然地这样做。我尝试过搜索它,但是我发现的每一个结果都假设我比我更能掌握VBA。我怎么能做到这一点,当按钮被点击,一个对话框弹出说:“这将擦除一切!你确定吗?继续“?谢谢。

提问于
用户回答回答于

在现有的按钮代码中,只需在过程之前插入这一行:

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

这将迫使它退出,如果用户按下否。

用户回答回答于

用下面的代码创建一个新的子程序,并将它分配给您的按钮。将“DeleteProcess”更改为代码名以执行删除。这将弹出一个与确定或取消框,并将调用您的删除子,如果你点击OK,而不是如果你点击取消。

Sub AreYouSure()

Dim Sure As Integer

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

End Sub

扫码关注云+社区