excel表格如何实现数值互换算

来源：百度知道 编辑：UC知道 时间：2024/06/15 18:36:22
比方说A1,和A2两个单元格满足这样的关系，a1=a2 * 2,并实现互换算，即我在A2里填写1时，A1会显示2，然后我想在A1里输入4，然后A2显示2，输入8，显示4。
如果用一公式只能实现单向换算，如何实现双向换算呢？具体如何操作？

1。找到VBA界面

Office2007要在“Excel选项”“常用”中设置“开发工具”；对之前的版本，右击工具栏有。

2。在弹出的界面中，双击Sheet1，输入以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Column = 1 And Target.Cells.Row = 1 Then
Sheet1.Cells.Item(1, 2) = Sheet1.Cells.Item(1, 1) / 2
ElseIf Target.Cells.Column = 2 And Target.Cells.Row = 1 Then
Sheet1.Cells.Item(1, 1) = Sheet1.Cells.Item(1, 2) * 2
End If
End Sub

3。关闭代码界面