[已解决]求单元格改变触发事件代码

libaest

B1改变，计算C1＝A1+B1
C1改变，计算B1＝C1-A1

最佳答案

月排行榜 / 总排行榜

爱疯

2017-1-5 10:30

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$B$1" Then [C1] = [A1] + [B1]
    If Target.Address = "$C$1" Then [B1] = [C1] - [A1]
    Application.EnableEvents = True
End Sub

跳转到最佳答案楼层

爱疯

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$B$1" Then [C1] = [A1] + [B1]
    If Target.Address = "$C$1" Then [B1] = [C1] - [A1]
    Application.EnableEvents = True
End Sub

libaest

多谢版主！太激动了！我自己试试能不能把计算搞复杂点!