使用VBA创建VAT_Exl函数计算不含VAT金额时遇#Value错误求助

你的代码出现#Value错误的核心问题如下：

• 函数未接收Invoice_Price参数，导致Excel无法识别该变量
• 无意义的Select Case判断（变量n未赋值，逻辑完全无效）
• 函数未返回计算结果
• 未声明Vat变量

修正后的代码 #

Function VAT_Exl(Invoice_Price As Double) As Double
    Const VAT_RATE_FACTOR As Double = 100 / 115
    VAT_Exl = Invoice_Price * VAT_RATE_FACTOR
End Function

代码说明 #

• 给函数添加Invoice_Price As Double参数，用于接收带VAT的金额
• 用常量VAT_RATE_FACTOR存储100/115的计算值，提升代码可读性
• 直接将计算结果赋值给函数名VAT_Exl，实现返回值逻辑
• 移除冗余的Select Case结构和未使用的变量n

使用方法 #

在Excel单元格中输入公式：=VAT_Exl(A1)，其中A1是包含带VAT金额的单元格。

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