以下Excel VBA自定义函数如何编写？

你这个要求不能实现啊，我用了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))

你可以试试看：

ActiveCell.Formula = "=IF(P20=""Yello"",""ALLOC"",0)"

或者（如果解决不了双引号的话，使用 Chr(34) 来代替）：

ActiveCell.Formula = "=IF(P20=" &Chr(34) &"Yello" &Chr(34) &"," &Chr(34) &"ALLOC" &Chr(34) &",0)"

---