怎么循环调用自定义函数

719404338

求助老师，怎么循环调用自定义函数？

Function f1(a As Integer, b As Integer)
f1 = a + b
End Function

Function f2(a As Integer, b As Integer)
f2= a * b
End Function

Sub test()
For Each f In Array("f1", "f2")
x = f(1, 2)
Next
End Sub

chxw68

想法非常新颖。

719404338

chxw68 发表于 2024-8-27 19:23
想法非常新颖。

老朋友，能帮忙解决吗？

chxw68

719404338 发表于 2024-8-27 19:23
老朋友，能帮忙解决吗？

我不会。。

ykcbf1100

楼主的需求很新奇，第三段代码直接用f1和f2函数就行了，为啥还要去循环一下呢？多此一举吧。

719404338

ykcbf1100 发表于 2024-8-27 20:01
楼主的需求很新奇，第三段代码直接用f1和f2函数就行了，为啥还要去循环一下呢？多此一举吧。

实际有10多个自定义函数，想简化一下代码，谢谢大佬。

小凡、、、

好小众，是要把1,2传递给所有自定函数，返回给一个x？还是形成一个数组

zpy2

这种用其他语言可以的，用vba比较难

zpy2

zpy2 发表于 2024-8-27 21:24
这种用其他语言可以的，用vba比较难

有点像工厂模式。。。

micch

确实很少见这种模式，虽然也能实现，你这个需求，需要把函数存入数组，然后run