Excel VBA，正向和反向计算

Question

我想在我的 Excel 工作表上放置一个 VBA 代码，这样两个单元格既可以作为彼此的输入，也可以作为彼此的输出，具体取决于这两个单元格中哪一个是最后输入的。我该如何实现呢？请帮忙

Answer 1

• 创建新的 Excel 工作簿
• 打开 VBA 编辑器 (Alt-F11)
• 在“项目”窗格上双击“Sheet1” - 其代码窗口将打开
• 输入以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
Static busy As Boolean
If busy Then Exit Sub
busy = True
Select Case Target.Address
    Case "$A$1"
        Range("A2") = "A1=""" & Range("A1").Text & """"
    Case "$A$2"
        Range("A1") = "A2=""" & Range("A1").Text & """"
End Select
busy = False
End Sub

• 关闭 VBA 编辑器
• 在单元格中输入内容（手动、复制粘贴一个单元格、复制粘贴范围、拖动）
• 看看，调查一下