大家好，我是爱分享的永恒君!

今天来分享一个关于 VBA 的自动实现累加数据的小实例。

问题需求

前几天有位朋友问，如何可以实现excel表格自动把变化数累加起来。

比如下图：

每天都会输入C6单元格输入今日入库的数量，希望可以实现C7单元格自动实现累加，如下图：

需求分析

其实碰到这个问题，永恒君的第一反应是，不太建议这么直接记录，不太利于后续的查找和核对。

更建议用如下的方式，将每日的数据按日期分别输入的不同的单元格里，然后使用sum进行求和。

当然，如果你有某些特殊的情况，一定要按照上面这样的记录的话，那么这个需求也是可以解决的。

用VBA写个change事件就可以了，以下是一个简单的代码实例：

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address(0, 0) = "C6" Then
    [C7] = [C6] + [C7]
    Range("C6").Select
End If
Application.EnableEvents = True
End Sub

借助上面这个代码，直接复制到 excel 的VBE里面，就可以实现开头的效果了。

如果你想直接使用excel文件的话，在公众号后台回复 “累加” 即可获取，尽快哦~

写在最后

公众号运营至今，离不开小伙伴们的支持。

为了给大家提供一个相互交流的平台，特建立了一个交流群，交流学习摸鱼为主，不定时会分享一些效率提升的工具和学习资源，有一群有趣有料的小伙伴在等你哦！

进群方式：公众号后台回复888，按提示操作即可进群。

转载请注明：永恒君的百宝箱 » Excel VBA实例（43） – 实现单元格数据自动累加