EXCEL中VBA问题~求高人指点
在EXCEL中用vba编程
调用函数时弹出错误:缺少数组!
请问这是怎么回事,是不是因为函数的形式和数组一样而使得编译时误以为函数为数组了?
程序大致如下:
Sub main()
Dim D As Integer,PMP As Integer,TK As Integer
…………
…………
PMP=123.45
TK=456.78
D=DDETAIL(PMP,TK) 《=========就停在这里:缺少数组
…………
…………
End Sub
Function DDETAIL(P,T)
……
……
DDETAIL=……
End Function
[解决办法]
经在 Office 2003 / Excel VBA 中测试,没有任何问题!
Option ExplicitSub main()Dim D As Long, PMP As Integer, TK As Integer'…………'…………PMP = 123.45TK = 456.78D = DDETAIL(PMP, TK) ' 《=========就停在这里:缺少数组'…………'…………End SubFunction DDETAIL(P, T)'……'……DDETAIL = P * TEnd Function