以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  求pel翻译成vba  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=49900)

--  作者:siteng
--  发布时间:2013/3/19 9:49:31
--  求pel翻译成vba


参数n的默认值1200,取值范围100到3000


付主买成交量4:=IF(C<REF(BIDPRICE,1) AND ASKPRICE=REF(ASKPRICE,1) AND ASKVOL<REF(ASKVOL,1) AND V>REF(BIDVOL,1),MIN(REF(ASKVOL,1)-ASKVOL,V-REF(BIDVOL,1)),
               IF(C<REF(BIDPRICE,1) AND ASKPRICE>REF(ASKPRICE,1),V*(ASKPRICE-REF(ASKPRICE,1))/(ASKPRICE-REF(ASKPRICE,1)+REF(BIDPRICE,1)-C+MINDIFF),0));


主卖总计:=SUM(主卖量,0);

净量:主买总计-主卖总计,COLORWHITE,LINETHICK2;
  红:IF(净量>REF(净量,1),净量,DRAWNULL),COLORRED,LINEDOT;
  绿:IF(净量<REF(净量,1),净量,DRAWNULL),COLORGREEN,LINEDOT;
  0,POINTDOT;
 净量回归线:FORCAST(净量,N);
 净量回归线红:IF(净量回归线>REF(净量回归线,1),净量回归线,DRAWNULL),COLORRED,LINETHICK2;
 净量回归线绿:IF(净量回归线<REF(净量回归线,1),净量回归线,DRAWNULL),COLORGREEN,LINETHICK2;

 


--  作者:rushtaotao
--  发布时间:2013/3/19 10:02:34
--  
你这个问题,是vba的比较基础的东西,给变量赋值 首先用dim 去定义一下 然后变量计算完之后用set赋值。if语句语法格式不同,其他都一样的
--  作者:siteng
--  发布时间:2013/3/19 10:11:35
--  

希望每种举个例子,谢谢!


--  作者:rushtaotao
--  发布时间:2013/3/19 10:38:24
--  
http://www.weistock.com/bbs/dispbbs.asp?BoardID=10&ID=48986&replyID=119537&skin=1

--  作者:王锋
--  发布时间:2013/3/19 11:09:24
--  

PEL翻译VBA的工程代码量巨大,客服无法为你免费编写。

建议客户书店买本VBA的书自学,遇到实际的VBA问题时论坛求助。

或者你可以考虑付费,由该板块版主为你有偿服务