以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  自定义函数返回的问题  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=96030)

--  作者:colin
--  发布时间:2016/4/9 12:32:30
--  自定义函数返回的问题

Function GETFOO(Formula,qs,zs)
 APPLICATION.MsgOut "22222"

Dim temp

if qs>c then

temp=1

else

temp=0

end if


  
GETFOO= temp

End Function

 

调用

MA5:MA(CLOSE,5);

foo:=GETFOO(MA5,CLOSE);

 

这样调用foo一直没有变化

我自定义了一个函数,在逐K模式下,没有返回值。并且也看不到输出22222.这只有在专业版下才可以用吗?

 


--  作者:yukizzc
--  发布时间:2016/4/11 9:36:33
--  

vba启动了没,是通过公式编辑器那添加自定义函数的吗??

http://www.weistock.com/WeisoftHelp/visualbasiczidingyihanshu.htm


--  作者:colin
--  发布时间:2016/4/12 16:59:43
--  
是通过公式编辑器那添加的。
启动没有,不太清楚。但如果我改自定义函数里的参数个数的话,调用的地方不改会报错。这样看,应该是启动了的吧

--  作者:yukizzc
--  发布时间:2016/4/12 17:21:03
--  

启动vba


图片点击可在新窗口打开查看此主题相关图片如下:5qkw0hme1j~%d`yli55zy1.png
图片点击可在新窗口打开查看