主题：用VBA写的EMA函数，好像不行啊，请老大提示一下啊：

等我有空帮你改改吧,你的逻辑有严重问题

有个问题你没说清楚,Ema2是你的自定义函数,还是你做的VBA的一个另外的函数,如果是VBA的函数,那么你需要说明Ema2的N是什么?周期?

CYC是表示取第周期的值， N是EMA函数里的N

Function EMA3(Formula,CYC,N)
    Set History=Formula.ParentGrid.GetHistoryData()
 Y=History.Close(0)
 For i=1 To CYC
  Y=(2*History.Close(i)+(N-1)*Y)/(N+1)
 Next
 Ema3=Y
End Function

 

如果创建一个自定义函数EMA2

Function EMA2(Formula,N)
    EMA2 = EMA3(formula,formula.indexdata,n)
End Function

 

公式里这些调用测试

aa:ema(close,30);
bb:ema2(30);

 

与系统EMA结果完全一致