为何代码含CDbl时工作表单元格仍显示“文本值”错误？

可能触发问题的原因 #

• Office/系统更新导致区域设置变更：CDbl函数依赖系统区域的小数分隔符，若更新后区域设置的分隔符（如从.改为,）与文本框输入的不一致，转换后的数值写入单元格时，Excel可能误判为文本。
• 输入内容含隐藏无效字符：用户输入的金额可能带有空格、全角符号等不可见字符，CDbl虽能完成转换，但Excel的数值校验逻辑会判定单元格内容为文本。
• Excel错误检查规则更新：更新后Excel对“存储为文本的数字”检测更严格，之前未触发的提示现在显现。

解决办法 #

1. 先设置单元格数值格式再赋值 #

在写入转换后的值前，强制指定单元格为数值格式，避免格式不匹配：

' 处理借方单元格
.Cells(r, "D").NumberFormat = "0.00" ' 可根据需求调整格式
.Cells(r, "D").Value = CDbl(sDebit)

' 贷方单元格同理
.Cells(r, "E").NumberFormat = "0.00"
.Cells(r, "E").Value = CDbl(sCredit)

2. 清洗输入内容，统一格式 #

转换前清理文本框中的无效字符，统一小数分隔符，避免格式混乱：

' 清理借方输入
sDebit = Replace(Trim(sDebit), " ", "") ' 移除空格
sDebit = Replace(sDebit, ",", ".") ' 统一为点分隔符（根据你的区域设置调整）
If IsNumeric(sDebit) Then
    .Cells(r, "D").Value = CDbl(sDebit)
Else
    MsgBox "借方金额格式错误，请输入有效数字", vbCritical
    Exit Sub
End If

' 贷方输入同理处理
sCredit = Replace(Trim(sCredit), " ", "")
sCredit = Replace(sCredit, ",", ".")
If IsNumeric(sCredit) Then
    .Cells(r, "E").Value = CDbl(sCredit)
Else
    MsgBox "贷方金额格式错误，请输入有效数字", vbCritical
    Exit Sub
End If

3. 用Val函数替代CDbl（兼容多区域） #

Val函数不受区域设置影响，会自动忽略非数字字符，适合跨场景使用：

.Cells(r, "D").Value = Val(sDebit)
.Cells(r, "E").Value = Val(sCredit)

4. 临时关闭错误提示（若确认数值无误） #

如果确定单元格数值正确，只是提示干扰操作，可以关闭对应错误检查：

打开Excel选项 → 公式 → 取消勾选「文本格式的数字或者前面有撇号的数字」

优化后的完整代码 #

Private Sub cmdAddRecord_Click()
'Used to add new transation records to the database
    Dim r As Long, sCredit As String, sDebit As String
    
    sDebit = Trim(Me.txtTransactionAmountDebit)
    sCredit = Trim(Me.txtTransactionAmountCredit)
    
    With Sheets("Spending Account")
        r = 1 + .Cells(.Rows.Count, "A").End(xlUp).Row
        .Cells(r, "A").Value = DTPicker1
        .Cells(r, "B").Value = cboVendorDetails
        .Cells(r, "C").Value = cboTransactionType
        .Cells(r, "F").Value = cboTransactionStatus
     
        ' credit or debit
        If Len(sDebit) > 0 Then
            If Len(sCredit) > 0 Then
                MsgBox "Warning - Both Credit and Debit", vbExclamation
            Else
                ' 清洗输入并验证
                sDebit = Replace(sDebit, ",", ".")
                If IsNumeric(sDebit) Then
                    .Cells(r, "D").NumberFormat = "0.00"
                    .Cells(r, "D").Value = CDbl(sDebit)
                Else
                    MsgBox "借方金额格式不正确，请输入有效数字", vbCritical
                    Exit Sub
                End If
            End If
        ElseIf Len(sCredit) > 0 Then
            sCredit = Replace(sCredit, ",", ".")
            If IsNumeric(sCredit) Then
                .Cells(r, "E").NumberFormat = "0.00"
                .Cells(r, "E").Value = CDbl(sCredit)
            Else
                MsgBox "贷方金额格式不正确，请输入有效数字", vbCritical
                Exit Sub
            End If
        End If
          
        If r > 21 Then
            Application.Goto Reference:=.Cells(r - 20, "A"), Scroll:=True
        End If
    End With

    Call UserForm_Initialize
End Sub

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