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

完成后别忘了将其重新打开