[已解决]listbox模糊查询请求增加列

feiaoli

要求：按键弹出查询框，输入查询条件（代码、名称、拼首码的一部分），筛选出符合条件的记录，显示在查询窗口中浏览。已经实现。
现在是：
如何实现查询多列，比如再增加规格2、规格3？（即显示A\B\C\D\E列）。
另外如何实现显示数据和表头对齐？

我想您可以帮我实现的！先谢谢了！

最佳答案

月排行榜 / 总排行榜

dongqing1998

2012-7-15 16:08

feiaoli 发表于 2012-7-15 15:45
你好 老师，比如 我输入 奥沙 就可以 显示 相应项目，或者 输入 110001 也可以显示 奥沙。

或者输入 注 ...

明白了，重新修改一下代码

跳转到最佳答案楼层

dongqing1998

.ColumnCount = 5

在上面这句代码的后面添加一句代码(红色代码上添加的代码)，如下面：
With .ListBox1
            .ColumnCount = 5
            .ColumnWidths = "50,169,90,90,80"
            ReDim atmp(1 To k, 1 To 5)
            For i = 1 To k
                For j = 1 To 5
                    atmp(i, j) = brr(j, i)
                Next
            Next
            .List = atmp
End With

dongqing1998

个人认为，用listbox控件做查询，不如用listview控件。
重新写段代码，楼主测试一下。

feiaoli

dongqing1998 发表于 2012-7-15 15:27
个人认为，用listbox控件做查询，不如用listview控件。
重新写段代码，楼主测试一下。

非常感谢但是就没有模糊查询了。谢谢

dongqing1998

feiaoli 发表于 2012-7-15 15:33
非常感谢但是就没有模糊查询了。谢谢

举个例子说一下你要怎样模糊查询？

feiaoli

dongqing1998 发表于 2012-7-15 15:36
举个例子说一下你要怎样模糊查询？

你好 老师，比如 我输入 奥沙 就可以 显示 相应项目，或者 输入 110001 也可以显示 奥沙。

或者输入 注射 显示 带有注射的所有项目。这一步已经有了！

现在关键是  只是显示 3 列内容，我想 显示 多列 代码怎么改？

先谢谢了

dongqing1998

feiaoli 发表于 2012-7-15 15:45
你好 老师，比如 我输入 奥沙 就可以 显示 相应项目，或者 输入 110001 也可以显示 奥沙。

或者输入 注 ...

明白了，重新修改一下代码

feiaoli

dongqing1998 发表于 2012-7-15 16:08
明白了，重新修改一下代码

非常感谢 老师 ！问题解决了！！！

另外如果您有时间，帮我看一下我通过修改listbox属性，看到了 后面的 列。

但是 每列的标题 能不能显示在 listbox框里面？

还有，可不可以解释一下您的代码？我留着以后用。（因为我一点也不懂VBA，就是通过我们的网站一点点找的）

再次感谢！！！

feiaoli

dongqing1998 发表于 2012-7-15 16:20
.ColumnCount = 5

在上面这句代码的后面添加一句代码(红色代码上添加的代码)，如下面：

非常感谢！我是通过修改属性达到美观的。不过还是您的美观。

另外 listbox 里面 可以达到 带有列标题吗？

dongqing1998

”每列的标题 能不能显示在 listbox框里面？“
换成下面的代码就行了：

1. 
   
2. 
   
3. Sub 查询()
   
4.     Dim arr, i%, j%, iR%, brr(), k%, atmp()
   
5.     arr = Range("a1:f" & Range("a65536").End(3).Row)
   
6.     iR = UBound(arr)
   
7.     ReDim Preserve brr(1 To 5, 0 To 0)
   
8.     brr(1, 0) = arr(1, 1): brr(2, 0) = arr(1, 2): brr(3, 0) = arr(1, 4)
   
9.     brr(4, 0) = arr(1, 5): brr(5, 0) = arr(1, 6)
   
10.     With UserForm1
    
11.         For i = 2 To iR
    
12.             For j = 1 To 3
    
13.                 If InStr(arr(i, j), .TextBox1.Text) Then
    
14.                     k = k + 1
    
15.                     ReDim Preserve brr(1 To 5, 0 To k)
    
16.                     brr(1, k) = arr(i, 1)
    
17.                     brr(2, k) = arr(i, 2)
    
18.                     brr(3, k) = arr(i, 4)
    
19.                     brr(4, k) = arr(i, 5)
    
20.                     brr(5, k) = arr(i, 6)
    
21.                     Exit For
    
22.                 End If
    
23.             Next
    
24.         Next
    
25.         
    
26.         If k = 0 Then MsgBox "没有查询到符合条件的数据!", vbCritical, "错误提示": Exit Sub
    
27.         
    
28.         With .ListBox1
    
29.             .ColumnCount = 5
    
30.             .ColumnWidths = "50,169,90,90,80"
    
31.             .List = Application.Transpose(brr)
    
32.         End With
    
33.     End With
    
34. 
    
35. End Sub
    
36. 
    

复制代码