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

完成后别忘了把它重新打开

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

1 个答案: