Excel中的公式及其逆

Question

我正在尝试在 Excel 中实现简单的广告功能。 我希望用户在单元格 A1 中输入一个值，在单元格 A2 中，函数应该是“A1 中的值”+1。 这在 Excel 中是一项超级简单的任务，但我确实需要一种不同的行为：当用户在 A2 中输入一个值时，Excel 应该计算“A2 中的值”-1 并将该值放入 A1（前面的逆公式一）。

有没有简单的方法可以做到这一点？

谢谢。

Answer 1

将以下事件宏放置在工作表代码区域中：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim A1 As Range, A2 As Range
    Set A1 = Range("A1")
    Set A2 = Range("A2")

    If Intersect(Union(A1, A2), Target) Is Nothing Then Exit Sub

    Application.EnableEvents = False
        If Not Intersect(A1, Target) Is Nothing Then
            A2.Value = A1.Value + 1
        Else
            A1.Value = A2.Value - 1
        End If
    Application.EnableEvents = True
End Sub

因为是工作表代码，所以很容易安装和自动使用：

1. 右键单击 Excel 窗口底部附近的选项卡名称
2. 选择查看代码 - 这将打开一个 VBE 窗口
3. 粘贴内容并关闭 VBE 窗口

如果您有任何疑虑，请先在试用工作表上进行尝试。

如果您保存工作簿，宏将与它一起保存。 如果您使用的是 2003 年以后的 Excel 版本，则必须保存 文件为 .xlsm 而不是 .xlsx

要删除宏：

1. 如上所示打开 VBE 窗口
2. 清除代码
3. 关闭 VBE 窗口

要了解有关宏的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解有关事件宏（工作表代码）的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/event.htm

必须启用宏才能正常工作！