主题：VBA中引用公式结果，没有成功

我写了个自定义函数,调用PEL里的公式中的公式线10s在第1根K线的结果

 

Function CY_5s_CAL(Formula,x10s,x15s,x20s)
    If Formula.WorkMode = 1 then
        Exit Function
    End If

    CY_5s_CAL=0
    Application.msgout(formula.DataSize)
    Application.msgout(formula.GetBufDataByIndex(1,1))

    Application.msgout(formula.GetBufData("10s",1))
    CY_5s_CAL=50
End Function

 

我觉得应该逐K显示10s在第1根K线的结果，目前程序没报错，但显示为0，请指教

 

 

 

另外，怎么在VBA中取得类似PEL中的Barpos值，代表当前图表K线

这个知道了，IndexData

没有人回答

请将PEL公式也贴一下，我们本地测试一下然后给你回复

PEL 公式很简单：

 

10s:EMA(close,10),Color33FF99,linethick1;
15s:EMA(close,15),Color33FF99,linethick1;
20s:EMA(close,20),Color33FF99,linethick1;

XXX:CY_5s_CAL(10s,15s,20s),colorred,linethick5;

还是没有回复

没看出有什么问题，你是不是在序列模式下运行公式了，因为你的VBA代码中

If Formula.WorkMode = 1 then
        Exit Function
    End If

是指明只有在逐K线模式才有效的