Excel表格中调用自定义VBA函数返回#VALUE!的问题求助

自定义函数并非不能在Excel表格（ListObject）中使用，出现#VALUE!错误的核心原因是表格的结构化引用[@ID]传递的是Range对象，而你的函数参数定义为Integer，类型不匹配。普通单元格中直接引用或输入数值时，传递的是纯数值，所以能正常运行。

修复方案 #

方案1：修改参数类型为Variant/Range，兼容结构化引用

将函数参数改为Variant（可接收任意类型）或Range（明确接收单元格对象），然后在函数内部提取数值：

Public Function dderiveTodaysRate(ATRItemID As Variant) As Variant
    Dim revisedConstructionCost As Double
    Dim revisedBitumenCost As Double
    Dim inputValue As Double
    
    ' 提取结构化引用的数值
    inputValue = CDbl(ATRItemID)
    
    revisedConstructionCost = 175.352 * inputValue
    revisedBitumenCost = 98.451 * inputValue
    
    dderiveTodaysRate = Round(revisedConstructionCost + revisedBitumenCost, 2)
End Function

方案2：调用函数时强制转换为数值

如果不想修改函数参数，也可以在表格公式里直接把[@ID]转换为数值：

=dderiveTodaysRate(VALUE([@ID]))

额外建议 #

原函数中revisedConstructionCost和revisedBitumenCost未声明变量，建议加上Dim语句显式声明类型（如Double），避免因变体类型导致的潜在问题，同时提升代码稳定性。

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