首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

EXCEL中VBA有关问题~求高人指点

2012-02-12 
EXCEL中VBA问题~求高人指点在EXCEL中用vba编程调用函数时弹出错误:缺少数组!请问这是怎么回事,是不是因为

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 中测试,没有任何问题!

VB code
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 

热点排行