[已解决]请问各位老师可以到达这种效果吗？

14116518

A1   10
A2   20
A3   30
A4   40
A5   50        (想要的结果：A5单元格等于A1+A5的和，A1跟A5更新，A5结果也能更新，简单一点说有没有一种方法可以做到
                    A5=A1+A5?谢谢老师）

最佳答案

月排行榜 / 总排行榜

爱疯

2015-3-20 09:59

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$5" Then
        Application.EnableEvents = False
        Target = Target + [a1]
        Application.EnableEvents = True
    End If
End Sub

1.rar (7.55 KB, 下载次数: 5)

2015-3-20 09:59 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

1）你的问题必须用代码解决吗？
2）A5单元格等于A1+A5的和
A5是存放A1+A5的和，还是A5自己的值？

14116518

爱疯 发表于 2015-3-20 09:38
1）你的问题必须用代码解决吗？
2）A5单元格等于A1+A5的和
A5是存放A1+A5的和，还是A5自己的值？

老师您好，用不用代码都可以，只要能解决就好
假如A1=10，录入A5=50 按一个键，A5自动就等于60了
这样的想法现实吗？

爱疯

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$5" Then
        Application.EnableEvents = False
        Target = Target + [a1]
        Application.EnableEvents = True
    End If
End Sub

1.rar (7.55 KB, 下载次数: 5)

2015-3-20 09:59 上传

点击文件名下载附件

14116518

爱疯 发表于 2015-3-20 09:59
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$5" Then
        Ap ...

谢谢老师，神了