用VBA实现Excel函数03:SUMIF
时间:2022-07-22
本文章向大家介绍用VBA实现Excel函数03:SUMIF,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
1、函数的理解:
SUMIF,条件求和函数,是一个常用的数据统计公式。SUMIF函数原理可以分步理解:
SUMIF(range, criteria, [sum_range])
- 先是用第2个参数criteria与第1个参数range里的数据逐一做对比,返回FALSE或者TRUE
- 根据返回的FALSE或者TRUE,再用IF函数提取第3个参数sum_range的数字
- 最后再用SUM函数汇总
这就是1个标准的SUMIF函数使用方法。
2、代码实现
有了上面的理解,完成一个标准的SUMIF函数功能应该是比较简单的:
Sub TestMySumIf()
Dim rangeValus() As Variant
Dim sum_range() As Variant
rangeValus = Range("B2:B16").Value
sum_range = Range("C2:c16").Value
Debug.Print MySumIf(rangeValus, "赵四", sum_range)
End Sub
'输出:6192
Function MySumIf(rangeValus As Variant, criteria As Variant, sum_range As Variant) As Double
Dim i As Long
Dim dSum As Long
For i = LBound(rangeValus, 1) To UBound(rangeValus, 1)
If rangeValus(i, 1) = criteria Then
dSum = dSum + VBA.Val(sum_range(i, 1))
End If
Next
MySumIf = dSum
End Function
3、代码完善
SUMIF函数的参数提示上可以看出,第3个参数是在“[]”内的,首先我们也完成这个可省略的功能,省略的情况下,其实第1和第3参数相当于是同一个了,所以我们只要知道第3个参数sum_range没有传递的情况下,直接让3个参数sum_range等于第1个参数range就可以了:
Sub TestMySumIf()
Dim rangeValus() As Variant
Dim sum_range() As Variant
rangeValus = Range("C2:C16").Value
Debug.Print MySumIf(rangeValus, 6192)
End Sub
Function MySumIf(rangeValus As Variant, criteria As Variant, Optional sum_range As Variant) As Double
If VBA.IsMissing(sum_range) Then
sum_range = rangeValus
End If
Dim i As Long
Dim dSum As Long
For i = LBound(rangeValus, 1) To UBound(rangeValus, 1)
If rangeValus(i, 1) = criteria Then
dSum = dSum + VBA.Val(sum_range(i, 1))
End If
Next
MySumIf = dSum
End Function
IsMissing函数就是用来判断这种可选参数在调用时,是否提供了这个参数的传递。
SUMIF函数的第2个参数criteria输入形式是非常多样的,除了前面看到的输入的是条件本身之外,它还可以输入比较符:
> 大于
< 小于
>= 大于或等于
<= 小于或等于
要实现这个功能,我们就需要用到VBA里的字符串操作了:
Sub TestMySumIf()
Dim rangeValus() As Variant
Dim sum_range() As Variant
rangeValus = Range("C2:C16").Value
Debug.Print MySumIf(rangeValus, ">6666")
End Sub
'输出:607857
Function MySumIf(rangeValus As Variant, criteria As Variant, Optional sum_range As Variant) As Double
If VBA.IsMissing(sum_range) Then
sum_range = rangeValus
End If
'分离比较符和条件
Dim strcp As String
strcp = VBA.CStr(criteria)
If VBA.Left(strcp, 2) = "<=" Then
strcp = "<="
ElseIf VBA.Left(strcp, 2) = ">=" Then
strcp = ">="
ElseIf VBA.Left(strcp, 1) = "<" Then
strcp = "<"
ElseIf VBA.Left(strcp, 1) = ">" Then
strcp = ">"
Else
strcp = ""
End If
criteria = VBA.Mid(criteria, VBA.Len(strcp) + 1)
'如果数字前面带了比较符,criteria传入的是文本,而数字会小于文本的数字
If VBA.IsNumeric(criteria) Then
criteria = VBA.Val(criteria)
End If
Dim i As Long
Dim dSum As Long
For i = LBound(rangeValus, 1) To UBound(rangeValus, 1)
'根据比较符来使用具体比较方法
Select Case strcp
Case ">="
If rangeValus(i, 1) >= criteria Then
dSum = dSum + VBA.Val(sum_range(i, 1))
End If
Case "<="
If rangeValus(i, 1) <= criteria Then
dSum = dSum + VBA.Val(sum_range(i, 1))
End If
Case "<"
If rangeValus(i, 1) < criteria Then
dSum = dSum + VBA.Val(sum_range(i, 1))
End If
Case ">"
If rangeValus(i, 1) > criteria Then
dSum = dSum + VBA.Val(sum_range(i, 1))
End If
Case Else
If rangeValus(i, 1) = criteria Then
dSum = dSum + VBA.Val(sum_range(i, 1))
End If
End Select
Next
MySumIf = dSum
End Function
Left,Mid,Len都是String类型的基础操作函数,在VBA中用的会比较多,用法比较简单,具体用法可以查看官方文档。
4、小结
实现1个简单的SUMIF函数,还非常的不完善,主要学习:
- 可选参数是否传递的判断IsMissing函数。
- 字符串的处理函数。
- WeApp-Workflow: 基于Gulp 的微信小程序前端开发工作流
- 如何安装Windows Phone SDK 7.1 Release Candidate (RC)
- 微信与支付宝回应央行新规:认同央行规范!
- Gulp 工作流中Sass 增量编译功能的探索
- Sass与Compass——回顾
- 苹果就“降速门”致歉;央行批扫码支付不正当竞争;王健林旗下公司遭集体裁员
- 姚期智教授:量子计算是千亿万亿级别的产业,或成为科技创新的引擎
- Powershell中禁止执行脚本解决办法
- 使用AsyncTask异步更新UI界面及原理分析
- 商家为何要做小程序?
- Android中关于dip和px以及转换的总结
- Python介绍
- python案例-用户登录
- 推荐个找代码示例的VS 插件 All-In-One Code Framework Sample Browser
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法