用个IF语句,点终止后用 exit sub
还可以用select case语句 ,例如:
Select Case MsgBox("是否继续?", vbYesNoCancel)
Case vbYes
‘……点yes后执行语句
Case vbNo
Exit Sub
End Select
在写数据前可以加个if判断textbox中的值是否为空。如果不是空,则把这条数据写入。否则endif。这个不是很简单吗
直接用错误跳出就好了
on error goto Err
在最后写 Err:
这样错误就不运行了
或者前面不用on error goto Err;加入判段 if TextBox.text="" then goto Err 也能跳出错误