|
|

楼主 |
发表于 2006-7-23 15:46:00
|
显示全部楼层
Re: 公式编辑器
研究了一下,循环可以用,但是不能定义变量,不过的话用数组还是有办法的,用array赋值可以解决问题.
Function Gmax(v)
i1 = v(LBound(v))
For i = LBound(v) + 1 To UBound(v)
If v(i) > i1 Then
i1 = v(i)
End If
Next
Gmax = i1
End Function
Function Gmin(v)
i1 = v(LBound(v))
For i = LBound(v) + 1 To UBound(v)
If v(i) < i1 Then
i1 = v(i)
End If
Next
Gmin = i1
End Function |
|