如何解决Worksheet_Change事件导致的无限循环

[stevenjin]

Worksheet_Change事件导致无限循环。

在A列单元格输入内容后，在对应的那一行C列单元格写入当前时间。
接下来一句代码，也是在对应的那一行，但是在B列单元格写入数值。
如果不做最后的操作，也就是不在B列写入数值。那光标会进入到下一行。程序正常。
在加了最后这个操作之后，程序就死掉了。
分析可能是对单元格赋值时（最后那步操作），又触发了Worksheet_Change事件，结果导致无限循环。

请问有没有什么设置可以暂时屏蔽某事件的触发？




还请大家多多指教，谢谢啦。

[dbcontrols]

无代码无真相

[stevenjin]

因为代码放在worksheets的change事件中，代码中又会对worksheets的内容进行了改变，又会触发change事件...如此生生不息？

[ZenRoi]

设置固定的触发区域，如：
If Not Intersect(Target,[A1:B5]) Is Nothing Then
……
End If

[dbcontrols]

change事件中判断change事件是怎么引起的
是你代码引起的就跳出去

[Quote=引用 2 楼 stevenjin 的回复:]
因为代码放在worksheets的change事件中，代码中又会对worksheets的内容进行了改变，又会触发change事件...如此生生不息？
[/Quote]

[stevenjin]

假设在A列输入内容后，回车换行。触发了事件：
Private sub Worksheet_Change(ByVal Target As Range)

//"N1"为当前行
i=Range("N1").value+2 If Range("N1").value<>"" then
cels(i-1,3)=Format(Now(),"MM-DD-H:MM.SS")
Cel(i-1,2)=9 //加上这个代码后，EXCEL死掉
End if
End sub

[dbcontrols]

Cels，少 了 个 s

[Quote=引用 5 楼 stevenjin 的回复:]
假设在A列输入内容后，回车换行。触发了事件：
Private sub Worksheet_Change(ByVal Target As Range)

//"N1"为当前行
i=Range("N1").value+2 If Range("N1").value<>"" then
cels(i-1,3)=Format(Now(),"MM-DD-H:MM.SS")
Cel(i-1……
[/Quote]

[stevenjin]

Application.EnableEvents = True可以禁止触发吧?

[dbcontrols]

Cels，少 了 个 s

False才是禁止吧？

[stevenjin]

是的。测试时，在N1单元格赋一个初始值。
Private Sub Worksheet_Change(ByVal Target As Range)

i = Range("N1").Value + 2
If Range("N1").Value <> "" Then
Cells(i - 1, 3) = Format(Now(), "MM-DD-H:MM.SS")
Cells(i - 1, 2) = 9//加上这个代码后会死掉
End If
End Sub

[hjxxcjh]

不想触发change事件运行结果,

Worksheet_Change事件导致无限循环。
Worksheet_Change事件中，只要有改写表中数值的操作就会再次他触发change事件，从而导致VBA程序陷入无限循环，死掉了。
请问有没有什么设置可以暂时屏蔽某事件的触发？

运行程序段之前，先作如下设置：
Application.EnableEvents = False '禁止运行过程中，改写结果时，再次触发change事件


程序段之后，再按如下设置，让VBA恢复捕捉事件的机制。

Application.EnableEvents = True

[kangmin04c48]

正遇到这个问题，回复看一下