获取MACD指标的DEA成功,如下代码
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
成功
因为SAR没有可显示值,后来我在公式里增加了显示变量SARV,还是失败,再自定义函数,还是一样失败,如下代码:
Sub 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
失败