以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  VBA自定义函数带formula调用出错  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=162431)

--  作者:qihuo2018
--  发布时间:2018/3/30 16:03:36
--  VBA自定义函数带formula调用出错
Function formula_name1(formula)

  Set grid = formula.ParentGrid
\'公式名称
   formula_name = formula.Name
   formula_name1 = formula_name
End Function
Function mtest()
y1 = formula_name1
End Function
vba函数调用vba函数出错,编译器错误450.
提示错误的参数个数或无效的参数属性值formula_name1.
该如何调用这种只带formula参数的自定义函数?

--  作者:无为剑
--  发布时间:2018/3/30 16:32:22
--  
调用mtest要把formula对象作为参数传递过去
--  作者:qihuo2018
--  发布时间:2018/3/30 16:45:43
--  
Function mtest()
y1 = formula_name1(formula)
End Function
这样也不对,进入formula_name1后提示缺少对象formula.

 Function mtest()
y1 = formula_name1()
End Function
这样只带空括号也不对,提示450错误。


--  作者:无为剑
--  发布时间:2018/3/30 16:47:06
--  
Function mtest(formula)
--  作者:qihuo2018
--  发布时间:2018/3/30 17:02:52
--  
谢谢老师,语法虽然对了,
可是,我是order_OrderStatusEx调用formula_name1,这样就不能自动触发了。
function order_OrderStatusEx(formula,.....),这个自动的就失效了。
该如何解决?




--  作者:无为剑
--  发布时间:2018/3/30 17:45:29
--  
formula 对象是动态的公式对象,是必须要金字塔触发事件时传递过来的,order_OrderStatusEx传递过来是没有带公式的,如果你需要获取某个公式,需要从程序中获取的
[此贴子已经被作者于2018/3/30 17:45:40编辑过]

--  作者:qihuo2018
--  发布时间:2018/3/30 18:21:16
--  
喔,谢谢!那得另想办法了。