允许两个单元格相互依赖

Question

我正在尝试编写一个公式，该公式允许我计算具有两个变量的公式。我希望能够输入变量 A 并让它计算 B，或者输入变量 B 并让它计算 A。

计算我的变量的公式：

• 价值 = NOI / CAP

• CAP = NOI / 价值

• 值在单元格 A1 中

• NOI 在单元格 A2 中
• CAP 在单元格 A3 中

NOI 是已知值。我想为 Value 和 CAP 设置单独的单元格，并且能够将数据输入到任一单元格中，并根据我的数据条目计算另一个单元格。

我打算尝试一个IF带有的函数ISBLANK，但我不确定如何做到这一点不会覆盖公式。

Answer 1

您可以有一个公式，也可以输入一个值，但不能两者兼而有之。解决方法是使用Worksheet_change事件来监视两个单元格中的每一个，并根据任何输入的值设置另一个单元格。

这将进入工作表代码模块：

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Goto haveError:

    If Target.Address = "$A$2" Then
        Application.EnableEvents = False
        Me.Range("A3").Value = 'set value in A3
        Application.EnableEvents = True
    End If
    If Target.Address = "$A$3" Then
        Application.EnableEvents = False
        Me.Range("A2").Value = 'set value in A3
        Application.EnableEvents = True
    End If
    Exit sub

haveError:
    'make sure events are re-enabled if an error occurs
    Application.EnableEvents = True
End Sub