[已解决]这种提示的代码怎么写

股网千王

我想在一段执行的代码前加一个提示，让用户选择，若选择“确定”后面的代码就继续执行，若选择“取消”，则退出程序。MSGBOX函数可以达到这个目的吗？

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-8-10 14:49

1.    Sub test()
   
2.      If MsgBox("提示内容", vbOKCancel, "删除提示") = vbOK Then
   
3.       
   
4.        '代码
   
5.      Else
   
6.       exit sub
   
7.      End If
   
8.    End Sub

复制代码

跳转到最佳答案楼层

我心飞翔410

1.    Sub test()
   
2.      If MsgBox("提示内容", vbOKCancel, "删除提示") = vbOK Then
   
3.       
   
4.        '代码
   
5.      Else
   
6.       exit sub
   
7.      End If
   
8.    End Sub

复制代码

股网千王

我心飞翔410 发表于 2013-8-10 14:42
能

Sub huizong()Application.ScreenUpdating = False     MsgBox "还没填单", 1Range("a1") = 5Application.ScreenUpdating = TrueEnd Sub

这里的参数不管填的是几，不管选哪个按钮程序都会继续运行完，就是a1=5了。

我心飞翔410

股网千王 发表于 2013-8-10 14:52
Sub huizong()Application.ScreenUpdating = False     MsgBox "还没填单", 1Range("a1") = 5Application ...

   Sub test()
   Application.ScreenUpdating = False
     If MsgBox("单元格输入?", vbOKCancel, "删除提示") = vbOK Then
       Range("a1") = 5
     Else
       Range("a1") = 5
     End If
     Application.ScreenUpdating = True
   End Sub