系统自带自定义函数CU_MA1出错.
我按照教程,自编了序列模式下的公式,发现出错。
在公式处,我按教程输入:MA1:CU_MA1(c,5);没有其他的代码。
自定义函数,采用系统自带的,没有编辑,转贴如下:
'????DòáD?£ê??????¨?ü?ú3¤?èμ?ê??ì???ù??
Function CU_MA1(Formula,CLOSE,CYC)
CU_MA1=0
'·à?11?ê??e?ü?ú?£ê?ê±μ÷ó?
If Formula.WorkMode = 0 Then
Exit Function
End If
'CLOSEêy×éêy?Y3¤?èò??¨?áó?Formula.DataSize-1?àμè
DataCount = UBound(CLOSE)
If DataCount <> Formula.DataSize-1 Then
Exit Function
End If
'?¨ò?ò???????·μ??μ?êy×é
Dim ResultMa
Redim ResultMa(DataCount)
For i = Cyc-1 To Formula.DataSize-1
Count = 0
For k = i-(Cyc-1) To i
Count = Count + CLOSE(k)
Next
ResultMa(i) = Count / Cyc
Next
'·μ??ò???????íê±?μ??ù??êy×é
CU_MA1 = ResultMa
End Function
结果无法画出均线。请问何处出错?