添加“你确定吗?”我的excelbutton,我怎么能?
我的表单上有一个button,可清除整个8工作表工作簿。 我想偶尔清除一下,但是我不愿意这样做。 我尝试过使用Googlesearch,但是我发现每一个结果都假设我对VBA的掌握比我更强。 我怎么能这样做,当button被点击一个对话框popup“这将消除一切!你确定吗?[继续] [取消]”? 谢谢。
在您现有的button代码上,只需在该过程之前插入此行即可:
If MsgBox("This will erase everything! Are you sure?", vbYesNo) = vbNo Then Exit Sub
如果用户按下否,这将强制它退出。
用下面的代码创build一个新的子,并将其分配给你的button。 将“DeleteProcess”更改为您的代码的名称以进行删除。 这将popup一个确定或取消的框,将打电话给你的删除分,如果你点击确定,而不是如果你点击取消。
Sub AreYouSure() Dim Sure As Integer Sure = MsgBox("Are you sure?", vbOKCancel) If Sure = 1 Then Call DeleteProcess End Sub
杰西
当按下“删除”button时,只需制作一个自定义的用户窗体,然后将继续button链接到实际删除的代码。 使取消button隐藏用户窗体。