共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：VBA里获取不到SAR指标值
1楼
kooex 发表于：2017/3/30 7:32:47
msgbox FormulaSar.GetBufData("SAR",Data1.Count-i)总是结果出错，后来发现公式SAR没有显示值，就简单的“SAR(P,STEP,MAXP),CIRCLEDOT”，后来给SAR加了显示值，如“SARV:SAR(P,STEP,MAXP),CIRCLEDOT”，也是调用失败，后来自己手动新加了一个公式也调用失败，请问应该如何调用，谢谢
2楼
yukizzc 发表于：2017/3/30 9:04:33完整贴下你的FormulaSar代码呢
光看这句看不出问题可能
3楼
kooex 发表于：2017/3/30 11:40:27Set Data1= marketdata.GetHistoryData("if06","zj",6)
Set Formula =
marketdata.StkindiByData("SAR",Data1)
for i=Data2.Count-20 to Data2.Count-1
msgbox Formula.GetBufData("SAR",Data1.Count-i)
next
如果换成MACD就成功了
Set Data1= marketdata.GetHistoryData("if06","zj",6)
Set Formula = marketdata.StkindiByData("MACD",Data1)
for i=Data2.Count-20 to Data2.Count-1
msgbox Formula.GetBufData("DEA",Data1.Count-i)
next
4楼
kooex 发表于：2017/3/30 11:50:44Sub UserForm1_CommandButton1_Click()
Set Data1= marketdata.GetHistoryData("if06","zj",2)
Set Formula = marketdata.StkindiByData("SAR",Data1)
for i=1 to 5
msgbox Formula.GetBufData("SARV",Data1.Count-i)
next
End Sub
上面的失败
Sub UserForm1_CommandButton1_Click()
Set Data1= marketdata.GetHistoryData("if06","zj",2)
Set Formula = marketdata.StkindiByData("MACD",Data1)
for i=1 to 5
msgbox Formula.GetBufData("DEA",Data1.Count-i)
next
End Sub
成功
5楼
yukizzc 发表于：2017/4/5 13:23:26您先看下SAR指标
里面有没有sarv这个指标输出变量
共5 条记录, 每页显示 10 条, 页签:
[1]