自定义函数多单元格处理举例

问：很多自定义函数都是处理单变量的，自定义函数能否处理“（AS RANGE）AS INTERGER”的函数，比如说，处理某变量的平方，我想处理多变量的平方。

答：能。参数使用range而函数值为integer是可以的，思路大致见下：

用For each next语句

Dim rg as range

Dim iv as integer

For each rg in 参数区域

Iv = iv + rg*rg

Next

问：谢谢指导，按你的思路处理如下，但是未见效果。

Public Function A2(rng As Range) As Integer
Dim rng As Range
Dim ivalue As Integer
For Each rng In rng.Range
ivalue = ivalue + rng.value ^ 2
Next
x2 = ivalue
End Function

答：你的这段代码有如下问题

1.函数名不能使用单元格位址的形式，否则在工作表中引用函数产生歧义，excel以为你引用单元格；
2.参数名与内部变量名冲突，rng本来是定义参数，在过程中不应出现重名变量；
3.rng已被定义为range对象变量，实际意义是一range引用，不能再用rng.Range引用。

下面是规范的代码

Public Function PF(rng As Range) As Integer
Dim rg As Range
Dim ivalue As Integer
For Each rg In rng
ivalue = ivalue + rg.value ^ 2
Next
PF = ivalue
End Function

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/24345566/viewspace-1049929/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/24345566/viewspace-1049929/