Excel中的工作表更改事件中的错误？

Question

Sheet1模块中的简单命令：

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Range("J5:M5").ClearContents
End Sub

导致Excel崩溃。

Answer 1

你将进入无限循环。清除单元格后，重新激活宏，然后清除单元格时，重新激活宏，然后清除单元格.....

在进行更改之前禁用事件并使用

重新启用它们

Application.EnableEvents = False
    Range("J5:M5").ClearContents
Application.EnableEvents = True

您可能还需要考虑将其应用于特定范围。您真的希望在此工作表上进行任何更改以触发您的宏吗？或者您正在寻找特定地区的变化？如果是，请指定区域，并在该区域Intersects（重叠）与更改的单元格时运行宏。