添加“你确定吗？”我的excelbutton，我怎么能？

我的表单上有一个button，可清除整个8工作表工作簿。 我想偶尔清除一下，但是我不愿意这样做。 我尝试过使用Googlesearch，但是我发现每一个结果都假设我对VBA的掌握比我更强。 我怎么能这样做，当button被点击一个对话框popup“这将消除一切！你确定吗？[继续] [取消]”？ 谢谢。

Answer 1

在您现有的button代码上，只需在该过程之前插入此行即可：

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

如果用户按下否，这将强制它退出。

Answer 2

用下面的代码创build一个新的子，并将其分配给你的button。 将“DeleteProcess”更改为您的代码的名称以进行删除。 这将popup一个确定或取消的框，将打电话给你的删除分，如果你点击确定，而不是如果你点击取消。

 Sub AreYouSure() Dim Sure As Integer Sure = MsgBox("Are you sure?", vbOKCancel) If Sure = 1 Then Call DeleteProcess End Sub 

杰西

Answer 3

当按下“删除”button时，只需制作一个自定义的用户窗体，然后将继续button链接到实际删除的代码。 使取消button隐藏用户窗体。