Question

在单元格A1值为5，B1值为10，C1条件为if（A1> B1，TRUE，FALSE）

我的要求是，如果C1值为False，它应保持不变，即使我将A1值更改为15.我真的很感激有人可以帮我解决这个问题。

Answer 1

首先，将Cell C1中的公式更改为：

=IF(OR(A1="",B1=""),"",A1>B1)

然后，右键单击工作表中的选项卡，选择＆＃34;查看代码＆＃34;，然后输入以下内容：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim act As Range

    Set KeyCells = Range("A1:B1")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

    If Range("C1").Value = False Then

    Set act = ActiveCell

    Range("C1").Copy
    Range("C1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D1").ClearContents

    act.Select

    End If

    End If

End Sub

excel需要解决方案：即使值改变后条件也应保持不变

1 个答案: