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.这只有在专业版下才可以用吗?
vba启动了没,是通过公式编辑器那添加自定义函数的吗??
http://www.weistock.com/WeisoftHelp/visualbasiczidingyihanshu.htm