excel - 选择一个单元格会覆盖另一个单元格中的文本

Question

我想选择一个单元格并更改另一个单元格中的文本。

例如：

当cell.A1被选中时cell.B1的文本是“hello”
当cell.A2被选中时cell.B1的文本是“goodbye”

这可以通过 Visual Basic for Applications in Excel 实现吗？

谢谢！

标签： excelvba

Answer 1

将其放在您的工作表对象代码中

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        Me.Range("B1").Value2 = "hello"
    ElseIf Not Intersect(Target, Me.Range("A2")) Is Nothing Then
        Me.Range("B1").Value2 = "goodbye"
    End If
End Sub