Excel VBA自定义函数的编写,自定义数组

发布网友 发布时间：2022-04-23 23:03

我来回答

共4个回答

热心网友 时间：2023-10-13 01:17

你这个要求不能实现啊，我用了ParamArray 关键字，用来指定一个 任意元素个数 的数组
共参考：
---------
Function shuzu(ParamArray x())
Application.Volatile
Dim i, n, m, tmp
n = UBound(x) - LBound(x) + 1
If n Mod 2 <> 0 Then tmp = "#Err_x()": GoTo 1000
n = n / 2
m = LBound(x)
For i = 1 To n
tmp = tmp + x(m + i - 1) * x(m + i - 1 + n)
Next
1000:
shuzu = tmp
End Function
-----------
输入公式的时候，需要 成对 的元素，套用你的公式如下：
=shuzu((K5,L5,M7,N9),(M13,L15,K13,M17))
可以输入任意 成对的 元素，比如使用10个参数：
=shuzu((K5,L5,M7,N9,M10),(M13,L15,K13,M17,N20))

热心网友 时间：2023-10-13 01:17

最难解决的就是你这种问题，不是提问题，是指挥别人怎么做，自己说的也不是很明白

告诉你提问题只要把你现在的情况说明白，再说想要什么结果就行了，有图最佳。
至于过程不重要，结果才重要。

热心网友 时间：2023-10-13 01:18

如:一维数组定义
dim a(99)

热心网友 时间：2023-10-13 01:18

sdsadsads