Excel VBA搜索账单号时列表框显示多余前置数据如何处理

原代码问题根因 #

• 绑定区域逻辑错误：RowSource = "Sales!A2:J" & i是直接绑定从第2行到匹配行的连续区域，自然会携带匹配项之前的所有无关记录
• 循环逻辑错误：每遍历一行不匹配就弹出错误提示，会出现多次弹窗，且未完成全表遍历就执行赋值操作
• 变量声明不规范：VBA单行多变量声明时，只有最后一个变量为指定类型，原代码中lr、i、bill三个变量实际为Variant类型，存在类型匹配风险

修正后代码 #

Private Sub cmd_Search_Click()
    Dim h As Worksheet
    Dim lr As Long, i As Long, bill As Long, ex As Long
    Dim matchFound As Boolean
    
    Set h = ThisWorkbook.Sheets("Sales")
    lr = h.Cells(h.Rows.Count, 3).End(xlUp).Row
    bill = Val(Me.txt_Bill_id.Value) ' 转数值避免文本和数值不匹配问题
    matchFound = False
    
    ' 先清空ListBox原有内容和绑定
    With Me.lb_SaleList
        .RowSource = ""
        .Clear
        .ColumnCount = 10
        .ColumnWidths = "45,45,45,75,75,55,45,90,50,80"
    End With
    
    ' 遍历所有行收集匹配项
    For i = 2 To lr
        ex = h.Cells(i, 3).Value
        If ex = bill Then
            ' 逐列添加匹配行的所有数据
            With Me.lb_SaleList
                .AddItem h.Cells(i, 1).Value
                .List(.ListCount - 1, 1) = h.Cells(i, 2).Value
                .List(.ListCount - 1, 2) = h.Cells(i, 3).Value
                .List(.ListCount - 1, 3) = h.Cells(i, 4).Value
                .List(.ListCount - 1, 4) = h.Cells(i, 5).Value
                .List(.ListCount - 1, 5) = h.Cells(i, 6).Value
                .List(.ListCount - 1, 6) = h.Cells(i, 7).Value
                .List(.ListCount - 1, 7) = h.Cells(i, 8).Value
                .List(.ListCount - 1, 8) = h.Cells(i, 9).Value
                .List(.ListCount - 1, 9) = h.Cells(i, 10).Value
            End With
            matchFound = True
        End If
    Next i
    
    ' 遍历完成后统一判断是否有匹配项
    If Not matchFound Then
        MsgBox "Bill Number not correct"
    End If
End Sub

核心修改说明 #

• 取消RowSource连续区域绑定，改用AddItem逐行添加匹配的记录，仅保留符合条件的账单数据
• 新增matchFound标记，全表遍历完成后统一判断是否存在匹配项，避免多次弹窗
• 修正变量声明类型，将行号相关变量改为Long类型避免行数溢出，账单号转数值处理避免文本/数值类型不匹配
• ListBox固定样式配置挪到循环外，仅执行一次提升运行效率
• 如需保留表头，可在清空ListBox后手动添加表头行作为第一行显示内容

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