Excel VBA中如何在另一个UDF内调用其他模块的已创建UDF？

先帮你梳理下当前代码里的几个关键问题，这就是为什么会返回#VALUE!错误的原因：

• 参数名与函数名冲突：你在PostTaxSale函数里定义了一个叫BookVal的参数，这和你要调用的BookVal函数完全同名，VBA会优先把它当成局部参数处理，而不是去调用另一个模块里的函数，自然就无法正确计算账面价值了。
• 未定义变量：代码里用了Tax变量，但你的参数是TaxRate，这里属于拼写错误，VBA找不到Tax这个变量也会触发错误。
• 公式逻辑可以简化：你当前的代码步骤有点绕，可以直接按照你给出的公式税后残值 = 残值 - 税率 × (残值 - 账面价值)来实现，不用多步赋值。

修正后的完整代码 #

首先，保持BookValue模块里的BookVal函数不变：

Option Explicit
Function BookVal(UseLife As Single, ResaleAge As Single, PurchPrice As Double, SalVal As Double) As Double
    BookVal = PurchPrice - ((PurchPrice - SalVal) / UseLife) * ResaleAge
End Function

然后修改PostTaxSale函数（注意把冲突的参数名改掉，或者直接去掉这个参数，因为我们要调用BookVal函数计算它）：

Option Explicit
Function PostTaxSale(UseLife As Double, ResaleAge As Double, TaxRate As Double, ResaleVal As Double, PurchPrice As Double, SalVal As Double) As Double
    ' 直接调用同一工作簿其他模块的UDF，写法和调用普通函数一样
    Dim bookValue As Double
    bookValue = BookVal(UseLife, ResaleAge, PurchPrice, SalVal)
    
    ' 按照你的公式计算税后残值
    PostTaxSale = ResaleVal - TaxRate * (ResaleVal - bookValue)
End Function

关键修改点说明 #

1. 移除冲突参数：删掉了原来的BookVal As Double参数，避免和函数名混淆。
2. 正确调用UDF：同一工作簿内的模块级UDF（默认都是公共的），直接用函数名(参数)的方式调用就行，不需要Application.或者其他特殊前缀。
3. 修正变量名：把Tax改成了参数里的TaxRate，避免未定义变量错误。
4. 简化公式逻辑：直接按照你给出的公式一步计算，更清晰易懂。

如何在Excel单元格中使用 #

比如你把参数分别放在A1到F1单元格：

• A1: 使用年限（UseLife）
• B1: 使用时长（ResaleAge）
• C1: 税率（TaxRate）
• D1: 残值（ResaleVal）
• E1: 购买价格（PurchPrice）
• F1: 预计残值（SalVal）

在其他单元格输入公式：

=PostTaxSale(A1,B1,C1,D1,E1,F1)

就能得到正确的税后残值结果了。

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