看了系统的自定义函数后写了下面这个（公式名称test）：

C1:CU_MA1(CLOSE,15);

显示的时候为什么是一条0的直线？

请教版主和各位高手

你的那条语句是不可以放在自定义函数里的

是公式里的语句

 自定义函数中的语句格式是VBA的语法格式

请仔细确认。

我是在新建的公式TEST中调用系统的自定义函数CU_MA1，在公式编辑框内调用，这个语句没有错误，编译通过

而且按照金字塔的说明，公式中调用自定义函数与在公式中调用系统函数是一样的，所以"C1：CU_MA1(CLOSE,5);"应该是没有问题的吧？！

为什么不显示图形？

如果上面我的调用有错，那么要显示图形，在公式编辑中应该如何调用自定义函数呢？不吝赐教！谢谢

你有没有编辑你自定义的函数呢？

没有编辑的话，就不会数据，默认数据为0；

“自定义函数”都建在模块Function中,该函数为后台VBA编写,先将它右键--运行--执行,

就可以在公式编辑里调用了,注意K线图中,X坐标上右键--仅随K线变动

我想发个截图给你们看下，这个话题编辑框偏偏不能插入本地图片，你们说的问题我都没有错误，但就是输出不了

发下代码你们看，系统自己带的，不是我写的，看看有没有问题，我的版本是2.75：

\'计算逐周期模式下指定周期长度的收盘价均价
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
End Function

\'计算序列模式下指定周期长度的收盘价均价
Function CU_MA1(Formula,CLOSE,CYC)
   CU_MA1=0

    \'防止公式逐周期模式时调用
    If Formula.WorkMode = 0 Then
        Exit Function
    End If

    \'CLOSE数组数据长度一定会与Formula.DataSize-1相等
    DataCount = UBound(CLOSE)
    If DataCount <> Formula.DataSize-1 Then
        Exit Function
    End If

    \'定义一个计算返回的数组
    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

    \'返回一个计算完毕的均线数组
    CU_MA1 = ResultMa
End Function

另外FLY说的X轴应该是说Y轴吧，X轴没有你说的选项

是的Y轴,手误.

本地测过,可以的.

(1)

(2)公式编辑里 新建指标

//序列计算

C1:CU_MA1(CLOSE,15);

(3)K线图中,Y坐标上右键--仅随K线变动