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

1楼

wsslei 发表于：2013/7/30 17:55:50

我写了个自定义函数,调用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，请指教

2楼

wsslei 发表于：2013/7/30 18:08:09

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

3楼

wsslei 发表于：2013/7/30 18:16:59

以下是引用wsslei在2013/7/30 18:08:09的发言：
另外，怎么在VBA中取得类似PEL中的Barpos值，代表当前图表K线

这个知道了，IndexData

4楼

wsslei 发表于：2013/7/31 15:31:59

没有人回答

5楼

王锋发表于：2013/7/31 17:41:14

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

6楼

wsslei 发表于：2013/8/1 14:15:59

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;

7楼

wsslei 发表于：2013/8/2 22:43:31

还是没有回复

8楼

王锋发表于：2013/8/3 10:34:43

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

If Formula.WorkMode = 1 then
Exit Function
End If

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

共8 条记录, 每页显示 10 条, 页签: [1]