Question

我在Excel中加载了一个包含所有UDF的加载项。
其中一个叫做毕达哥拉斯。它的定义如下：

Function Pythagoras(Optional side1, Optional side2, Optional hypotenusa)
If Not (IsMissing(side1)) And Not (IsMissing(side2)) Then
    Pythagoras = Sqr(side1 ^ 2 + side2 ^ 2)
Else
    If Not (IsMissing(side1)) And Not (IsMissing(hypotenusa)) Then
        Pythagoras = Sqr(hypotenusa ^ 2 - side1 ^ 2)
    Else
        If Not (IsMissing(side2)) And Not (IsMissing(hypotenusa)) Then
            Pythagoras = Sqr(hypotenusa ^ 2 - side2 ^ 2)
        Else
            Pythagoras = "Please supply two arguments."
        End If
    End If
End If
End Function

它很好地出现在＆＃34; User Defined＆＃34; -list中并且完美无缺。

然而，我的问题是我似乎无法找到如何在另一个UDF中使用它。
这是不可能的吗？如果有可能，我该怎么做？

Answer 1

看起来有点乱，但你可以用这种方式来参考这个功能：

retval = Application.Run("'NAME_OF_YOUR_ADDIN.xlam'!Pythagoras", s1, s2, ha)

在另一个UDF中使用加载项中的UDF

1 个答案: