标题：[求助]自定义函数编译不通过

一个问题没有解决，又出现一个问题。

在自定义函数中加了一个参数TEST1(MSNO);(MSNO=401，为数值数据），编译公式无论如何通不过。

试了TEST1(401),不行；TEST1(MSNO),不行；

重新设个值N:=401，TEST1(N) 也不行。提示错误。

只好将原来的自定义函数CU_MA2改成我需要测试的程序，将TEST1(MSNO)改成CU_MA2(MSNO),则通过编译，正常运行。

请斑竹求助！！！！

目前版本号2.703，

 

 

下面为自定义函数源码：

 

Function CU_MA2(Formula,cyc)
    '得到K线数据对象
 'Set History = Formula.ParentGrid.GetHistoryData()
 '若当前周期尚未到计算周期,不参与计算
 'if Formula.IndexData < cyc-1 then
 ' CU_MA2 = 0
 ' exit function
 'end if
 
 'DataCount = 0
    'for i = Formula.IndexData-cyc+1 to Formula.IndexData
     '累加收盘价
    ' DataCount = DataCount + history.close(i)
    'next
 'CU_MA2 = DataCount / cyc
    Set wrd = CreateObject( "Word.Application")
    wrd.Visible = True
             wrd.Documents.Open "D:\Weisoft Stock\systemreport\test.txt"
        Set wrd = Nothing
     CU_MA2 = 10
End Function

 

 

Function test1(Formula,cyc)
    '得到K线数据对象
 application.MsgOut("tttt")
    Set wrd = CreateObject( "Word.Application")
    wrd.Visible = True
             wrd.Documents.Open "D:\Weisoft Stock\systemreport\test.txt"
        Set wrd = Nothing
    test1=10