工具----选项----重新计算---勾选“手动计算”-----确定。
接收msgbox的返回值，根据返回值来决定程序的运行。
示例代码
Sub demo11()
Dim msg As VbMsgBoxResult
msg = MsgBox("选择是:在sheet1前新建一个工作表." & Chr(13) & "选择否:退出", vbYesNo, "操作选项")
If msg = vbYes Then
Worksheets.Add
Else
End
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024