change中出现阶段错误而无法再次激活怎么办？

公x鸡

使用Application.EnableEvents = False，而程式沒有正常結束(例如出现执行阶段错误，如编辑1ex或编辑2ex出现错误，按了重新设置后)所造成无法再次激活，能不能通过修改下面的

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3. Dim rng As Range
   
4. Set rng = Target
   
5. If Intersect(rng, Worksheets(2).Range("a1")) Is Nothing Then
   
6. Application.EnableEvents = False '禁止激发事件
   
7. 
   
8. Call 编辑1ex
   
9. Call 编辑2ex
   
10. 
    
11.   Application.EnableEvents = True '操作完成后重新开启事件激发
    
12. End If
    
13. 
    
14. End Sub

复制代码

liucf

单独运行一次 Application.EnableEvents = True 即可

公x鸡

liucf 发表于 2018-7-11 09:15
单独运行一次 Application.EnableEvents = True 即可

你好，谢谢，请问有没有办法，如果出现错误，那么自动纠正重新进入下一次

liucf

公x鸡 发表于 2018-7-11 12:12
你好，谢谢，请问有没有办法，如果出现错误，那么自动纠正重新进入下一次

你的意思是不是 On Error Resume Next
但是Application.EnableEvents = True 却不能"重新进入下一次"

公x鸡

liucf 发表于 2018-7-11 17:25
你的意思是不是 On Error Resume Next
但是Application.EnableEvents = True 却不能"重新进入下一次"

你好，我意思是报错后，如果不再执行一次Application.EnableEvents = True，会卡在那里停止触发change；那我的理想状态是报错了，不是会弹出那个调试/结束/取消的窗口吗？我直接点掉结束，然后不另外执行Application.EnableEvents = True，这个change会自动回复初始状态，重新等待执行下一次触发（因为change里触发事件基本覆盖了绝大部分情况，但是特殊情况总会有一些出现不符而报错，我可以等后面所有东西都弄好了再回到之前的地方手动修改）

liucf

公x鸡 发表于 2018-7-11 23:01
你好，我意思是报错后，如果不再执行一次Application.EnableEvents = True，会卡在那里停止触发change； ...

好像不行,因为如果你不执行Application.EnableEvents = True,那么它一直就是False,也就是不能触发事件,反正本人是不知道有执行Application.EnableEvents = True外,还有其他自动使其为True的方法
有的时候,在程序靠前面部分加上一句 On Error Goto ErrH
在Application.EnableEvents = True前面加上 ErrH:
ErrH:  Application.EnableEvents = True
可能能解决部分问题

公x鸡

liucf 发表于 2018-7-12 09:20
好像不行,因为如果你不执行Application.EnableEvents = True,那么它一直就是False,也就是不能触发事件,反 ...

你好，谢谢，可以用，收藏了，达到另外一种效果，但是不是我理想的效果，这样绕过了报错，不知道问题出在哪，也算是另外一种收获，谢谢了

any1009

现学现卖：

sub test()
On Error GoTo Err_Handle
     你可能会报错的程序
Exit Sub
Err_Handle:
     你的其他程序或没有
endsub

这样是报错了，就跳转到其他程序，如果没有就结束。

mythqiu

这个问题问得好,解决了我一直困惑的问题.
就是程序在调试时出错,调试好后,只能重新打开再看调试效果.