qq_45938319 2022-05-22 23:06 采纳率: 80%
浏览 38
已结题

excel写一个简单的宏2个单元格互相同步

问题遇到的现象和发生背景

如A1和A2的数据保持同步,A1发生改变A2同步变化,A2发生改变A1同步变化。

问题相关代码,请勿粘贴截图
运行结果及报错内容
我的解答思路和尝试过的方法
我想要达到的结果
  • 写回答

2条回答 默认 最新

  • 关注
    Private Sub Worksheet_Change(ByVal Target As Range)
        Application.EnableEvents = False
        If Target.Address = "$A$1" Then
            Cells(Target.Row + 1, 1) = Target.Value
        ElseIf Target.Address = "$A$2" Then
            Cells(Target.Row - 1, 1) = Target.Value
        End If
        Application.EnableEvents = True
    End Sub
    
    
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

问题事件

  • 已结题 (查看结题原因) 5月22日
  • 已采纳回答 5月22日
  • 创建了问题 5月22日