Excel中如何在一个UDF内调用加载项中的另一个UDF？

完全没问题——你可以像调用任何普通VBA函数一样，在自定义函数里直接调用加载项中的Pythagoras函数，只要确保加载项处于激活状态就行。下面是具体操作和注意事项：

1. 确认加载项已正确加载 #

首先要保证包含Pythagoras的加载项已经在Excel中启用：

• 打开Excel，点击「文件」→「选项」→「加载项」
• 在「管理」下拉菜单选「Excel加载项」，点击「转到」
• 确认你的UDF加载项在列表中被勾选，没有被禁用

2. 直接调用函数的示例 #

不管你的新UDF是在同一个加载项的模块里，还是在其他工作簿的VBA模块里，都可以直接调用Pythagoras。举个实际例子：

假设你要写一个UDF，计算两个直角三角形的斜边之和，代码可以这么写：

Function SumTwoHypotenuses(side1a, side1b, side2a, side2b)
    ' 调用Pythagoras计算第一个三角形的斜边
    Dim hypotenuse1 As Variant
    hypotenuse1 = Pythagoras(side1a, side1b)
    
    ' 调用Pythagoras计算第二个三角形的斜边
    Dim hypotenuse2 As Variant
    hypotenuse2 = Pythagoras(side2a, side2b)
    
    ' 处理可能的错误提示（原函数返回字符串）
    If TypeName(hypotenuse1) = "String" Or TypeName(hypotenuse2) = "String" Then
        SumTwoHypotenuses = CVErr(xlErrValue) ' 返回Excel标准错误值，更友好
    Else
        SumTwoHypotenuses = hypotenuse1 + hypotenuse2
    End If
End Function

3. 排查调用失败的常见问题 #

如果遇到「未定义的函数」错误，可以试试这些方法：

• 重启Excel，确保加载项没有被意外禁用
• 如果新UDF在独立工作簿中，尝试用加载项名称限定调用，比如：

  ' 假设加载项文件名为MyUDFAddIn.xlam
  hypotenuse1 = MyUDFAddIn.xlam!Pythagoras(side1a, side1b)
  

• 检查加载项的模块是否设置了Private（默认模块是公共的，一般不会有这个问题，但若手动设置过私有，需要改成公共）

内容的提问来源于stack exchange，提问作者fotofrank