[已解决]自定义函数不能返回正常结果

蝶·舞

我用自定义函数，自动对A列的某一编码进行B列数据的汇总（其实就是SUMIF函数），我写了如下代码

1. Function qh(m)
   
2. Application.Volatile
   
3. arr = Sheet1.Range("A1").CurrentRegion
   
4. For r = 1 To UBound(arr)
   
5. If arr(r, 1) = m Then qh = qh + arr(r, 2)
   
6. Next
   
7. End Function

复制代码

然后用这个自定义函数写公式qh(1001)返回错误结果，但我用下面这段代码(非自定义函数)，却能出结果

1. Sub test()
   
2. arr = Sheet1.Range("A1").CurrentRegion
   
3. For r = 1 To UBound(arr)
   
4. If arr(r, 1) = Sheet1.[e1] Then q = q + arr(r, 2)
   
5. Next
   
6. MsgBox q
   
7. End Sub
   

复制代码

问一下，自定义函数中的代码何处出错了。
示例.zip (6.52 KB, 下载次数: 16)

2014-6-3 15:35 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2014-6-3 15:57

这个问题以前曾困扰我很长时间，最后发现在自定义函数里不能用currentregion之类的。代码小改一下即可：

1. Function qh(m)
   
2.     Application.Volatile
   
3.     arr = Sheet1.Range("A1:b4")
   
4.     For r = 1 To UBound(arr)
   
5.         If arr(r, 1) = m Then qh = qh + arr(r, 2)
   
6.     Next
   
7. End Function

复制代码

跳转到最佳答案楼层

云影

蝶·舞

为什么不能直接将区域先赋值到ARR数组？

云影

1. Function qh(m)
   
2. Application.Volatile
   
3. arr = Sheet1.Range("A1").CurrentRegion
   
4. For r = 1 To UBound(arr)
   
5. If arr(r, 1) = m Then qh = qh + arr(r, 2)
   
6. Next
   
7. End Function
   
8. Sub cc()
   
9.     [h1] = qh([e1])
   
10. End Sub
    

复制代码

老师您的函数这样用也可以得到正确结果
我是刚刚学习VBA 也不知道为什么{:011:}

grf1973

这个问题以前曾困扰我很长时间，最后发现在自定义函数里不能用currentregion之类的。代码小改一下即可：

1. Function qh(m)
   
2.     Application.Volatile
   
3.     arr = Sheet1.Range("A1:b4")
   
4.     For r = 1 To UBound(arr)
   
5.         If arr(r, 1) = m Then qh = qh + arr(r, 2)
   
6.     Next
   
7. End Function

复制代码

爱疯

Function f(x)
    Dim arr
    arr = Range("b3").CurrentRegion
    Stop
End Function

Sub demo()
    Call f(6)    '只是随便输入1个数字
End Sub

在自定义函数中使用Range.CurrentRegion属性.rar (7.99 KB, 下载次数: 12)

2014-6-3 17:26 上传

点击文件名下载附件




已简化原题，以下只是我的猜想。此现象可看作两种情况：

情况1：该属性所在程序是主程序，主程序是自定义函数
因为Range.CurrentRegion属性返回range对象，而当range对象赋值给变量时，可能返回数组，也可能返回数值。
又因为自定义函数无法直接返回数组。
所以，此时系统考虑：哎呀，自定义函数在使用 Range.CurrentRegion属性，难倒调用者希望返回数组？可我做不到呀！也就说，有发生错误的可能。好了，不管三七二十一，我让 Range.CurrentRegion属性 赋给变量时，禁止得到数组，这就能确保绝对安全了。就好像小孩子去触碰危险物品，有发生危险的可能，所以现实中就制定了相应的措施。

情况2：该属性所在程序是子程序，主程序是过程
系统认为调用者是在过程中使用 Range.CurrentRegion属性， 肯定没事（其实，还是在自定义函数中使用），
所以取消了以上机制，（允许有可能得到数组）