怎么循环调用自定义函数

micch

lss001

……………………

719404338

micch 发表于 2024-8-27 21:53

测试没有成功，提示"无效使用ME关键字"。换个思路，把自定义函数改成过程文件，把参数改成全局变量，测试成功，谢谢老师。

大灰狼1976

用run也可以实现，但有两个限制：
1、自字义函数名不能与单元格名称相同（如下面代码中xfe改成xfd就会出错，xfd是单元格最大列号）
2、不能run用户窗体模块内或者类模块内的过程或函数

Public Function xfe1(a As Integer, b As Integer)
xfe1 = a + b
End Function

Public Function xfe2(a As Integer, b As Integer)
xfe2 = a * b
End Function

Sub test()
For Each f In Array("xfe1", "xfe2")
x = Run(f, 1, 2)
Debug.Print x
Next
End Sub

micch

719404338 发表于 2024-8-28 10:03
测试没有成功，提示"无效使用ME关键字"。换个思路，把自定义函数改成过程文件，把参数改成全局变量，测试 ...

代码放在工作表里或者窗体或者类模块里，普通模块没有me对象

今铭昔