Excel之VBA常用功能应用篇：选中区域单元格的自动求和

今日和大家分享一个VBA的小实例，也是在工作中会用到的。什么例子呢？我们在使用EXCEL时，如果选择了几个单元格会在下面直接读出和是多少，这个功能十分的方便，那么这个功能能否做到随心所欲呢？比如求和，比如计算选择单元格的个数，比如计算所选单元格的负值时多少,比如计算所选单元格的数值大于10的是多少，比如计算所选单元格是数值的为多少，当然，在实际的工作中有很多的情况，比如要在报表中直接知道有多少出勤人数，产量高过平均值的有多少人，我们无法一一的给出代码，就以最常见的选择区域求和来做一个示范吧。

1.实现自动汇总统计选中单元格的Excel VBA代码如下

Sub qiuhe()

'定义变量

Dim rg As Range, vals As Long

'循环选中的单元格

For Each rg In Selection

'判断单元格值是否为数字

If IsNumeric(rg.Value) Then

'如果是数字则汇总赋值给到变量vals

vals = vals + rg.Value

End If

Next

'弹窗显示汇总后的数据vals

MsgBox "选中区域数值合计：" & vals

End Sub

2.插入按钮绑定宏qiuhe并命名为“求和”

3.随机选定区域，点击【求和】按钮后看效果

已经可以自动实现汇总合计了！