excel - VBA - 乘列

Question

我正在运行一个小型 VBA 来循环遍历一系列行(27 - 52)，以返回 D X 列 E 到 F 列的简单乘法。

我下面的代码使 Excel 崩溃。谁能指出我哪里出错了。我显然不是专家!

Private Sub Worksheet_Change(ByVal Target As Range)

For i = 27 To 52

  Cells(i, 6) = Cells(i, 4) * Cells(i, 5)

Next i

End Sub

谢谢

Answer 1

由于您使用的更改事件，Excel 将在您的代码创建无限循环时崩溃。每次您的代码将两个给定单元格相乘时，它都会被识别为更改事件，因此您的代码将再次被触发，一次又一次......

您可以使用 Michal 发布的调整后的代码，也可以调整原始代码:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    For i = 27 To 52
        Cells(i, 6) = Cells(i, 4) * Cells(i, 5)
    Next i
    Application.EnableEvents = True
End Sub

希望能帮助到你!