[VBA]如何使On Error Resume Next 语句失效？
<P>如题</P><P>程序中 某处增加了 On Error Resume Next 语句 </P>
<P>那么如果想在接下来的某处取消这个功能 如何操作？</P>
<P>假设程序只有一个Sub 而且不能分割成几个Sub</P>
<P>这个想法可能BT了一点 还是举个例子说明吧</P>
<P>程序开始</P>
<P>Sub</P>
<P>…………</P>
<P>…………</P>
<P>处理第一批事情</P>
<P>…………</P>
<P>…………</P>
<P>处理第二批事情（这里很容易产生一个错误 所以写了On Error语句 专门来处理这个错误）</P>
<P>On Error Resume Next</P>
<P>…………</P>
<P>…………</P>
<P>处理第三批事情--->这里还不知道会产生什么错误，所以需要发生错误的时候，程序停下来，</P>
<P>这样才能更好的修改完善程序.那自然要让刚才写的 On Error语句失效 才能方便检查出接下来</P>
<P>将发生的错误。那么如何让On Error 语句失效？ On Error Then Stop????狂想中。。。 </P>
<P>…………</P>
<P>…………</P>
<P>End Sub</P> <P>好像可以用 </P>
<P>If Err Then </P>
<P>但是没试过 </P> On Error goto 0 <P>简单</P>
<P>if err then </P>
<P> on error goto 0 </P>
<P> 你的处理方法</P>
<P>end if</P>
页:
[1]