标题：VBA自定义函数带formula调用出错

1楼

qihuo2018 发表于：2018/3/30 16:03:36

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参数的自定义函数？

2楼

无为剑 发表于：2018/3/30 16:32:22

调用mtest要把formula对象作为参数传递过去

3楼

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错误。

4楼

无为剑 发表于：2018/3/30 16:47:06

Function mtest(formula)

5楼

qihuo2018 发表于：2018/3/30 17:02:52

谢谢老师，语法虽然对了，

可是，我是order_OrderStatusEx调用formula_name1，这样就不能自动触发了。

function order_OrderStatusEx(formula,.....),这个自动的就失效了。

该如何解决？

6楼

无为剑 发表于：2018/3/30 17:45:29

formula 对象是动态的公式对象，是必须要金字塔触发事件时传递过来的，order_OrderStatusEx传递过来是没有带公式的，如果你需要获取某个公式，需要从程序中获取的

[此贴子已经被作者于2018/3/30 17:45:40编辑过]

7楼

qihuo2018 发表于：2018/3/30 18:21:16

喔，谢谢！那得另想办法了。

共7 条记录, 每页显示 10 条, 页签: [1]