☰

如何让单元格仅计算一次

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 worksheet-function vba
如何让单元格仅计算一次

我有一个单元格N29根据流数据计算一些值。一旦单元格中的条件满足Q29，计算或最终值应传递给单元格O29，而不再在任何一个单元格中计算。

例如：如果单元格Q29=是那么O29应该等于最后一次计算的N29（并且不再计算）并且N29应该设置为0并且不再计算。

答案1

在工作表代码区域中包含以下事件宏：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Q29 As Range
    Set Q29 = Range("Q29")
    If Intersect(Target, Q29) Is Nothing Then Exit Sub
    If Q29 <> "y" Then Exit Sub
    Application.EnableEvents = False
        Range("O29").Value = Range("N29").Value
        Range("N29").Value = 0
    Application.EnableEvents = True
End Sub

必须启用宏才能使其工作！

相关内容