Application.SumIf和WorksheetFunction.SumIf之间的区别

vbamaster

今天学习兰版80集中的23集：数组与函数，其中有一段示例代码如下：
arr = Application.SumIf(Range("a2:a10000"), Array("B", "C", "G", "R"), Range("B2:B10000")) ----------------------------------- 写法1

我练习时自己写的代码如下：
arr = WorksheetFunction.SumIf(Range("a2:a10000"), Array("B", "C", "G", "R"), Range("B2:B10000"))-------------------------写法2

arr = Application.WorksheetFunction.SumIf(Range("a2:a10000"), Array("B", "C", "G", "R"), Range("B2:B10000"))-----------写法3

这3种写法应该是等价的，为什么只有写法1可以正确运行？请问这是什么原因？

以下是原文件截图：


答案在22楼

dsjohn

第二句缺少 Application，应该是 arr = Application.WorksheetFunction.SumIf(Range("a2:a10000"), Array("B", "C", "G", "R"), Range("B2:B10000"))

zjcat35

application 不能省略
worksheetfunction 可以省略
你自己代码跟校长的一对比,马上就能看出问题出在哪了...
而且这问题在VBA80集里的第6集里有讲

vbamaster

dsjohn 发表于 2012-4-28 23:33
第二句缺少 Application，应该是 arr = Application.WorksheetFunction.SumIf(Range("a2:a10000"), Array(" ...

你没有在代码窗口中运行吧？
就算这样写也是运行出错的。

vbamaster

zjcat35 发表于 2012-4-28 23:46
application 不能省略
worksheetfunction 可以省略
你自己代码跟校长的一对比,马上就能看出问题出在哪了. ...

既然worksheetfunction 可以省略，那么就是说不省略的话也可以正常运行，但实际情况却恰恰相反。
际实上application是可以省略的，代码测试一下就都清楚了。
我当然知道和校长代码的不同在哪里，我是说想知道这个运行不了的原因。

vbamaster

5201314 发表于 2012-4-29 09:03
这里sumif的第二个参数，应该是讨论的核心
Array("B", "C", "G", "R")
假如你换成

嗯，是的，将代码改成如下也是运行出错：
arr = WorksheetFunction.SumIf(Range("a2:a10000"), WorksheetFunction.Transpose(Array("B", "C", "G", "R")), Range("B2:B10000"))
等答案。

vbamaster

{:051:}期待答案中。。。自己顶一下吧。。。

那么的帅

vbamaster 发表于 2012-4-29 19:18
期待答案中。。。自己顶一下吧。。。

arr = Application.SumIf(Range("a2:a7"), Array("B", "C", "G", "R"), Range("B2:B7"))

vbamaster

那么的帅 发表于 2012-4-29 19:32
arr = Application.SumIf(Range("a2:a7"), Array("B", "C", "G", "R"), Range("B2:B7"))

arr = Application.WorksheetFunction.SumIf(Range("a2:a10000"), Array("B", "C", "G", "R"), Range("B2:B10000"))

为什么这么写就运行错误呢？

那么的帅

vbamaster 发表于 2012-4-29 19:41
arr = Application.WorksheetFunction.SumIf(Range("a2:a10000"), Array("B", "C", "G", "R"), Range("B2 ...

因为SUMIF 第2个参数使用了常量数组，导致出错
arr1 = Application.WorksheetFunction.SumIf(Range("a2:a10000"), "C", Range("B2:B10000"))
就没有问题