excel - excel vba运行时错误7-内存不足

Question

我在工作表中有两个宏。第一个检查某些单元格是否已寻址并具有某些值，然后运行另一个宏。以下代码用于此目的：

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("K10:K1000")) Is Nothing And Target.Value = "Trapezoidal       roof 0.6mm and above" Or Target.Value = "LightBox ballasted" Then

Application.ScreenUpdating = False

Call PPAPricePerkWp

End If

End Sub

这本身就可以正常工作。

第二个宏在单击按钮时运行。此宏将单元格/行复制并粘贴到电子表格的其他部分。

当宏运行时，我得到了错误Runtime error 7 - out of memory，它在上面的代码中中断。

是否有另一种方法可以检查某个列中的单元格是否已寻址并具有某些值并且不会导致上述错误？

Answer 1

您可能希望在调用子例程之前禁用事件，以便每次更改单元格时都不会触发 Worksheet_Change

Application.EnableEvents = False

完成后不要忘记重新打开它