function F(rng as range) as String
if rng.count <>5 then F="Err":exit function
dim a(4) as double,b as integer
dim cel as range
for each cel in rng
a(b)=val(cel.value)
b=b+1
next
F = a(0) + a(1)*a(2) + a(3) + a(4)
end function
Function F(mYrange As Range)
Dim myArr(1 To 5)
Dim mYr As Range
Dim i As Single
i = 1
For Each mYr In mYrange
myArr(i) = mYr.Value
i = i + 1
Next
F = myArr(1) + myArr(2) * myArr(3) + myArr(4) + myArr(5)
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024