UC知道VBA中如何设置60个参数呢！
来源：百度知道 编辑：UC知道 时间：2024/06/02 15:35:01
VBA中如何设置60个参数呢！我要编一个函数，需要调用从一行中（不固定的、未知的一行）连续60个单元格的数据（整数），请问怎么设置这60个参数？
要全部设置吗？Public Function a(ByVal b1 As integer,ByVal b2 As integer,.....ByVal b60 As integer)
有没有简便方法？
可以Public Function a(ByVal b（60） As integer）吗？（刚开始学，急用。各位老师不要见笑啊）
一共有很多行，每一行都要对60个单元格进行计算（复杂的比较运算），想用函数调用这60个单元格，所以行号是不固定的，这样该怎么设置参数呢？
要全部设置吗？Public Function a(ByVal b1 As integer,ByVal b2 As integer,.....ByVal b60 As integer)
有没有简便方法？
可以Public Function a(ByVal b（60） As integer）吗？（刚开始学，急用。各位老师不要见笑啊）
一共有很多行，每一行都要对60个单元格进行计算（复杂的比较运算），想用函数调用这60个单元格，所以行号是不固定的，这样该怎么设置参数呢？
你的这个想法..用不着60个参数的自定义函数
Function Range60(Rng As Range) As Range
Set Rng = Rng.Cells(1)
Set Range60 = Rng.Resize(1, 60)
End Function
Range(Range("A1")) 得到的就是 Range("A1:BH")
工作表中 =Range60(A1) 也就相当于 =OFFSET(A1,,,,60)，不过得到的结果是组数要用数组的方法使用
Public Function a(b)
a = Application.Sum(b) '比如求和
End Function
如果你要调用你面的某个值,可以这样b(1,1),b(1,2),......b(1,60)
Public Function a(ByVal b（60） As integer）这样不行,我试过了
你能说一下你具体要这60个参数怎么运算,这样比较好做