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

Posted 2023-04-13

【中文标题】在另一个 UDF 中使用来自加载项的 UDF

【英文标题】：Using an UDF from an Add-in in another UDF

【发布时间】：2018-01-19 15:15:48

【问题描述】：

我在 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

它很好地显示在“用户定义”列表中并且工作完美。

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

【问题讨论】：

我认为这应该可以解决您的问题fontstuff.com/vba/vbatut08.htm

【参考方案1】：

看起来有点乱，但你可以这样引用函数：

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