以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  可以帮我把程序改成VBA吗  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=161922)
--  作者：czh79
--  发布时间：2018/3/7 17:25:40
--  可以帮我把程序改成VBA吗

我用了标准版运行一个分笔周期的程序，因为分笔周期数据量大总漏单

所以我想改成VBA来运行，是不是能提高效率？

我发出代码，能帮我改成VBA吗？
--  作者：FireScript
--  发布时间：2018/3/8 8:53:43
--  
已转高级区，请在高级区中查看回复。
--  作者：czh79
--  发布时间：2018/3/8 12:23:19
--  
没人回答吗
--  作者：yukizzc
--  发布时间：2018/3/8 15:01:09
--  

cond:c>100;

 

cond1:count(c>100,5);

用这种办法去考虑5根k内满足条件就开仓，这种策略不是说你用vb就能够避免的，极端铭感的策略你必须要自己想办法去处理
--  作者：czh79
--  发布时间：2018/3/8 17:05:09
--  
你在说什么呢，我都没发代码
--  作者：czh79
--  发布时间：2018/3/8 20:56:02
--  

sumsell2:=sum(sellVOL,1500);
sumbuy2:=sum(buyVOL,1500);
sumsell3:=sum(IF(SELLVOL>=ma(vol,500),sellVOL,0),500);
sumbuy3:=sum(IF(BUYVOL>=ma(vol,500),buyVOL,0),500);

up:=every(c>ref(c,1) and buyvol>85,2);
down:= EVERY(c<ref(c,1)and sellvol>85,2);

DT:=  up  and sumbuy2<sumsell2 and mod(c,100)<70 ;
KT:= down  and sumbuy2>sumsell2 and mod(c,100)>30 ;// and c>ref(c,3)and c<ref(c,3)

 

 

 

这段代码 用  vba怎么实现

 
--  作者：yukizzc
--  发布时间：2018/3/8 22:04:00
--  

vba解决不了你这个问题额，vba不是说效率就是pel100倍这样

很大程度vba是解决一些pel算法层面可能不容易计算的时候才会做的考虑