自定义函数取值范围如何设定

我现在在excel中用加载宏建立一个自己用的函数,不过我碰到一个问题,我要输入一个范围的参数,但不知道怎么样赋给函数。

function aa(color as integer,arg1 as string) as double
…………
for each c in range(arg1).cells
…………

next
…………

end function

我现在要把选择的范围如A1:A5、A1:E1、A1:E5这三中情况中的一种赋值给arg1,我用string好像不行,不知道该如何设置该参数的值
[319 byte] By [1satellite1-玻璃球] at [2008-1-9]
# 1
在range前面加上表格定语,如:
for each c in sheet1.range(arg1)
# 2
呵呵 终于通过搜索引擎搞顶了

不过还是要谢谢ChinaOBS

我找到的方法是这样
function aa(color as integer,arg1 as range) as double
…………
'for each c in range(arg1).cells 这里不能在用range了
for each c in arg1.cells

…………

next
…………

end function
1satellite1-玻璃球 at 2007-10-19 > top of Msdn China Tech,其他开发语言,Office开发/VBA...