VBA里獲取不到SAR指標(biāo)值
作者：金字塔 來源：cxh99.com 發(fā)布時(shí)間：2017年07月02日
- 咨詢內(nèi)容：
msgbox FormulaSar.GetBufData("SAR",Data1.Count-i)總是結(jié)果出錯(cuò)，后來發(fā)現(xiàn)公式SAR沒有顯示值，就簡單的“SAR(P,STEP,MAXP),CIRCLEDOT”，后來給SAR加了顯示值，如“SARV:SAR(P,STEP,MAXP),CIRCLEDOT”，也是調(diào)用失敗，后來自己手動(dòng)新加了一個(gè)公式也調(diào)用失敗，請(qǐng)問應(yīng)該如何調(diào)用，謝謝
- 金字塔客服：
完整貼下你的FormulaSar代碼呢
光看這句看不出問題可能
- 用戶回復(fù)：
Set 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
- 網(wǎng)友回復(fù)：
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上面的失敗
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成功
- 網(wǎng)友回復(fù)：
您先看下SAR指標(biāo)
里面有沒有sarv這個(gè)指標(biāo)輸出變量
打印本文
關(guān)閉窗口