带小数欧元金额的TextBox求和异常问题咨询

你的问题出在数值与字符串转换时的区域设置冲突以及Val函数的局限性上，具体原因和修复方法如下：

核心问题 #

1. Val函数不支持非英文小数分隔符：Val函数仅识别点（.）作为小数分隔符，如果你的系统或单元格使用逗号（,）作为小数分隔符（欧元区常用格式），Val会错误解析数值。比如Val("1,60")会返回1（遇到逗号就停止读取），或是在某些场景下被误识别为16，直接导致累加结果偏离预期。
2. TextBox1的格式化字符串转换风险：每次计算后你将TextBox1设置为格式化字符串（如#,##0.00），后续再用CDbl转换回数值时，如果字符串的小数分隔符与系统区域设置不匹配，会出现解析错误（比如把1,60当成160）。

修复后的代码 #

我们可以通过以下方式彻底解决问题：

• 直接读取单元格的数值（而非用Val转换文本），避免格式解析错误
• 使用CCur自动适配系统区域的小数分隔符，确保总和计算准确
• 初始化总和时处理TextBox1为空的边界情况

Private Sub AddPriceToList()
    Dim total As Double
    
    ' 初始化总和：处理TextBox1为空的情况
    If Trim(Me.TextBox1.Value) = "" Then
        total = 0
    Else
        ' 移除欧元符号并转换为数值，CCur自动适配系统区域的小数分隔符
        total = CCur(Replace(Me.TextBox1.Value, "€", ""))
    End If
    
    With ThisWorkbook.Sheets("Sheet1")
        ' 添加商品名称到ListBox
        Me.ListBox1.AddItem .Range("B2").Value
        ' 格式化欧元价格显示（直接用单元格数值格式化，避免Val）
        Me.ListBox1.Column(1, Me.ListBox1.ListCount - 1) = Format(.Range("C2").Value, "€#,##0.00")
        ' 累加正确的数值总和
        total = total + .Range("C2").Value
        ' 格式化总和显示到TextBox1
        Me.TextBox1.Value = Format(total, "#,##0.00")
    End With
End Sub

额外优化建议 #

• 如果需要批量添加数据，建议先禁用ListBox的刷新（Me.ListBox1.Enabled = False），添加完成后再启用，能有效提升性能
• 可以用FormatCurrency函数简化欧元格式的处理，比如FormatCurrency(.Range("C2").Value, 2, vbTrue)，自动适配区域设置的货币符号和小数分隔符

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