以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://www.weistock.com/bbs/index.asp) -- 高级功能研发区 (http://www.weistock.com/bbs/list.asp?boardid=5) ---- VBA调用公式遍历盘面问题 (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=94630) |
-- 作者:jinn -- 发布时间:2016/3/11 12:04:43 -- VBA调用公式遍历盘面问题 请问这样的遍历是否需要后台交易支持? for J=0 TO tnblockcount-1 \'循环逐步获取个股公式信息 TCMARKET=b.GetStockMarket(J) TCCODE=b.GetStockCode(J) Set Formula1 = marketdata.STKINDI(TCCODE,TCMARKET,"两连扳测试",0,5) \'调用函数进行测试 DataSize=Formula1.DataSize IF Formula1.GetBufData("两连扳",DataSize-1) =1 and Formula1.GetBufData("连续涨停数",DataSize-1)=2 and Formula1.GetBufDateData(DataSize-1)=date THEN \'非停牌股 application.MsgOut TCCODE & TCMARKET & ":" & Formula1.GetBufData("两连扳",DataSize-1) & ", " & Formula1.GetBufData("连续涨停数",DataSize-1) call b.open("两连板",1) call b.AddStock(TCMARKET,TCCODE) call b.ToSave("自选","两连板") \'保存数据 END IF next
|
-- 作者:yukizzc -- 发布时间:2016/3/11 13:58:53 -- 不需要,这个你自己在vba界面启动就行了。 涉及交易的对象需要专业版 |
-- 作者:jinn -- 发布时间:2016/3/11 15:00:40 -- 非常感谢 |