微信公众号:yhjbox(永恒君的百宝箱),获取最新文章、资源。

Excel VBA实例(43) – 实现单元格数据自动累加

Excel VBA 实例 永恒君 1931℃ 0评论

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

今天来分享一个关于 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) – 实现单元格数据自动累加

喜欢 (3)
发表我的评论
取消评论
表情