excel - VBA停止单元格计算

Question

对 Excel 中的 VBA 非常陌生，被要求对单元格更改进行一些验证，但遇到了一些困难。

因此，用户需要在单元格中输入货币值，比如说 D16，所以我想我应该挂接到工作表上的 _Change 事件，该事件效果很好。

但是，当条目提交到 D16 时，我需要工作表的其余部分不完成计算，基本上，当输入 500000 时，其他单元格将使用另一个工作表中的值进行更新。

我的代码

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target = Range("D16") Then

       Dim numeric
       numeric = IsNumeric(Target)


       If numeric = False Then

          MsgBox "error"
          Exit Sub

          /// this is where I need to "stop" the calculations from firing

       End If

    End If

End Sub

Answer 1

我希望下面的代码有帮助。您需要将其粘贴到工作表代码部分。

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual

    Dim rng As Range
    Set rng = Range("D16")

    If Not Intersect(Target, rng) Is Nothing And IsNumeric(Target) Then

        If Target.Value >= 500000 Then
            MsgBox "Value is greater than 500000"
        End If


    End If


    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
End Sub