excel - VBA代码可以在输入后修改单元格内容吗？

Question

我想要在输入输入时将单元格的内容乘以不同单元格的内容的 VBA 代码。

例如，我在单元格 B1 中有 75%。当我在单元格 C1 中输入 25,000 时，我希望 25,00 自动乘以 B1 中的 75%，因此单元格显示 18,750。执行此操作的最简单代码是什么？我不是编码员，但正在使用事件修饰符和范围——它确实工作过一次!

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1:F1")) Is Nothing Then
    Application.EnableEvents = False
    Target.Value = Target.Value * Range("B1").Value
Application.EnableEvents = True
End If
End Sub

我第一次运行它，但是当我使用电子表格时它会连续运行。

Answer 1

应该看起来像这样:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range

    Set rng = Application.Intersect(Target, Me.Range("C1:F1"))'range of interest

    'any cells affected?
    If Not rng Is Nothing Then
        Application.EnableEvents = False
        'loop over affected cells
        For each c in rng.cells
            c.Value = c.Value * Me.Range("B1").Value
        Next c
        Application.EnableEvents = True
    End If

End Sub