为何VBA中大于运算符对部分数字失效？代码问题求助

问题根源 #

你遇到的错误是因为TextBox的Value属性返回的是字符串类型，直接使用>运算符时，VBA会执行字典序字符串比较，而非数值大小比较。例如字符串"20"会被判定为大于"100"，因为首字符"2"的ASCII码值大于"1"，这就导致了不符合预期的提示触发。

修复方案 #

将文本框的字符串值转换为数值类型后再进行比较，同时确保后续数值运算也使用数值类型，避免逻辑错误。

修改后的完整代码 #

Private Sub CommandButton2_Click()

Dim err As Integer
err = 0
Dim poQty As Double, delvQty As Double ' 存储数值类型的PO数量和交付数量

If clickcount < 8 Then
    ' 检查必填项
    If TextBox4.Value = "" Then err = 1
    If TextBox5.Value = "" Then err = 1
    If TextBox6.Value = "" Then err = 1
    ' 检查数值合法性
    If IsNumeric(TextBox5.Value) = False Then err = 4
    If IsNumeric(TextBox6.Value) = False Then err = 4
    
    ' 仅在输入合法时转换数值并比较
    If err = 0 Then
        poQty = CDbl(TextBox5.Value)
        delvQty = CDbl(TextBox6.Value)
        If delvQty > poQty Then err = 2
    End If
    
    ' 错误提示处理
    If err = 1 Then MsgBox "Incomplete Item Data!"
    If err = 2 Then
        MsgBox "Delivered quantity cannot be more than PO quantity!"
        TextBox5.Value = ""
        TextBox6.Value = ""
        TextBox7.Value = ""
    End If
    If err = 4 Then MsgBox "Quantity value(s) incorrect!"
    
    ' 输入合法时添加到列表
    If err = 0 Then
        DeliveryNote.ListBox1.ColumnCount = 5
        DeliveryNote.ListBox1.ColumnWidths = "20,120,55,50,30"
        DeliveryNote.ListBox1.AddItem
        
        ListBox1.AddItem
        ListBox1.List(clickcount - 1, 0) = clickcount
        ListBox1.List(clickcount - 1, 1) = TextBox4.Value
        ListBox1.List(clickcount - 1, 2) = poQty
        ListBox1.List(clickcount - 1, 3) = delvQty
        ListBox1.List(clickcount - 1, 4) = poQty - delvQty
        ' 清空输入框
        TextBox4.Value = ""
        TextBox5.Value = ""
        TextBox6.Value = ""
        TextBox7.Value = ""
        
        clickcount = clickcount + 1
    End If
Else
    MsgBox "Sorry! You cannot add more than 7 items in single delivery note!" & vbNewLine & "Create another delivery note for remaining items."
End If

End Sub

关键修改点 #

1. 新增数值变量：声明poQty和delvQty存储转换后的数值，避免直接操作字符串。
2. 安全转换与比较：仅在输入无错误（err=0）时进行数值转换，确保转换的安全性；使用数值类型执行大小比较，逻辑符合预期。
3. 统一数值运算：列表框中的数量展示和剩余数量计算都使用数值变量，避免字符串运算导致的错误。

内容的提问来源于stack exchange，提问作者Muhammad Azeem Uddin