vba如何终止执行

xiaogui03

sub A（）中调用的函数function B()
function B()内出现错误，捕获之后我用msgbox()提示，想在确认后停止整个sub A()的运行，请问各位高人该如何实现？

sub A()
……
a=function B()
……
end sub 

function B()
……
on error goto myerror
……
myerror:
 msgbox("输入错误，请检查")
???????
end function

“???????”部分不知如何实现

cctv2cctv

sub A（）中调用的函数function B()
function B()内出现错误，捕获之后我用msgbox()提示，想在确认后停止整个sub A()的运行，请问各位高人该如何实现？

sub A()
……
a=function B()
s:if m=0 then exit sub;end sub 

function B()
……
on error goto myerror
……
myerror:
 m=msgbox("输入错误，请检查")
if m=0; 即点击了OK

goto s
end function

或者function B()有返回值的话

sub A()

……
a=function B()
if a=0 then exit sub

function B()
……
on error goto myerror
……
myerror:
 m=msgbox("输入错误，请检查")
end function;让funciton B()返回0

大概就是这么个意思代码,自己再改改吧

xiaogui03

好方法！谢过啦！

也就是说ＶＢＡ里面是没有停止运行的语句啦？不知是不是这样？