阅读是最好的习惯

自动在最后一行添加合计,听说没几个人会...

自动在最后一行添加合计,听说没几个人会...

如果在我每次输入数值后,在最后一行显示目前的合计?
这个问题其实是我当初学习Excel时遇到的难题,很长时间都没能解决,我想也有跟我一样遇到类似的问题吧!
这个表格,未来我们还要不断的录入内容,每次都要录入后重新合计太麻烦了能不能每次录入后自动添加合计?
好吧!我们这就来使用Excel解决这个问题!
效果演示
效果说明(附件下载-文末):
1、在表格的最后一行添加数据,会自动在下一行写入目前的合计数据
2、表格中数据有更新,增加、修改和删除都会自动更新合计!
如何实现

这里主要是借助条件触发,这个一般我们叫做事件,有什么情况触发了这件事情,案例中我们使用的是Change事件,也就是单元格的值改变,就会触发,具体触发什么,我们可以自己写代码来实现!
代码截图:
如果你已经看到这里,也觉得“duck不必”,那么可以跳过源码看我们的更好方案了!
VBA源码(复制粘贴到对应的工作表中):


'作者:Excel办公实战-小易'功能:自动写入合计'------------------------------------------------------------------Private Sub Worksheet_Change(ByVal Target As Range)
Dim maxRow As Long '避免事件反复触发! Application.EnableEvents = False '小于第三列和大于第2行触发事件(根据实际情况修改) If Target.Column < 3 And Target.Row > 1 Then '获取有内容的最大行(最后一行) maxRow = Cells(Rows.Count, 1).End(3).Row If Cells(maxRow, 1) <> "合计" Then '没有合计,写入合计 Cells(maxRow + 1, 1) = "合计" Cells(maxRow + 1, 2) = _ Application.Sum(Range("B2").Resize(maxRow, 1)) Else '合计存在直接在原位置更新 Cells(maxRow, 2) = _ Application.Sum(Range("B2").Resize(maxRow - 2, 1)) End If '设置格式 With Range("A1").CurrentRegion .Borders.LineStyle = 1 .Font.Bold = False End With '重新获取有内容的最大行 maxRow = Cells(Rows.Count, 1).End(3).Row '设置字体加粗 Cells(maxRow, 1).Resize(1, 2).Font.Bold = True End If Application.EnableEvents = TrueEnd Sub



以上只是解决了刚学那会遇到的难题,其实这里面有一个我们思维定式的问题,认为合计只能在最下面,从来没有想过难道上面不行吗?还是不香?
放到上面,下面怎么录入都不受影响,而且我们可以把求和的范围调的大一点,这样新录入的也会自动求和进来,完全实现了我们想要的录入+自动求和

小结:思路决定出路,很多看似“难题”,其实只是看问题的角度问题而已!

赞(0) 打赏
未经允许不得转载:微精选 » 自动在最后一行添加合计,听说没几个人会...
分享到: 更多 (0)

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏